مساعدة في دالة الشرائح لفواتير الماء

[عالم الهندسة]

عندي برنامج بالاكسس 

المطلوب اريد عند ادخال اللترات يتم تقسيم العدد الى شرائح فمثلا الشريحة الاولى تأخذ العدد من 1 الى 10 والشريحة الثانية من 11 الى 20 وهكذا ومن ثمن يتم ضرب عدد اللترات في سعر الشريحة مع الاخذ بالاعتبار اذا كان العدد غير قابل للتقسيم الا على شريحة او شريحتين يصبح القيمة الافتراضية 0 ولكم مني جزيل الشكر والتقدير 

 

b1.accdb

[ابوخليل]

تفضل

ان كنت فهمت عنك

على عجل استخدمت الارقام الصريحة بدلا من المتغيرات

اذا الفكرة هي مطلوبك يمكنك بسهولة تعديل الارقام الصريحة الى متغيرات

Dim i As Integer
i = Me.kulo

If i >= 10 Then
sh1 = 10
i = i - sh1
sr1 = sh1 * 15
Else
sh1 = i
sr1 = sh1 * 15
i = 0
End If

If i >= 20 Then
sh2 = 20
i = i - sh2
sr2 = sh2 * 20
Else
sh2 = i
sr2 = sh2 * 20
i = 0
End If

If i >= 30 Then
sh3 = 30
i = i - sh3
sr3 = sh3 * 25
Else
sh3 = i
sr3 = sh3 * 25
i = 0
End If

If i >= 40 Then
sh4 = 40
i = i - sh4
sr4 = sh4 * 30
Else
sh4 = i
sr4 = sh4 * 30
i = 0
End If

If i >= 41 Then
sh5 = i
sr5 = sh5 * 50
Else
sh5 = i
sr5 = sh5 * 50
End If
Me.srSum = Nz(sr1) + Nz(sr2) + Nz(sr3) + Nz(sr4) + Nz(sr5)

 

b2.rar

[عالم الهندسة]

تبارك الرحمن وجزاكم الله خير