التاكد من قيمة حقل بانها غير مدخلة مسبقا

وعليكــم السـلام ورحمة الله وبركاتـه..

اخي الكريم

في حدث بعد التحديث لمربع النص الخاص بحقل الرقم ضع الكود ادناه

  Dim intCount As Integer
	intCount = DCount("empid", "table1", "[empid]=forms!frm1!empid")
	If intCount > 0 Then
		MsgBox "هذا الرقم مكرر"
		Me.Undo
	End If

حيث empid هو اسم حقل الرقم

table1 هو اسم الجدول

forms تشير الى مجموعة النماذج

frm1 اسم النموذج

empid في آخر السطر الثاني تشير الى اسم مربع النص الخاص بالرقم

بالتوفيق