عفرنس قام بنشر أغسطس 26, 2020 مشاركة قام بنشر أغسطس 26, 2020 أريد رسالة تأكيد قبل حذف البيانات في هذا الكود : 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 رابط هذا التعليق شارك More sharing options...
صالح حمادي قام بنشر أغسطس 26, 2020 مشاركة قام بنشر أغسطس 26, 2020 السلام عليكم ضع كود الحذف بعد السطر الأول في هذا الكود : If MsgBox("هل تريد فعلا حذف البيانات", vbYesNo, "حذف بيانات") = vbYes Then 'كود الحذف Else MsgBox "لقد تم إلغاء عملية الحذف" End If 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة د.كاف يار قام بنشر أغسطس 26, 2020 أفضل إجابة مشاركة قام بنشر أغسطس 26, 2020 تفضل هذا يا يو عبدالرحمن انسخ و الصق فقط تزيين و تضبيط لكود اخونا الكبير @صالح حمادي 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 1 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر أغسطس 26, 2020 الكاتب مشاركة قام بنشر أغسطس 26, 2020 جزاكما الله خيرا إخواني الفضلاء @صالح حمادي @د.كاف يار ولي استفسار أخي @د.كاف يار في كود آخر سأضعه في موضوع جديد .. لعلك تعرج عليه .. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.