الطريقة السابقة تتعامل مع السجلات عبر النموذج
جرب هذه الطريقة من خلال الجدول مباشرة
Dim rst As dao.Recordset
Set rst = CurrentDb.OpenRecordset("folllow")
rst.MoveFirst
Do Until rst.EOF
If rst![رقم العملية] = Me![T4] Then
MsgBox " السجل مكرر ", , " تنبيه"
Me.Undo
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close
F06.rar