محمد القدسي قام بنشر يونيو 12, 2019 قام بنشر يونيو 12, 2019 السلام عليكم اساتذتي الكرام اريد التعديل على هذا الكود بحيث يفتح شاشة اختيار مكان تصدير البيانات بدلا من تحديده في الكود مع اظهار اسم التقرير Dim X As String X = Me.name_amel & ".pdf" DoCmd.OutputTo acOutputReport, "OMALA", "PDFFormat(*.pdf)", "D:\" & X على ان يكون التصدير لاكسس وليس pdf وذلك بدلا من ان يكون مكان التصدير ثابت كما في الكود السابق وانما اريده اختيار مثل هذا الكود DoCmd.OutputTo acOutputQuery, stDocName, "ExcelBinaryWorkbook(*.xlsb)", "", True, "", , acExportQualityPrint مع تحديد المتغير x في الكود
ابو جودي قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 DoCmd.OutputTo acOutputReport, "rptEmp", acFormatXLS, , False هذا الكود من الطريقة الثالثة من المرفق ولا احبذ خذخ الطريقة لانه عند الذغط على زر الغاء لاحباط عملية التصدير تظهر رسالة بالكود الاتى run-time error '2501': بصراحة حاولت كثيرا تفاديها وتلاشيها بكود تصيد الاخطاء ولكن لم استطع ولذلك افضل الكود من الطريقة الثانية الموجودة بالمرفق
ابو جودي قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR فضلا وكرما اطلب منكم على استحياء النظر فى المرفق وابداء رأيكم وبالاخص حول مشكلة الاحباط وعدم استكمال التصدير فى الفكرة الثالثة هل لها من حل
AlwaZeeR قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 (معدل) هلا بالغالي أبا جودي تواضعك محل ثقة واحترام الجميع بارك الله فيك وفي اهلك ومحبيك تفضل عزيزي جرب هذا On Error GoTo ErrHandler DoCmd.OutputTo acOutputTable, "tblEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الجدول الى المسار المحدد بنجاح" ErrHandler: If Err.Number = 2501 Then Exit Sub او هذا On Error GoTo Command14_Click_Error DoCmd.OutputTo acOutputTable, "tblEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير الجدول الى المسار المحدد بنجاح" Command14_Click_Error: MsgBox "تم الغاء الاجراء" تم تعديل يونيو 13, 2019 بواسطه AlwaZeeR
ابو جودي قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 استاذى الجليل ومعلمى القدير استاذ @AlwaZeeR اولا وقبل أى شئ كل الشكر والتقدير والعرفان بجميلكم انتم وكل اساتذتى العظماء الذين لم يبخلوا يوما على طلاب العلم فى هذا الصرح الشامخ والمسألة ليست تواضعا كما تفضلتم واشرتم بل ان نظرتى اليكم هى تبجيل واحترام واجلال لكل من اتعلم منهم وعلى ايديهم ويضيئون ظلام عقلى بنور علمهم ومعرفتهم ويقابلون خطأى بعلم وجهلى والحاحى عليهم بصبر وحلم جزاكم الله خيرا ان شاء الله وشكر الله لكم حسن صنيعكم اصلا انا جربت كل شئ من افكار واكواد تصيد الاخطاء دون جدوى هل حضرتك جربت الاكواد ؟ ام طرحت الاجابه نظريا على اعتبار ان هذه هى الاكواد المنطقية لتصيد وتلافى الاخطاء 1
AlwaZeeR قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 اشكرك على كلماتك التي تنم عن اصلك الطيب ومعدنك الاصيل فأنت ما زلت وستبقى ابن مصر الحضارة والرقي ===== 8 minutes ago, ابا جودى said: اصلا انا جربت كل شئ من افكار واكواد تصيد الاخطاء دون جدوى هل حضرتك جربت الاكواد ؟ ام طرحت الاجابه نظريا على اعتبار ان هذه هى الاكواد المنطقية لتصيد وتلافى الاخطاء لم افهم ماذا تقصد بجربت الاكواد لكن اطلعت على المرفق الخاص بك ولم اجد ما يصيد الخطأ 2501
ابو جودي قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 لم ارفقه بالمرفق لانها بلا جدوى ولكن سوف اخبرك حاولت وقف الخطأ من حدث عند الخطأ وحاولت باكواد تصيد الاخطاء دون جدوى
AlwaZeeR قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 4 hours ago, ابا جودى said: النظر فى المرفق وابداء رأيكم وبالاخص حول مشكلة الاحباط وعدم استكمال التصدير فى الفكرة الثالثة هل لها من حل هل تم حل المشكلة هنا ام لا؟ 1 hour ago, ابا جودى said: لم ارفقه بالمرفق لانها بلا جدوى ولكن سوف اخبرك حاولت وقف الخطأ من حدث عند الخطأ وحاولت باكواد تصيد الاخطاء دون جدوى هنا الخطأ ليس في عند الخطأ فأنت تقوم بوقف زر الأمر عند الضغط على امر استعراض والخطأ يظهر عند الغاء عملية زر الأمر وليس عند الخطأ 1 hour ago, AlwaZeeR said: اصلا انا جربت كل شئ من افكار واكواد تصيد الاخطاء دون جدوى السبب هنا أنه تم وضع الأفكار والأكواد في المكان الخطأ وهو عند الخطأ ===
ابو جودي قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 3 دقائق مضت, AlwaZeeR said: هل تم حل المشكلة هنا ام لا؟ هنا الخطأ ليس في عند الخطأ فأنت تقوم بوقف زر الأمر عند الضغط على امر استعراض والخطأ يظهر عند الغاء عملية زر الأمر وليس عند الخطأ السبب هنا أنه تم وضع الأفكار والأكواد في المكان الخطأ وهو عند الخطأ === انا جربت كل الطرق على زى الامر كذلك نفس اكواد حضرتك ولن تفلح معى هل حضرتك جربتها ؟
kha9009lid قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 الكود يعمل وانتهت مشكلة رسالة الخطا ولكن عند الانتهاء من تصدير الملف تظهر رسالة بنجاح عملية التصدير ويليها رسالة الغاء الاجراء
AlwaZeeR قام بنشر يونيو 13, 2019 قام بنشر يونيو 13, 2019 4 minutes ago, kha9009lid said: الكود يعمل وانتهت مشكلة رسالة الخطا ولكن عند الانتهاء من تصدير الملف تظهر رسالة بنجاح عملية التصدير ويليها رسالة الغاء الاجراء استخدم هذا الكود On Error GoTo ErrHandler DoCmd.OutputTo acOutputTable, "tblEmp", acFormatXLS, , False MyMesg "تمت عملية تصدير التقرير الى المسار المحدد بنجاح" ErrHandler: If Err.Number = 2501 Then Exit Sub
محمد القدسي قام بنشر يونيو 13, 2019 الكاتب قام بنشر يونيو 13, 2019 اشكركم جميعا اخواني وساتذتي على تعاونكم وجزاكم الله خير
ابو جودي قام بنشر يونيو 15, 2019 قام بنشر يونيو 15, 2019 في ١٣/٦/٢٠١٩ at 13:24, AlwaZeeR said: نعم جربتها وتعمل TestDBNnn.mdb 352 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 9 downloads للاسف عندى لم يتخطى الخطأ هل هذا قد يكون مشكلة بنسخة الاوفيس لدى سأقوم بإزالته واعادة اعداد من جديد لارى
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان