اخي جرب هذا الكود وبالتوفيق
Private Sub Delete_Click()
If MsgBox("åá ÊÑíÏ ÍÐÝ åÐå ÇáÈíÇä", vbOKCancel + vbCritical + vbMsgBoxRight, "ÍÐÝ ") = vbOK Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
If Not (Me.NewRecord) Then
If MsgBox("åá ÊæÏ ÍÝÙ ÇáÊÚÏíá ¿", vbQuestion + vbYesNo + vbDefaultButton1, "ÍÝÙ ÇáÊÛííÑÇÊ ¿") = vbNo Then
Me.Undo
End If
Else
If MsgBox("åá ÊæÏ ÍÝÙ ÇáÓÌá ÇáÌÏíÏ ¿", vbQuestion + vbYesNo + vbDefaultButton1, "ÓÌá ÌÏíÏ") = vbNo Then
Me.Undo
End If
End If
End Sub