الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تحويل التقرير التقرير إلى ملف

بدأه libyan_ame في 5 ديسمبر 2011 · 8 رد · 546 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

أخوني كيف يمكنني تحول التقرير إلى ملف Document أو PDF

ولكم كل التحية

من طلب العلا

سهر الليالي

#2

ممكن طبعا و الافضل ترفق قاعدة البيانات للعمل عليها

المهم

ممكن عن طريق الكود

DoCmd.OutputTo acOutputReport, asd, .pdf

حيث asd هو اسم التقرير

و ممكن ايضا عن طريق الماكرو

هناك شئ اخر هو النسخة التى تعمل عليها

1

كيميائى / محمد طه

#3

السلام عليكم

كود بسيط من الاخ mtak33 وعملي

تحيااااتي

#4

السلام عليكم

عند تنفيذ الكود ظهرت لي رسالة خطأ

A رسالة الخطأ

B اظهار الخطأ في الكود

ارجو ايضاح مكان الخطأ

تحيااااتي

post-145478-039185700 1323070040_thumb.j

المرفقات
pdf error.jpg
#5
sweety78 كتب:

السلام عليكم

عند تنفيذ الكود ظهرت لي رسالة خطأ

A رسالة الخطأ

B اظهار الخطأ في الكود

ارجو ايضاح مكان الخطأ

تحيااااتي

تفضل أخي الكريم

قم بتجربته و ان شاء الله سيفي بالغرض

Private Sub CmdExport2PDF_Click()
On Error GoTo Err_CmdExport2PDF_Click

Dim stDocName As String

stDocName = "ReportName"

DoCmd.OutputTo acReport, stDocName, acFormatPDF, CurrentProject.Path & "\" & "Name what you want.pdf", True

Exit_CmdExport2PDF_Click:
Exit Sub

Err_CmdExport2PDF_Click:
MsgBox Err.Description
Resume Exit_CmdExport2PDF_Click

End Sub

مع العلم أخي الكريم

ان اسم التقرير الخاص بك لابد و ان تستبدله ب ReportName الموجود بالكود أعلاه

و الاسم الذي تريد ان يتم حفظ الملف به لابد و ان تستبدله ب Name what you want الموجود بالكود أعلاه

بالتوفيق

تم تعديل هذه المشاركة بواسطة alfarouk79 في 5 ديسمبر 2011 في 13:39

1

الله غايتنا و الرسول قدوتنا و القرآن دستورنا و الجهاد سبيلنا و الموت في سبيل الله أسمى أمانينا

{حَتَّى إِذَا جَاءَ أَحَدَهُمُ الْمَوْتُ قَالَ رَبِّ ارْجِعُونِ*لَعَلِّي أَعْمَلُ صَالِحًا فِيمَا تَرَكْتُ*كَلا إِنَّهَا كَلِمَةٌ هُوَ قَائِلُهَا وَمِنْ وَرَائِهِمْ بَرْزَخٌ إِلَى يَوْمِ يُبْعَثُونَ}

#6

و طبعا بالنسبة للتصدير لملف DOC

Private Sub Export2DOC_Click()
On Error GoTo Err_Export2DOC_Click

Dim stDocName As String

stDocName = "ReportName"

DoCmd.OutputTo acOutputReport, stDocName, acFormatRTF, CurrentProject.Path & "\" & "Name what you want.Doc", False

Exit_Export2DOC_Click:
Exit Sub

Err_Export2DOC_Click:
MsgBox Err.Description
Resume Exit_Export2DOC_Click
End Sub

مع العلم ايضا

ان اسم التقرير الخاص بك لابد و ان تستبدله ب ReportName الموجود بالكود أعلاه

و الاسم الذي تريد ان يتم حفظ الملف به لابد و ان تستبدله ب Name what you want الموجود بالكود أعلاه

بالتوفيق

1

الله غايتنا و الرسول قدوتنا و القرآن دستورنا و الجهاد سبيلنا و الموت في سبيل الله أسمى أمانينا

{حَتَّى إِذَا جَاءَ أَحَدَهُمُ الْمَوْتُ قَالَ رَبِّ ارْجِعُونِ*لَعَلِّي أَعْمَلُ صَالِحًا فِيمَا تَرَكْتُ*كَلا إِنَّهَا كَلِمَةٌ هُوَ قَائِلُهَا وَمِنْ وَرَائِهِمْ بَرْزَخٌ إِلَى يَوْمِ يُبْعَثُونَ}

#7

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

على سرعة الاستجابة

لكن أين يكتب هذا الكود

خبرتي ليست كبيرة في الأكسس

ولكم كل التحية

تم تعديل هذه المشاركة بواسطة libyan_ame في 5 ديسمبر 2011 في 20:30

من طلب العلا

سهر الليالي

#8
libyan_ame كتب:

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

على سرعة الاستجابة

لكن أين يكتب هذا الكود

خبرتي ليست كبيرة في الأكسس

ولكم كل التحية

أخي الكريم

الكود يتم وضعه عند حدث عند النقر On Click الخاص بزر أمر الذي تستخدمه لتصدير الملف

بالتوفيق

1

الله غايتنا و الرسول قدوتنا و القرآن دستورنا و الجهاد سبيلنا و الموت في سبيل الله أسمى أمانينا

{حَتَّى إِذَا جَاءَ أَحَدَهُمُ الْمَوْتُ قَالَ رَبِّ ارْجِعُونِ*لَعَلِّي أَعْمَلُ صَالِحًا فِيمَا تَرَكْتُ*كَلا إِنَّهَا كَلِمَةٌ هُوَ قَائِلُهَا وَمِنْ وَرَائِهِمْ بَرْزَخٌ إِلَى يَوْمِ يُبْعَثُونَ}

#9
alfarouk79 كتب:

أخي الكريم

الكود يتم وضعه عند حدث عند النقر On Click الخاص بزر أمر الذي تستخدمه لتصدير الملف

بالتوفيق

شكرا لك وبارك الله فيك

تحياتي

من طلب العلا

سهر الليالي

مواضيع مشابهة