السلام عليكم
تفضل احي الكريم
الكود بعد التعديل
Private Sub title_BeforeUpdate(Cancel As Integer)
Dim rslt As String
DoCmd.SetWarnings False
If DCount("*", "table1", "[title]='" & Me.Title & "'") > 0 Then
Beep
If MsgBox("warnnig", vbQuestion + vbYesNo, "deplucate") = vbNo Then
Cancel = True
Me.Undo
End If
End If
End Sub
تحياتي