اذهب الي المحتوي
أوفيسنا

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


الحلبي
إذهب إلى أفضل إجابة Solved by د.كاف يار,

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

السلام عليكم 

لدى نموذج فاتورة المشتريات به زر ليفتح التقرير بشرط تساوى رقم الفاتورة وعند فتح التقرير يوجد زر بالتقرير يفتح التقرير بصيغة 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

 

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

منذ ساعه, د.كاف يار 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

 

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

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

 

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

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

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

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

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

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

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

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

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