samy_alshamy

دالة التكرارا loop بأستخدام الدالة do wile

1 مشاركة في هذا الموضوع

الرجاء المساعدة في كتابة الكود . في تكرار السنوات بعدد معين لسنوات معينة .

حيث أني أرغب في تصميم برنامج لحساب خدمة الموظف في الشركة أو الإدارة ومنها هذه العلاوات السنوية للراتب الموظف 

وهذا يتطلب حساب السنوات التي قضاها من بداية خدمة حتى تاريخ نهاية خدمة في الشركة .

ومنها حساب العلاوات السنوية من بداية عملة في الشركة حتى تاريخ اليوم الحالي فكتبت الدوك التالي :

Private Sub تدقيق21_Click()
Dim m
m = 0
Do While m < DateDiff("yyyy", DMin("[المباشرة]", "البيانات الوظيفية"), Date)
DoCmd.GoToRecord , , acNewRec
[السبب].SetFocus
[السبب] = "علاوة سنوية دورية"
[المباشرة] = DateSerial(DatePart("yyyy", DMin("[المباشرة]", "البيانات الوظيفية")) + 1, 1, 1)
m = m + 1
Loop
End Sub


تاريخ المباشرة وهو بداية الخدمة .

ولكن العلاوات السنوية يقوم بزيادة سنة ويقوم بتكرار هذه السنة دون الزيادة للسنة الثالثة والربابعة وهكذا

الشكل التالي الأستعلام

 

لاحظ العلاوات السنوية مكررة وهذه هي المشكلة المطلوب السنوات المتسلسلة المتتالية 1434 و من ثم 1435 و 1436 و 1437 وهكذا أرجوا المساعدة ولكم جزيل الشكر والتقدير

 

 

تم تعديل بواسطه samy_alshamy
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .