كود فتح تقرير بصيغة PDF من النموذج (وليس من التقرير)

[الحلبي]

السلام عليكم 

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

DoCmd.OutputTo acOutputReport, "voice_buy", acFormatPDF, , True, , , acExportQualityPrint

الى هنا كله تمام

المطلوب كيف يمكن فتح التقرير بصيغة PDF  من النموذج نفسه وليس من التقرير 

لم اضف مرفق لانى اريد لتعديل فقط على هذا الكود  اين اضع رقم الفاتورة فى هذا الكود ـ  علما بان اسم حقل رقم الفاتورة (MASTERID)

جزاكم الله خيرا

[د.كاف يار]

تفضل اخي الكريم مع مراعاة تعديل ما يلزم

    Dim reportName As String
    Dim fileName As String
    Dim criteria As String
    
    reportName = "اسم التقرير"
    fileName = CurrentProject.Path & "\" & " اسم التقرير " & ".pdf"
    criteria = "[Image No] = 1 " ' هنا الفلتر
    
    DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
    DoCmd.Close acReport, reportName, acSaveNo

 

[الحلبي]

منذ ساعه, د.كاف يار said:

تفضل اخي الكريم مع مراعاة تعديل ما يلزم

الله عليك يادكتور نعم هو المطلوب 

قمت بتعديل ما يلزم وكل شئ تمام 

بارك الله فيك وزادك علما ونفعك بما علمك ورحم الله والديك

الأن ملف PDF يحفظ بجانب قاعدة البيانات تمام التمام ـ ماذا لو اردت ان يحفظ فى مكان اقوم انا بتحديده ؟

جزاك الله كل خير

[د.كاف يار]

اتفضل هذا التعديل

    Dim reportName As String
    Dim fileName As String
    Dim criteria As String
    
    reportName = "اسم التقرير"
    criteria = "[Image No] = 1 " ' هنا الفلتر
    
    DoCmd.OpenReport reportName, acViewPreview, , criteria, ""
    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
    DoCmd.Close acReport, reportName, acSaveNo

 

[الحلبي]

1 ساعه مضت, د.كاف يار said:

اتفضل هذا التعديل

حضرتك يادكتور فى التعديل قمت بحذف سطر تحديد المسار  تمام مافى مشكلة

ولكن عند التطيبق يظل التقرير مفتوحا الى ان اختار مسار جديد ـ هل من طريقة لجعل التقرير غير ظاهر 

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

جزاكم كل خير

[د.كاف يار]

اذا اتفضل هذا التعديل مع مراعاة اضافة اسم التقرير و الفلتر

    Dim ShellApp As Object
    Set ShellApp = CreateObject("Shell.Application"). _
    BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
    On Error Resume Next
    BrowseForFolder = ShellApp.self.path
    On Error GoTo 0
    Set ShellApp = Nothing
    Select Case Mid(BrowseForFolder, 2, 1)
    Case Is = ":"
        If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
    Case Is = "\"
        If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid
    Case Else
        GoTo Invalid
    End Select
    Dim reportName As String
    Dim fileName As String
    Dim criteria As String
    
    reportName = "اسم التقرير"
    fileName = BrowseForFolder & "\" & reportName & ".pdf"
    criteria = "فلتر SQL"
    
    DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
    DoCmd.Close acReport, reportName, acSaveNo

    Exit Sub

Invalid:
    BrowseForFolder = False

 

[الحلبي]

58 دقائق مضت, د.كاف يار said:

اذا اتفضل هذا التعديل مع مراعاة اضافة اسم التقرير و الفلتر

اسف جدا يادكتور عند التطبيق وتغيير كل ما يلزم يتم التالى

يفتح لى بروس لاختيار مكان الحقظ ويفتح التقرير ويغلق كالوميض (يغلق بسرعة وهذا المطلوب) ولكن لا يحفظ فى المكان الذي قمت انا بتحديده بل يحفظه بجوار قاعدة البيانات

كما فى السابق فى الكود الاول فى اول المشاركة .

مافى مشكلة اشكرك ولك كل تحية وتقدير 

[د.كاف يار]

تفضل هذا المثال تم تطبيق الكود عليه

 

الأساسي.accdb

[الحلبي]

طبعا اضافة للمكتبة وانا لا اعرف شئ فى المكتبات