السلام عليكم ورحمة الله تعالى وبركاته
أستاذي الجليل و معلمي القدير و والدى الحبيب الأستاذ @ابوخليل تحية عطرة طيبة
بعد اذن حضرتك ممكن أشارك بفكرة أخرى
Private Sub Form_Load()
Dim dt As Date
Do While dt < Format(Date, "DD/MM/YYYY")
DoCmd.GoToRecord , , acNewRec
dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY"))
dater1 = dt + 1
Loop
End Sub