عند فتح النموذج إزالة جميع العلامات من السجلات

وعليكم السلام ورحمة الله وبركاته

تم وضع هذا الكود في حدث عند فتح النموذج:

Private Sub Form_Open(Cancel As Integer)
Dim db1 As Database
Dim rst As Recordset
Set db1 = CurrentDb
Set rst = db1.OpenRecordset("BasicList")
rst.MoveFirst
Do While Not rst.EOF
rst.Edit
rst!Did = False
rst.Update
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub

انظر المثال بعد التعديل

Tick1.rar

أخي العزيز/ غرّام العقول

بوركت أخي ... 100 %

ألف شكر