الرجاء المساعدة في كتابة الكود . في تكرار السنوات بعدد معين لسنوات معينة .
حيث أني أرغب في تصميم برنامج لحساب خدمة الموظف في الشركة أو الإدارة ومنها هذه العلاوات السنوية للراتب الموظف
وهذا يتطلب حساب السنوات التي قضاها من بداية خدمة حتى تاريخ نهاية خدمة في الشركة .
ومنها حساب العلاوات السنوية من بداية عملة في الشركة حتى تاريخ اليوم الحالي فكتبت الدوك التالي :
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 وهكذا أرجوا المساعدة ولكم جزيل الشكر والتقدير