بارك الله فيك استاذ مارد
اخي طارق : انظر المرفق وهناك زر امر لماتريد !
تنبيه : 1. تم وضع التسلسل مفتاح اساسي
2. لاحظت ان هناك قيم تتكرر لذلك يمكنك : الذهاب لخصائص هذا الحقل ثم وضع خاصية القيمة الافتراضية لماتريد فيتم ادخالها تلقائيا وعند كل سجل جديد
3. انصحك بالادخال عن طريق النموذج المنقسم الاسفل فهو اسرع للادخال
Private Sub comd_Click()
'رمهان
'اوفيسنا
DoCmd.GoToRecord , , acFirst
xn = 1
For i = 1 To Me.RecordsetClone.RecordCount Step 5
For ii = 1 To 5
If CurrentRecord = Me.RecordsetClone.RecordCount Then: Me.رقم_الظرف = xn: Exit Sub
Me.رقم_الظرف = xn
DoCmd.GoToRecord , , acNext
Next ii
xn = xn + 1
Next i
End Sub
بالتوفيق
1.rar