شكرا للاستاذ صالح
وشكرا للاستاذ كرار
سبب تعديل الاستاذ العزيز كرار ان الكود يقوم بتعديل 11 سجل ثم يقف ، فهو قام بجلب عدد السجلات الفعلية الموجودة في الجدول1 ، ولكن يلاحظ ان الترقيم يتم بواسطة حقل داخل النموذج فيجب ان يكون الجدول1 هو مصدر بيانات النموذج
هذا تعديل بسيط للمرور على جميع السجلات داخل النموذج
DoCmd.GoToRecord , , acFirst
Dim i As Integer
For i = 1 To Me.Recordset.RecordCount
On Error Resume Next
Dim x, y As Integer
x = 1
If IsNull(x) Then
y = i
Else
y = y + 1
End If
Me![num] = Format(y, "0000")
On Error Resume Next
DoCmd.GoToRecord , , acNext
Next i