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

**jo_2010** · بالامس في 08:10

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

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

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

TO EXCEL_PDF.accdb

تم تعديل بالامس في 08:18 بواسطه jo_2010

**jjafferr** · منذ 20 ساعات

تفضل يا سيدي:

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

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

image.png.5113c6088c0190be07b1377d62df533c.png

.

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

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** · منذ 18 ساعات

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

image.gif.d8ce6dfbb4dba98bc176adb59a4c9c8f.gif

Jo(2-5-2026).rar

**jjafferr** · منذ 17 ساعات

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

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

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

احسنت

**kkhalifa1960** · منذ 17 ساعات

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

**jo_2010** · منذ 15 ساعات

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** · منذ 14 ساعات

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

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

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

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

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

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

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

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

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

شكرا لحضرتك

**jo_2010** · منذ 8 ساعات

6 ساعات مضت, jo_2010 said:

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

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

لي سامحنى علي الاطالة

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

total in_price out_price

اغتذر لانى لم الاحط اضافة الاكسيل فى فولدر مختلف عن فولدر pdf

شكرا لحضرتك

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

**jjafferr** · منذ 7 ساعات

7 ساعات مضت, jo_2010 said:

واعطى رسالة خطا عند ضغط التصدير الى اكسيل او PDF

هممم

1. انا لم اتاكد من وجود مجلد باسم Youssef في المجلد المحلي ، فهل هو موجود ؟

بالتعديل التالي ، قمت بالتاكد من وجود لبمجلد Youssef ، وان لم يكن موجودا ، فيقوم الكود بعمله :

Private Sub cmd_Export_to_Excel_Click()

    '- تصدير الى اكسل
    Dim File_Path As String
    
    File_Path = CurrentProject.Path & "\Youssef\" 
  if dir(File_Path,vbdirectory)="" then
  mkdir File_Path
  endif
  File_Path=File_Path & "\" & 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\" 
  if dir(File_Path,vbdirectory)="" then
  mkdir File_Path
  endif
  File_Path=File_Path & "\" & 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

2. دائما لما تحصل على رسالة خطأ ، رجاء ارفاقها حتى نعرف سبب الخطأ ، ونستطيع مساعدتك ،

3. ومع اني اعرف ان رد الاستاذ خليفة هو الافضل للاستعمال ، ولكن رجاء اعمل التجربة اعلاه واعطنا النتيجة لوسمحت.

**jo_2010** · منذ 1 ساعه

5 ساعات مضت, jjafferr said:
هممم

1. انا لم اتاكد من وجود مجلد باسم Youssef في المجلد المحلي ، فهل هو موجود ؟

بالتعديل التالي ، قمت بالتاكد من وجود لبمجلد Youssef ، وان لم يكن موجودا ، فيقوم الكود بعمله :
Private Sub cmd_Export_to_Excel_Click()

    '- تصدير الى اكسل
    Dim File_Path As String
    
    File_Path = CurrentProject.Path & "\Youssef\" 
  if dir(File_Path,vbdirectory)="" then
  mkdir File_Path
  endif
  File_Path=File_Path & "\" & 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\" 
  if dir(File_Path,vbdirectory)="" then
  mkdir File_Path
  endif
  File_Path=File_Path & "\" & 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
2. دائما لما تحصل على رسالة خطأ ، رجاء ارفاقها حتى نعرف سبب الخطأ ، ونستطيع مساعدتك ،

3. ومع اني اعرف ان رد الاستاذ خليفة هو الافضل للاستعمال ، ولكن رجاء اعمل التجربة اعلاه واعطنا النتيجة لوسمحت.

هذة رسالة الخطا التى بظهر لى

**jo_2010** · منذ 1 ساعه

5 ساعات مضت, jjafferr said:
هممم

1. انا لم اتاكد من وجود مجلد باسم Youssef في المجلد المحلي ، فهل هو موجود ؟

بالتعديل التالي ، قمت بالتاكد من وجود لبمجلد Youssef ، وان لم يكن موجودا ، فيقوم الكود بعمله :
Private Sub cmd_Export_to_Excel_Click()

    '- تصدير الى اكسل
    Dim File_Path As String
    
    File_Path = CurrentProject.Path & "\Youssef\" 
  if dir(File_Path,vbdirectory)="" then
  mkdir File_Path
  endif
  File_Path=File_Path & "\" & 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\" 
  if dir(File_Path,vbdirectory)="" then
  mkdir File_Path
  endif
  File_Path=File_Path & "\" & 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
2. دائما لما تحصل على رسالة خطأ ، رجاء ارفاقها حتى نعرف سبب الخطأ ، ونستطيع مساعدتك ،

3. ومع اني اعرف ان رد الاستاذ خليفة هو الافضل للاستعمال ، ولكن رجاء اعمل التجربة اعلاه واعطنا النتيجة لوسمحت.

هذة رسالة الخطا التى بظهر لى

تسجيل الدخول

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

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

jo_2010

jjafferr

kkhalifa1960

jjafferr

kkhalifa1960

jo_2010

jo_2010

jo_2010

jjafferr

jo_2010

jo_2010

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

انشئ حساب جديد

تسجيل دخول

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information