lordring قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 السلام عليكم لدي الكود التالي لترحيل مجموعة جداول 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" طبعا هنا ستظهر رسائل تاكيد كثيرة المطلوب ايقاف هذه الرسائل والاستعاضة عنها برسالة واحدة فقط فيها موافق او الغاء لاكمال العملية وشكرا رابط هذا التعليق شارك More sharing options...
lordring قام بنشر نوفمبر 8, 2011 الكاتب مشاركة قام بنشر نوفمبر 8, 2011 تمت الفائدة 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 شكرا ........ رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 جرب هذا الكود 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 1 رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 أخي العزيز إن كنت قد أحسنت الفهم عنك ، جرب هذا الكود 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 ووافني بالنتيجة ...... رابط هذا التعليق شارك More sharing options...
أبو آدم قام بنشر نوفمبر 8, 2011 مشاركة قام بنشر نوفمبر 8, 2011 11:43 11:45 11:49 جميل ... أثناء فتح الموضوع لتجهيز الرّد تم تدافع الحلول ... (تمت الاجابة) رابط هذا التعليق شارك More sharing options...
lordring قام بنشر نوفمبر 8, 2011 الكاتب مشاركة قام بنشر نوفمبر 8, 2011 شكرا اخواني والله افرحتموني بهذا النشاط والهمة في الردود ... مما يفتح شهيتنا للمزيد من الاسئلة عسى فقط ان لانثقل عليكم شكرا لكم مرة اخرى .. وكل عام وانتم بالف خير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان