السلام عليكم
أخوني كيف يمكنني تحول التقرير إلى ملف Document أو PDF
ولكم كل التحية
السلام عليكم
أخوني كيف يمكنني تحول التقرير إلى ملف Document أو PDF
ولكم كل التحية
من طلب العلا
سهر الليالي
ممكن طبعا و الافضل ترفق قاعدة البيانات للعمل عليها
المهم
ممكن عن طريق الكود
DoCmd.OutputTo acOutputReport, asd, .pdf
حيث asd هو اسم التقرير
و ممكن ايضا عن طريق الماكرو
هناك شئ اخر هو النسخة التى تعمل عليها
كيميائى / محمد طه
السلام عليكم
كود بسيط من الاخ mtak33 وعملي
تحيااااتي
السلام عليكم
عند تنفيذ الكود ظهرت لي رسالة خطأ
A رسالة الخطأ
B اظهار الخطأ في الكود
ارجو ايضاح مكان الخطأ
تحيااااتي
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
الله غايتنا و الرسول قدوتنا و القرآن دستورنا و الجهاد سبيلنا و الموت في سبيل الله أسمى أمانينا
{حَتَّى إِذَا جَاءَ أَحَدَهُمُ الْمَوْتُ قَالَ رَبِّ ارْجِعُونِ*لَعَلِّي أَعْمَلُ صَالِحًا فِيمَا تَرَكْتُ*كَلا إِنَّهَا كَلِمَةٌ هُوَ قَائِلُهَا وَمِنْ وَرَائِهِمْ بَرْزَخٌ إِلَى يَوْمِ يُبْعَثُونَ}
و طبعا بالنسبة للتصدير لملف 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 الموجود بالكود أعلاه
بالتوفيق
الله غايتنا و الرسول قدوتنا و القرآن دستورنا و الجهاد سبيلنا و الموت في سبيل الله أسمى أمانينا
{حَتَّى إِذَا جَاءَ أَحَدَهُمُ الْمَوْتُ قَالَ رَبِّ ارْجِعُونِ*لَعَلِّي أَعْمَلُ صَالِحًا فِيمَا تَرَكْتُ*كَلا إِنَّهَا كَلِمَةٌ هُوَ قَائِلُهَا وَمِنْ وَرَائِهِمْ بَرْزَخٌ إِلَى يَوْمِ يُبْعَثُونَ}
شكرا وبارك الله فيكم
على سرعة الاستجابة
لكن أين يكتب هذا الكود
خبرتي ليست كبيرة في الأكسس
ولكم كل التحية
تم تعديل هذه المشاركة بواسطة libyan_ame في 5 ديسمبر 2011 في 20:30
من طلب العلا
سهر الليالي
libyan_ame كتب:شكرا وبارك الله فيكم
على سرعة الاستجابة
لكن أين يكتب هذا الكود
خبرتي ليست كبيرة في الأكسس
ولكم كل التحية
أخي الكريم
الكود يتم وضعه عند حدث عند النقر On Click الخاص بزر أمر الذي تستخدمه لتصدير الملف
بالتوفيق
الله غايتنا و الرسول قدوتنا و القرآن دستورنا و الجهاد سبيلنا و الموت في سبيل الله أسمى أمانينا
{حَتَّى إِذَا جَاءَ أَحَدَهُمُ الْمَوْتُ قَالَ رَبِّ ارْجِعُونِ*لَعَلِّي أَعْمَلُ صَالِحًا فِيمَا تَرَكْتُ*كَلا إِنَّهَا كَلِمَةٌ هُوَ قَائِلُهَا وَمِنْ وَرَائِهِمْ بَرْزَخٌ إِلَى يَوْمِ يُبْعَثُونَ}
alfarouk79 كتب:أخي الكريم
الكود يتم وضعه عند حدث عند النقر On Click الخاص بزر أمر الذي تستخدمه لتصدير الملف
بالتوفيق
شكرا لك وبارك الله فيك
تحياتي
من طلب العلا
سهر الليالي