جرب هذا
On Error Resume Next
Beep
Select Case MsgBox("هل ترغب بحذف السجل ؟" & vbCrLf & _
"إضغط موافق للحذف أوإضغط لا لعدم الحذف أو إضغط الغاء الأمر.", _
vbInformation + vbMsgBoxRight + vbYesNoCancel, _
"تنبيـــه : حذف السجل")
Case vbYes
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
Me.Requery
Me.Refresh
MsgBox "تم حذف السجل "
Case vbNo
Me.Undo
MsgBox "تم الغاء الحذف"
Case Else
MsgBox "تم إلغاء الأمر "
End Select