استاذ jjafferr المحترم
بارك الله فيك و اشكرك على الرد الجميل بس مربع النص باسم ( نص57 ) ليس ضم جدول ولا استعلام هو ( مربع تحرير وسرد على النموذج FRM1 ) بدخل فيها ارقام ؟
فى هذا الكود عند تسجيل اي رقم مكرار و غير مكرار تظهر الرساله (( فضلاً تأكد من عدم إدخال رقم مكرر )) ما الخطا فى
Dim i
Dim n
i = DLookup("[نص57]", "clndtail", "[نص57]=[نص57]")
n = DLookup("[الاسم]", "clndtail", "[نص57]=[نص57]")
If i <> "" Then
MsgBox " ... فضلاً تأكد من عدم إدخال رقم مكرر", vbOKOnly, "تنبيه"
End If
End Sub