تصدير محتويات نموذج فرعى الى اكسيل و pdf

[jo_2010]

الخبراء الاعزاء 

كل ماريدة فى الصورة

اريد التصدير باسم المريض 

 

TO EXCEL_PDF.accdb

تم تعديل منذ 15 ساعات بواسطه jo_2010

[jjafferr]

تفضل يا سيدي:

 

عملت نسخة من الاستعلام Qry_Lab_Request واسميته

Qry_Lab_Request_for_Export حتى تكون البيانات مخصصة للحقل PCode

.

وهذا كود كل زر تصدير :

Private Sub cmd_Export_to_Excel_Click()

    '- تصدير الى اكسل
    Dim File_Path As String
    
    File_Path = CurrentProject.Path & "\Youssef\" & Me.PCode
    'File_Path = CurrentProject.Path & "\" & Me.PCode

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True
End Sub


Private Sub cmd_Export_to_pdf_Click()
    
    '- تصدير الى PDF
    Dim File_Path As String
    
    File_Path = CurrentProject.Path & "\Youssef\" & Me.PCode & ".pdf"
    'File_Path = CurrentProject.Path & "\" & Me.PCode & ".pdf"

    DoCmd.OutputTo acOutputQuery, "Qry_Lab_Request_for_EXPORT", acFormatPDF, File_Path, False, , , acExportQualityPrint
End Sub

.

1. ولكن الافضل بالنسبة الى التصدير الى الاكسل : 

• ان تقوم بتنظيم اسماء الحقول بالعربية (حاليا هي بالانجليزية ، فجميع اسماء الاعمدة في الاكسل ستكون بالانجليزي) ،
• وتعيد ترتيب الحقول حسب ما تريده في الاكسل ،
• وتحذف الحقول الغير مطلوبة.

2. والافضل بالنسبة الى التصدير الى pdf :

• نفس النقاط اعلاه ،
• عمل تقرير بالعرض.

 

 

1644.TO EXCEL_PDF.accdb.zip

[kkhalifa1960]

مشاركة مع استاذي @jjafferr  تفضل د/   @jo_2010 محاولتي حسب ما فهمت . الشرح  والمرفق . ووافني بالرد .

                                                                   

Jo(2-5-2026).rar

[jjafferr]

48 دقائق مضت, kkhalifa1960 said:

مشاركة مع استاذي @jjafferr 

يا رجال ، انا قلت اعطي يوسف تصبيرة الى ان يجيه المدد 🙂

احسنت

[kkhalifa1960]

استاذي @jjafferr دمت دائماً  مدداً لنا ولا انسى فضلك وفضل الزملاء جميعاً بمددي ..

[jo_2010]

4 ساعات مضت, jjafferr said:

تفضل يا سيدي:

 

عملت نسخة من الاستعلام Qry_Lab_Request واسميته

Qry_Lab_Request_for_Export حتى تكون البيانات مخصصة للحقل PCode

.

وهذا كود كل زر تصدير :

Private Sub cmd_Export_to_Excel_Click()

    '- تصدير الى اكسل
    Dim File_Path As String
    
    File_Path = CurrentProject.Path & "\Youssef\" & Me.PCode
    'File_Path = CurrentProject.Path & "\" & Me.PCode

    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True
End Sub


Private Sub cmd_Export_to_pdf_Click()
    
    '- تصدير الى PDF
    Dim File_Path As String
    
    File_Path = CurrentProject.Path & "\Youssef\" & Me.PCode & ".pdf"
    'File_Path = CurrentProject.Path & "\" & Me.PCode & ".pdf"

    DoCmd.OutputTo acOutputQuery, "Qry_Lab_Request_for_EXPORT", acFormatPDF, File_Path, False, , , acExportQualityPrint
End Sub

.

1. ولكن الافضل بالنسبة الى التصدير الى الاكسل : 

• ان تقوم بتنظيم اسماء الحقول بالعربية (حاليا هي بالانجليزية ، فجميع اسماء الاعمدة في الاكسل ستكون بالانجليزي) ،
• وتعيد ترتيب الحقول حسب ما تريده في الاكسل ،
• وتحذف الحقول الغير مطلوبة.

2. والافضل بالنسبة الى التصدير الى pdf :

• نفس النقاط اعلاه ،
• عمل تقرير بالعرض.

 

 

1644.TO EXCEL_PDF.accdb.zip 276.75 kB · 3 downloads

الخبير الفاضل  jjafferr

قمت بتجربة البرنامج بعد تعديل حضرتك علية واعطى رسالة خطا عند ضغط التصدير الى اكسيل او PDF

 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True

باللون الاصفر

فى pdf  و اكسيل

[jo_2010]

3 ساعات مضت, kkhalifa1960 said:

مشاركة مع استاذي @jjafferr  تفضل د/   @jo_2010 محاولتي حسب ما فهمت . الشرح  والمرفق . ووافني بالرد .

                                                                   

Jo(2-5-2026).rar 686.79 kB · 4 downloads

الخبير المبدع

شكرا علي الحلول الرائعة التى تقدمها

لي عدة طلبات سامحنى علي الاطالة

١  إضافة اجماليات لكل حقول الاكسل

٢ كتابة اسم المريض علي ملف الاكسيل بعد التصدير

ملف pdf يفتح لكنة لم يحفظ اريد حفظة بجوار الاكسيل وياخد اسم المريض

شكرا لحضرتك