وعليكم السلام ورحمة الله وبركاته
فضلا مراجعة المرفق
وتم استخدام الكود التالي
Private Sub name_BeforeUpdate(Cancel As Integer)
If DCount("[name]", "data", "[name]=[forms]![data]![name]") >= 1 Then
MsgBox " هذا الاسم مكرر برقم " & DLookup("[id]", "data", "[name] = Forms![data]![name]")
DoCmd.CancelEvent
Me.Undo
End If
End Sub
تحياتي
db1_2.rar