تحويل تقرير الى ملف PDF في اكسس 2010

[هاوي الأكسس]

السلام عليكم

 

ماذا عن تحويل  تقرير الى ملف PDF  في اكسس 2010

 

اعرف طريقة التحويل العادية والتي تظهر من خلالها نافذة اختيار لنوع الملف

لا اريد هذه الطريقة العادية

 

هل هناك كود يحول لنا التقرير مباشرة الى ملف من نوع PDF ?

 

وشكرااااااااااا

 

 

 

............

 

تم إنشاء هذا الموضوع ، باخراج مشاركاته الخاصة عن موضوع يتعلق بتحويل التقرير لصيغة إكسيل ، تحقيقاً لغايات المنتدى ، وسياسته في وضوح غايات المشاركات والمواضيع / أبو آدم

[أبو آدم]

جرب محاولتنا على الرابط ..... PDF المشاركة 58

 

......

[هاوي الأكسس]

شكرا لك كثيرا استاذي الكبير

استفدت من مثالك كثيرا

وعملت تحديثات باستخدام أمر زر وبنفس الكود بما يناسبني كالتالي :
 

Private Sub Command18_Click()


Dim LResponse As Integer
Dim MyFiLeName As String

    If Not NoData Then  ' checks for no data event to prevent a mis fire

        DoEvents
        LResponse = MsgBox("Do you wish to Save the report", vbYesNo, "Save Now or loose it")
        
        DoEvents
        If LResponse = vbYes Then
        
        DoEvents
        MyFiLeName = "D:\Customer reports\" & Format([TabCompName]) & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf"
         
         
' هنا يمكننا اظهار عنوان موقع الملف المحفوظ

        MsgBox "The report was safed successfully" & vbCrLf & MyFiLeName, vbInformation
         
         
' وبهذا الكود يمكننا اظهار فقط معلومة الحفظ
' MsgBox "The report was safed successfully" & vbCrLf, vbInformation


         DoCmd.OutputTo acOutputReport, "TabCompanies", acFormatPDF, MyFiLeName, True
         DoEvents
         

        If LResponse = vbNo Then
        
       DoCmd.CancelEvent
        
        Else
       End If
End If
End If


End Sub

 

 

 

كثير الشكر لك على المساعدة

تم تعديل مارس 21, 2013 بواسطه هاوي الأكسس

[هاوي الأكسس]

السلام عليكم مجدداً

 

أخي الكريم أبو آدم

 

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

وعند الضغط عليه أن يقوم بحفظ تقرير سجل محدد فقط وليس كامل السجلات..

 

Private Sub Command11_Click()

Dim LResponse As Integer
Dim MyFiLeName As String

    If Not NoData Then  ' checks for no data event to prevent a mis fire

        DoEvents
        LResponse = MsgBox("Do you wish to Save the report", vbYesNo, "Save Now or loose it")
        
        If LResponse = vbYes Then

        MyFiLeName = "D:\New PDF Forms\" & Format([TabCompName]) & Format(Now, "dd-mm-yyyy hhnnss") & ".pdf"

        
         DoCmd.OutputTo acOutputReport, "TabCompanies", acFormatPDF, MyFiLeName, True
         DoEvents
         

        If LResponse = vbNo Then
        
       DoCmd.CancelEvent
        
        Else
       End If
End If
End If


End Sub

 

كيف أضيف شرط لجعل الكود يحفظ سجل معين فقط وليس جميع السجلات ؟

 

أرفق لك المثال

Safe Report to PDF.rar

[أبو آدم]

أخي العزيز

الأمر منوط بمصدر السجل للتقرير

مثلاً : 

أجعل مصدر السجل للتقرير

 

 

SELECT TabCompanies.TabCompanyID, TabCompanies.TabCompName, TabCompanies.TabCompType, TabCompanies.TabCompTelephoneNo, TabCompanies.TabCompAdressFROM TabCompanies
WHERE (((TabCompanies.TabCompanyID)=[forms]![TabCompanies]![TabCompanyID]));

 

[أبو آدم]

نصحية :

ميز إسم الجدول ببادئة tbl

ميز إسم النموذج ببادئة frm

ميز إسم الاستعلام ببادئة qry

ميز إسم التقرير ببادئة rep

 

 

مرفق تطبيق معدل

NA_Safe Report to PDF.rar

[هاوي الأكسس]

السلام عليكم

 

جزاك الله ألف ألف خير أخي العزيز أبو آدم

 

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

 

تم حل المشكلة ولله الحمد والشكر

والشكر لجهودك واهتمامك

 

وتقبل وافر تحياتي وتقديري

 

تم تعديل مارس 22, 2013 بواسطه هاوي الأكسس