Private Sub Name_beforeUpdate()
If DCount("Name", "MyTable", "[Name]=" & Me.name) > 0 Then
MsgBox " هذا الاسم تم تكراره سابقا"
cancel=true
End If
end sub
name اسم الحقل
mytable اسم الجدول
me.name الاسم حسب النموذج
ضع هذا الكود في حدث قبل التحديث
واحذف اول سطر لانه رح يتكرر
او انسخ الكود كما هو والصقه