(تمت الاجابة) رسالة تنبيه وإيقاف رسائل النظام

[lordring]

السلام عليكم

لدي الكود التالي لترحيل مجموعة جداول

DoCmd.OpenQuery "upT"

DoCmd.OpenQuery "upB"

DoCmd.OpenQuery "upC"

DoCmd.OpenQuery "upD"

DoCmd.OpenQuery "upE"

DoCmd.OpenQuery "upEX"

DoCmd.OpenQuery "delT"

DoCmd.OpenQuery "delB"

DoCmd.OpenQuery "delC"

DoCmd.OpenQuery "delD"

DoCmd.OpenQuery "delE"

DoCmd.OpenQuery "delEX"

طبعا هنا ستظهر رسائل تاكيد كثيرة

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

وشكرا

[lordring]

تمت الفائدة

If MsgBox(" هل تريد ترحيل البيانات الآن؟? ", vbYesNo) = vbYes Then

DoCmd.SetWarnings False

DoCmd.OpenQuery "upT"

DoCmd.OpenQuery "upB"

DoCmd.OpenQuery "upC"

DoCmd.OpenQuery "upD"

DoCmd.OpenQuery "upE"

DoCmd.OpenQuery "upEX"

DoCmd.OpenQuery "delT"

DoCmd.OpenQuery "delB"

DoCmd.OpenQuery "delC"

DoCmd.OpenQuery "delD"

DoCmd.OpenQuery "delE"

DoCmd.OpenQuery "delEX"

DoCmd.SetWarnings True

End If

شكرا ........

[أ / محمد صالح]

جرب هذا الكود

If MsgBox("هل حقاً تريد إكمال العملية؟", 1572900, "تحذير") = vbYes Then

docmd.setwarnings false

DoCmd.OpenQuery "upT"

DoCmd.OpenQuery "upB"

DoCmd.OpenQuery "upC"

DoCmd.OpenQuery "upD"

DoCmd.OpenQuery "upE"

DoCmd.OpenQuery "upEX"

DoCmd.OpenQuery "delT"

DoCmd.OpenQuery "delB"

DoCmd.OpenQuery "delC"

DoCmd.OpenQuery "delD"

DoCmd.OpenQuery "delE"

DoCmd.OpenQuery "delEX"

docmd.setwarnings true

End If

[أبو آدم]

أخي العزيز

إن كنت قد أحسنت الفهم عنك ، جرب هذا الكود

    Dim strMsg As String, strTitle As String

    Dim strMsgNo As String, strTitleNo As String

strMsg = ""هل ترغب بإستكمال الإجراء

strTitle = " تنبيه"

If MsgBox(strMsg, vbQuestion + vbYesNo + vbDefaultButton2, strTitle) = vbYes Then

DoCmd.SetWarnings False

DoCmd.OpenQuery "upT"

DoCmd.OpenQuery "upB"

DoCmd.OpenQuery "upC"

DoCmd.OpenQuery "upD"

DoCmd.OpenQuery "upE"

DoCmd.OpenQuery "upEX"

DoCmd.OpenQuery "delT"

DoCmd.OpenQuery "delB"

DoCmd.OpenQuery "delC"

DoCmd.OpenQuery "delD"

DoCmd.OpenQuery "delE"

DoCmd.OpenQuery "delEX

End If

ووافني بالنتيجة ......

[أبو آدم]

11:43

11:45

11:49

جميل ... أثناء فتح الموضوع لتجهيز الرّد تم تدافع الحلول ...

(تمت الاجابة)

[lordring]

شكرا اخواني والله افرحتموني بهذا النشاط والهمة في الردود ... مما يفتح شهيتنا للمزيد من الاسئلة

عسى فقط ان لانثقل عليكم

شكرا لكم مرة اخرى .. وكل عام وانتم بالف خير