• 0
libyan_ame

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

سؤال

السلام عليكم

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

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

المهم

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

DoCmd.OutputTo acOutputReport, asd, .pdf

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

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

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

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

تحيااااتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

A رسالة الخطأ

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

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

تحيااااتي

post-145478-039185700 1323070040_thumb.j

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

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
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

و طبعا بالنسبة للتصدير لملف 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

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

تم تعديل بواسطه libyan_ame
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

أخي الكريم

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

بالتوفيق

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم

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

بالتوفيق

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

تحياتي

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .