استخراج تقرير PDF بشرط رقم الفاتورة

[Mohameddd200300]

سلام عليكم ورحمة الله وبركاته 

عندك كود استخراج التقرير بصيغة PDF  شغال كويس ويحفظ بالاسم الي ابغا والموقع الي ابغا بس مشكلتي  انه ياخذ السجلات  كلهم  بملف واحد. مع العلم التقرير مفتوح  والشرط يكون في الكود مش في التقرير 

هذا الكود 

DoCmd.OutputTo acOutputReport, "طبعات كرت", acFormatPDF, file_name, False, , , acExportQualityPrint

ابغا يستخرج التقرير بشرط يكون رقم الفاتورة نفسه زي هذا الكود الي عامله لطباعة الفاتورة  بشرط الرقم في الكود 

DoCmd.OpenReport "طبعات كرت", acViewPreview, "", "[الرقم كمبيوتر]=[Forms]![تعديل المقاسات]![الرقم كمبيوتر]", acNormal

 

انشالله وصلت الفكره 

يعني ابغا يكون الشرط في الكود مش في التقرير 

 

وشكرا لكم 

تم تعديل سبتمبر 22, 2022 بواسطه Mohameddd200300

[عبد الله قدور]

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

DoCmd.OpenReport "طبعات كرت", acViewPreview, "", "[الرقم كمبيوتر]=[Forms]![تعديل المقاسات]![الرقم كمبيوتر]", acNormal

DoCmd.OpenReport "طبعات كرت", acViewPreview, "", "[الرقم كمبيوتر]=" & [Forms]![تعديل المقاسات]![الرقم كمبيوتر], acNormal

 

[Mohameddd200300]

ابغا استخرج التقرير بصيغة pdf  وليس  فتح التقرير   ابغا المثال الاول   والشرط يكون زي المثال الثاني 

هذا   

    DoCmd.OutputTo acOutputReport, "طبعات كرت", acFormatPDF, file_name, False, , , acExportQualityPrint

 

3 ساعات مضت, عبد الله قدور said:

DoCmd.OpenReport "طبعات كرت", acViewPreview, "", "[الرقم كمبيوتر]=" & [Forms]![تعديل المقاسات]![الرقم كمبيوتر], acNormal

 

 

[Mohameddd200300]

Dim RepName As String

Dim stDocName As String

RepName = Me![رقم الفاتورة]

stLinkCriteria = "[رقم الفاتورة]=" & Me![رقم الفاتورة]

stDocName = "وصل بيع"

DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, CurrentProject.Path & "\" & RepName & ".PDF", False

DoCmd.Close acReport, "وصل بيع"

[متقاعد]

في 22‏/9‏/2022 at 10:23, Mohameddd200300 said:

يعني ابغا يكون الشرط في الكود مش في التقرير

الامر

DoCmd.OutputTo

له ثمانية معلمات او Parameters

هذه المعلمات ليس منها ما يخص الفلترة وبالتالي لن نستطيع اضافة شرط الفلترة ضمن الامر نفسه

ولكن هناك طرق للتحقيق المطلوب وسوف اتحدث عن طريقتين ولكن بشكل مختصر

• وضع الشرط في امر فتح التقرير كما في اجابتك التي اشرت اليها بانها الاجابة الافضل

  9 ساعات مضت, Mohameddd200300 said:

  DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

  هنا ☝️ الشرط عن طريق متغير وبالتالي فهذه الطريقة لا تختلف عن طريقتك في بداية الموضوع واختيارك لها كافضل اجابة خيارك الشخصي ولكنه بالنسبة لمبرمج قديم امر غير منطقي الا اذا كنت تراجعت عن شرطك الاساسي

  17 ساعات مضت, Mohameddd200300 said:

  ابغا استخرج التقرير بصيغة pdf  وليس  فتح التقرير   ابغا المثال الاول   والشرط يكون زي المثال الثاني 

• الطريقة الثانية وبدون الحاجة الى امر فتح للتقرير عن طريق وضع مصدر السجلات للتقرير استعلام بمعيار رقم الفاتورة

  [forms]![kkk]![id]

  وبالتالي سيتم تصدير الفاتورة الحالية فقط وبدون الحاجة الى امر فتح التقرير

اخيرا ما سبق وجهة نظر وليس الهدف النقد لاختياراتك

تحياتي

[متقاعد]

كما اشرت لا يشترط فتح التقرير عند التصدير اتحدث هنا عن الطريقة الثانية التي اشرت اليها وهي وضع مصدر السجلات للتقرير استعلام بمعيار من النموذج الذي يحتوي على زر امر التصدير

وممكن كتابة الكود على النحو التالي

Dim k As String
k = Me.NO & ".pdf"
DoCmd.OutputTo acOutputReport, "r_A", _
acFormatPDF, "d:\" & k, True

في اخر معلمَه في الامر وضعنا true  وهنا بمجرد تصديره سيتم فتحه بواسطة البرنامج الافتراضي لملفات pdf

واذا اردنا عدم فتح الملف الناتج فقط نحذف المعلمَه

Dim k As String
k = Me.NO & ".pdf"
DoCmd.OutputTo acOutputReport, "r_A", _
acFormatPDF, "d:\" & k

وممكن استخدام المعلمات التي اشرت اليها في ردي الاول مثلا تحديد ترميز نصي معين وايضا تحديد جودة الملف الناتج وهنا لدينا قيمتان

• acExportQualityPrint وقيمتها الافتراضية 0 وهي تساعد على تحسين اخراج الملف للطباعة وهي الافتراضية عند عدم اختيار هذه المعلمَه
• acExportQualityScreen وقيمتها الافتراضية 1 وهي تساعد على تحسين اخراج للملف للعرض على الشاشة

كما يمكن تحديد مكان الحفظ مباشرة او بشكل يدوي وايضا ممكن تحديد الاماكن المطلوبة من خلال قائمة منسدلة

الحديث يطول لما يمكن عمله ولكن خير الزاد مابلغك المحل

تحياتي

[متقاعد]

منذ ساعه, rockjone33 said:

وربط نافذة الاستعلام الرئسي والفرعي ب ID = # > "رقم الفاتورة" .. 🙂

اذا كانت البيانات من اكثر من جدول وهناك علاقة تم عملها مسبقا بين الجداول

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

منذ ساعه, rockjone33 said:

# بشرط ان يكون التقرير صغير اصغر من حجم icon  ومخفي عند حدث تحديث .. 👓

اذا اعتمدنا على طريقة فتح التقرير ثم التصدير ممكن جعل التقرير يفتح في وضع مخفي

مثال هذه الطريقة ⬇️

Dim reportName As String
Dim fileName As String
Dim criteria As String
Dim filepath As String
    reportName = "r_A"
    fileName = Me.NO & ".pdf"
    criteria = "[no]=" & Me.NO
    filepath = "d:\"
    DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, filepath & fileName
    DoCmd.Close acReport, reportName, acSaveNo

 

منذ ساعه, rockjone33 said:

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

# بشرط ان يكون التقرير صغير اصغر من حجم icon  ومخفي عند حدث تحديث .. 👓

 

في طريقة التصدير يمكن تصدير تقرير وممكن استعلام وممكن جدول وهنا لا يتم معاينة الكائن اثناء عملية التصدير

مثال لتصدير استعلام لعرض السجل الحالي نضع المعيار الذي اشرنا اليه في الاستعلام ثم يكون الامر

Dim k As String
k = Me.NO & ".pdf"
DoCmd.OutputTo acOutputQuery, "q_1", _
acFormatPDF, "d:\" & k

فقط حددنا نوع الكائن المراد تصديره بانه استعلام

طبعا تصدير التقرير افضل من تصدير استعلام لغرض التنسيق

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