السلام عليكم
 
	تفضل احي الكريم 
 
	الكود بعد التعديل 
 
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
	 
 
	 
 
	 
 
	 
 
	 
 
	 
 
	تحياتي