تفضل أخي هذا هو الملف بعد إصلاحه.
Me.num = CurrentRecord
On Error Resume Next
Dim ss As Date
If Me.num > 1 Then
ss = DLookup("[ÇáÊÇÑíÎ]", "tbl", "num=" & [num] - 1) + 1
Me.dat = ss
Me.dat.Enabled = False
Else
Me.dat.Enabled = True
End If
ضع هذا الكود في حدث الحالي للنموذج
سلسلة تواريخ.rar