و عليكم السلام و رحمة الله و بركاته ...
تقبل الله منا و منكم صالح الاعمال ...
تعديل بسيط ...
DoCmd.GoToRecord , , acFirst
Dim i, d As Integer
d = DCount("*", "جدول1")
For i = 1 To d
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