عالم الهندسة قام بنشر يوليو 19 مشاركة قام بنشر يوليو 19 عندي برنامج بالاكسس المطلوب اريد عند ادخال اللترات يتم تقسيم العدد الى شرائح فمثلا الشريحة الاولى تأخذ العدد من 1 الى 10 والشريحة الثانية من 11 الى 20 وهكذا ومن ثمن يتم ضرب عدد اللترات في سعر الشريحة مع الاخذ بالاعتبار اذا كان العدد غير قابل للتقسيم الا على شريحة او شريحتين يصبح القيمة الافتراضية 0 ولكم مني جزيل الشكر والتقدير b1.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر يوليو 19 أفضل إجابة مشاركة قام بنشر يوليو 19 تفضل ان كنت فهمت عنك على عجل استخدمت الارقام الصريحة بدلا من المتغيرات اذا الفكرة هي مطلوبك يمكنك بسهولة تعديل الارقام الصريحة الى متغيرات 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 1 رابط هذا التعليق شارك More sharing options...
عالم الهندسة قام بنشر يوليو 20 الكاتب مشاركة قام بنشر يوليو 20 تبارك الرحمن وجزاكم الله خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.