كود منع التكرار في حقل ليس مفتاح اساسي برمجيا

[abo mohammadsy]

لدي قاعدة بيانات موظفين واريد منع تكرار بعض الحقول مثل الرقم الذاتي و الرقم المالي و الرقم التأميني ..الخ وهذه الحقول ليست مفتاح اساسي 

اذا في مجال للمساعدة اريد كود لمنع تكرار هذه الحقول ولكم جزيل الامتنان و جزاكم الله خيرا 

تم تعديل ديسمبر 17, 2017 بواسطه abo mohammadsy
خطأمطبعي

[أبو آدم]

Private Sub Fup_Click()
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Select * From tbl000")

rst.MoveFirst
Do Until rst.EOF
If rst!الرقم = Me!OrderID Then

MsgBox " السجل موجود  ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه"

Me.Undo
DoCmd.CancelEvent
Exit Do
End If
rst.MoveNext
Loop
rst.Close
End Sub

تفضل أخي العزيز