ضع هذا الكود تحت زر امر عند النقر ........... انسخ الكود والصقه كما هو ........ وشوف النتيجة يمكن يكون طلبك
Beep
If MsgBox("ستقوم الآن بحذف السجل التالي :" & vbCrLf _
& "(" & [الهوية_الشخصية] & ")" & vbCrLf _
& " " & vbCrLf _
& "هل أنت متأكد ؟" & vbCrLf _
& " " & vbCrLf _
& "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbCritical + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "تحذيــر !") = vbYes Then
Application.SetOption "Confirm Record Changes", False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If