اخي الفاضل اعمل حقل غير منضم وضع في هذه المعادلة
يكون اسمة TEXT2
=DLookUp("id","t1","id=text1")
id هو الحقل المطلوب عدم تكرارها
t1 هو الجدول الموجود به الحقل
text1 هو الحقل id بعد تغييراسمه في خصائص النموذج
ثم في الحقل الذي ترغب عدم تكراره بعد التعديل
ضع هذا الكود
Private Sub text1_AfterUpdate()
text2.Requery
If Not IsNull(text2) Then
MsgBox " الرقم مكرر", vbCritical, "تنبيه"
Me.Undo
End If
End Sub
مع مراعاة تغيير اسم الجدول عندك وكذلك اسماء الحقول
بالتوفيق ان شاء الله