كود حذف و رسالة تنبيه

[alameer_3320]

السلام عليكم ورحمة الله وبركاته كل عام وانتم بالف خير اخواني الاعزاء اريد كود برمجي لزر حذف سجل معين في النموذج عند الضغط على الزر تجي رساله هل تريد حذف السجل نعم او لا ارجوا منكم التوضيح ولكم فائق الحب والتقدير 

[محمد احمد لطفى]

ضع مثال حتى نستطيع المساعدة 

[مسفر]

جرب هذا 

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

 

[AboBahaa]

تفضل اخي ارفقت لك مثالين لاحد الاخوة الكرام  بالمنتدى كنت قد حصلت عليه سابقا يمكن الاستفادة منهما وفق طلبك حسب فهمي  

sub.rar example2.v1.rar