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

[عفرنس]

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

On Error GoTo errorhandle
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM " & "CS_GetStudentScheduleReport"
DoCmd.RunSQL "DELETE FROM " & "ImportSheet"

DoCmd.RunSQL "DELETE FROM " & "Academic"


    DoCmd.SetWarnings True
        MsgBox "Êã ÇÝÑÇÛ ÇáÌÏÇæá ÈäÌÇÍ"
errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

[صالح حمادي]

السلام عليكم

ضع كود الحذف بعد السطر الأول في هذا الكود :

If MsgBox("هل تريد فعلا حذف البيانات", vbYesNo, "حذف بيانات") = vbYes Then
   'كود الحذف
Else
   MsgBox "لقد تم إلغاء عملية الحذف"
End If

 

[د.كاف يار]

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

تزيين و تضبيط لكود اخونا الكبير @صالح حمادي

On Error GoTo errorhandle
DoCmd.Beep
If MsgBox("عزيزي المستخدم انت على وشك افراغ قاعدة البيانات" & vbNewLine & "هل تريد فعلا حذف البيانات ؟", vbCritical + vbYesNo + vbMsgBoxRight, "حذف بيانات") = vbYes Then
  
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM " & "CS_GetStudentScheduleReport"
DoCmd.RunSQL "DELETE FROM " & "ImportSheet"

DoCmd.RunSQL "DELETE FROM " & "Academic"


    DoCmd.SetWarnings True
    DoCmd.Beep

        MsgBox "تم حذف البيانات بنجاح", vbInformation + vbMsgBoxRight, "تأكيد"
  
  
Else
        MsgBox "تم الغاء حذف البيانات", vbInformation + vbMsgBoxRight, "الغاء الاجراء"
End If

errorhandleexit:
        Exit Sub
errorhandle:
        MsgBox Err.Description
        Resume errorhandleexit

 

[عفرنس]

جزاكما الله خيرا إخواني الفضلاء @صالح حمادي @د.كاف يار 

 

ولي استفسار أخي @د.كاف يار في كود آخر سأضعه في موضوع جديد .. لعلك تعرج عليه ..