احد يقدر يحل هذه المشكلة المعقدة في الكود المرفق

ضع المثال كاملا او على الاقل النماذج المتعلقه بالمشكله اخى

عزيزي مشكور لسرعة استجابتك انا على اتم الاستعداد لارفاق كمل البرنامج ولكني لم ارفقه لحاجتي لحل سريع لمشكلة محددة وهي ان يقوم زر الامر في النموذج المرفق بإضافة قيمة الى الحقل limit " مثلا اضافة 6 الى القيمة الاصلية 20 لتصبح قيمة الحقل تساوي 26 بدلا من 20 " و ذلك لكافة السجلات التي تحقق الشرط "job = 1" شاكرا تعاون الجميع برجاء المساعدة بالسرعة الممكنة

السلام عليكم

تحية طيبة لإخواني جماعة الاكسس ،،، .

هذه محاولة مني اتمنى إن تكون المطلوب .

الكود بعد التعديل /

'
'ضع هذا الكود في قسم التصريجات العامة
'
 Option Compare Database
'
 Dim MyWK As DAO.Workspace
 Dim MyDB As DAO.Database
 Dim MyRS As DAO.Recordset
'
'Command ضع هذا الكود في
'
Private Sub Command0_Click()
'
 Dim Years, YearNo As Integer, MonthNo As Integer
 Dim PerCounter As Integer
'
          Set MyWK = DBEngine.Workspaces(0)
          Set MyDB = DBEngine.Workspaces(0).Databases(0)
          Set MyRS = MyDB.OpenRecordset("SELECT * FROM Employee WHERE Job = 1", DB_OPEN_DYNASET)
'
           If MyRS.EOF <> False Then MsgBox "لا توجد سجلات ": Exit Sub
'
              MyRS.MoveFirst
'
 Do While Not MyRS.EOF
'
              Years = MyRS!Limit
              YearNo = Years + 5
'
           If YearNo > 60 Then
'
              MonthNo = 60
'
           Else
'
              MyRS.Edit
'
              MonthNo = YearNo
              MyRS!Limit = MonthNo
'
              MyRS.Update
'
              PerCounter = PerCounter + 1
'
         End If
'
              MyRS.MoveNext
'
    Loop
'
    MsgBox "Operation Is Done"
End Sub

تفضل النموذج /

test01.zip

مشكور جدا اخي Visitor_OM وهو الحل المطلوب بارك الله فيك

على الرحب والسعة اخي الكريم