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

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

السلام عليكم

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

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.mdbFetching info...

[ابو جودي]

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]

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

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

=====

  في 13‏/6‏/2019 at 08:39, ابا جودى said:

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

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

Expand  

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

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

2501

 

 

 

[ابو جودي]

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

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

 

[AlwaZeeR]

 

  في 13‏/6‏/2019 at 05:57, ابا جودى said:

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

Expand  

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

  في 13‏/6‏/2019 at 09:03, ابا جودى said:

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

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

 

Expand  

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

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

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

  في 13‏/6‏/2019 at 08:53, AlwaZeeR said:

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

Expand  

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

وهو عند الخطأ

===

 

[ابو جودي]

  في 13‏/6‏/2019 at 10:19, AlwaZeeR said:

 

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

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

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

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

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

وهو عند الخطأ

===

 

Expand  

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

[AlwaZeeR]

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

 

TestDBNnn.mdbFetching info...

[kha9009lid]

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

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

[AlwaZeeR]

  في 13‏/6‏/2019 at 12:17, kha9009lid said:

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

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

Expand  

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

On Error GoTo ErrHandler

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

ErrHandler:
    If Err.Number = 2501 Then Exit Sub

 

[kha9009lid]

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

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

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

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

[ابو جودي]

  في 13‏/6‏/2019 at 11:24, AlwaZeeR said:

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

 

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

Expand  

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