اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم

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

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

 

 

رابط هذا التعليق
شارك

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

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

run-time error '2501':

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

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 "تم الغاء الاجراء"

 

تم تعديل بواسطه AlwaZeeR
رابط هذا التعليق
شارك

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

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

  • Thanks 1
رابط هذا التعليق
شارك

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

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

=====

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

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

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

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

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

2501

 

 

 

رابط هذا التعليق
شارك

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

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


 

رابط هذا التعليق
شارك

 

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

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

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

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

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

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

 

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

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

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

1 hour ago, AlwaZeeR said:

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

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

وهو عند الخطأ

===

 

رابط هذا التعليق
شارك

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

 

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

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

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

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

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

وهو عند الخطأ

===

 

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

رابط هذا التعليق
شارك

4 minutes ago, kha9009lid said:

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

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

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

On Error GoTo ErrHandler

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

ErrHandler:
    If Err.Number = 2501 Then Exit Sub

 

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information