الطرق متعددة وهذا أحدها
Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.MoveFirst
Do Until rst.EOF
If rst![بطاقة تعريف] = Me![بطاقة تعريف] Then
MsgBox " رقم بطاقة التعريف تم إدخاله سابقا ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"
Me.Undo
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close
db1.rar