اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


Mohameddd200300
إذهب إلى أفضل إجابة Solved by Mohameddd200300,

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

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

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

هذا الكود 

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

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

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

 

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

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

 

وشكرا لكم 

تم تعديل بواسطه Mohameddd200300
رابط هذا التعليق
شارك

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

 

رابط هذا التعليق
شارك

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

هذا   

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

 

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

 

 

رابط هذا التعليق
شارك

  • أفضل إجابة

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]

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

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

تحياتي

  • Like 1
رابط هذا التعليق
شارك

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

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

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 وهي تساعد على تحسين اخراج للملف للعرض على الشاشة

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

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

تحياتي

  • Like 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

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

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

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

لقطة الشاشة 2022-09-23 164925.png

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information