فتح شاشة اختيار مكان تصدير تقرير

[محمد القدسي]

السلام عليكم

اساتذتي الكرام اريد التعديل على هذا الكود بحيث يفتح شاشة اختيار مكان تصدير البيانات بدلا من تحديده في الكود مع اظهار اسم التقرير 

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 في الكود

 

 

[ابو جودي]

اتفضل مرفق ولا اروع 

 

TestDB.mdb

[ابو جودي]

DoCmd.OutputTo acOutputReport, "rptEmp", acFormatXLS, , False

هذا الكود من الطريقة الثالثة من المرفق ولا احبذ خذخ الطريقة لانه عند الذغط على زر الغاء لاحباط عملية التصدير تظهر رسالة بالكود الاتى 

run-time error '2501':

بصراحة حاولت كثيرا تفاديها وتلاشيها بكود تصيد الاخطاء ولكن لم استطع

ولذلك افضل الكود من الطريقة الثانية الموجودة بالمرفق  

[ابو جودي]

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR 

فضلا وكرما اطلب منكم على استحياء النظر فى المرفق وابداء رأيكم وبالاخص حول  مشكلة الاحباط وعدم استكمال التصدير فى الفكرة الثالثة هل لها من حل

[AlwaZeeR]

هلا بالغالي أبا جودي

تواضعك محل ثقة واحترام الجميع

بارك الله فيك وفي اهلك ومحبيك

تفضل عزيزي جرب هذا 

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

[ابو جودي]

استاذى الجليل ومعلمى القدير استاذ @AlwaZeeR 
اولا وقبل أى شئ كل الشكر والتقدير والعرفان بجميلكم انتم وكل اساتذتى العظماء الذين لم يبخلوا يوما على طلاب العلم فى هذا الصرح الشامخ
والمسألة ليست تواضعا كما تفضلتم واشرتم بل ان نظرتى اليكم هى تبجيل واحترام واجلال لكل من اتعلم منهم وعلى ايديهم ويضيئون ظلام عقلى بنور علمهم ومعرفتهم ويقابلون خطأى بعلم وجهلى والحاحى عليهم بصبر وحلم جزاكم الله خيرا ان شاء الله وشكر الله لكم حسن صنيعكم 

اصلا انا جربت كل شئ من افكار واكواد تصيد الاخطاء دون جدوى
هل حضرتك جربت الاكواد ؟ ام  طرحت الاجابه نظريا على اعتبار ان هذه هى الاكواد المنطقية لتصيد وتلافى الاخطاء

[AlwaZeeR]

اشكرك على كلماتك التي تنم عن اصلك الطيب ومعدنك الاصيل

فأنت ما زلت وستبقى ابن مصر الحضارة والرقي

=====

8 minutes ago, ابا جودى said:

اصلا انا جربت كل شئ من افكار واكواد تصيد الاخطاء دون جدوى

هل حضرتك جربت الاكواد ؟ ام  طرحت الاجابه نظريا على اعتبار ان هذه هى الاكواد المنطقية لتصيد وتلافى الاخطاء

لم افهم ماذا تقصد بجربت الاكواد

لكن اطلعت على المرفق الخاص بك ولم اجد ما يصيد الخطأ 

2501

 

 

 

[ابو جودي]

لم ارفقه بالمرفق لانها بلا جدوى ولكن سوف اخبرك
حاولت وقف الخطأ من حدث عند الخطأ

وحاولت باكواد تصيد الاخطاء دون جدوى

 

[AlwaZeeR]

 

4 hours ago, ابا جودى said:

 النظر فى المرفق وابداء رأيكم وبالاخص حول  مشكلة الاحباط وعدم استكمال التصدير فى الفكرة الثالثة هل لها من حل

هل تم حل المشكلة هنا ام لا؟

1 hour ago, ابا جودى said:

لم ارفقه بالمرفق لانها بلا جدوى ولكن سوف اخبرك
حاولت وقف الخطأ من حدث عند الخطأ

وحاولت باكواد تصيد الاخطاء دون جدوى

 

هنا الخطأ ليس في عند الخطأ 

فأنت تقوم بوقف زر الأمر عند الضغط على امر استعراض

والخطأ يظهر عند الغاء عملية زر الأمر وليس عند الخطأ 

1 hour ago, AlwaZeeR said:

اصلا انا جربت كل شئ من افكار واكواد تصيد الاخطاء دون جدوى

السبب هنا أنه تم وضع الأفكار والأكواد في المكان الخطأ 

وهو عند الخطأ

===

 

[ابو جودي]

3 دقائق مضت, AlwaZeeR said:

 

هل تم حل المشكلة هنا ام لا؟

هنا الخطأ ليس في عند الخطأ 

فأنت تقوم بوقف زر الأمر عند الضغط على امر استعراض

والخطأ يظهر عند الغاء عملية زر الأمر وليس عند الخطأ 

السبب هنا أنه تم وضع الأفكار والأكواد في المكان الخطأ 

وهو عند الخطأ

===

 

انا جربت كل الطرق على زى الامر كذلك نفس اكواد حضرتك ولن تفلح معى
هل حضرتك جربتها ؟

[AlwaZeeR]

نعم جربتها وتعمل

 

TestDBNnn.mdb

[kha9009lid]

الكود يعمل وانتهت مشكلة رسالة الخطا

ولكن عند الانتهاء من تصدير الملف تظهر رسالة بنجاح عملية التصدير ويليها رسالة الغاء الاجراء

[AlwaZeeR]

4 minutes ago, kha9009lid said:

الكود يعمل وانتهت مشكلة رسالة الخطا

ولكن عند الانتهاء من تصدير الملف تظهر رسالة بنجاح عملية التصدير ويليها رسالة الغاء الاجراء

استخدم هذا الكود

On Error GoTo ErrHandler

   DoCmd.OutputTo acOutputTable, "tblEmp", acFormatXLS, , False
    MyMesg "تمت عملية تصدير التقرير الى المسار المحدد بنجاح"

ErrHandler:
    If Err.Number = 2501 Then Exit Sub

 

[kha9009lid]

استاذ ماشاء الله 😍

[محمد القدسي]

اشكركم جميعا اخواني وساتذتي على تعاونكم 

وجزاكم الله خير

[ابو جودي]

في ١٣‏/٦‏/٢٠١٩ at 13:24, AlwaZeeR said:

نعم جربتها وتعمل

 

TestDBNnn.mdb 352 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 9 downloads

للاسف عندى لم يتخطى الخطأ
هل هذا قد يكون مشكلة بنسخة الاوفيس لدى سأقوم بإزالته واعادة اعداد من جديد لارى