حفظ التقرير في مجلد بتاريخ اليوم

[eng aoff]

السلام عليكم اساتذتي الكرام

ممكن كود انشاء مجلد بتاريخ اليوم وحفظ التقرير بصيغة PDF داخل المجلد برقم الفاتورة 

عند النقر على مفتاح طباعة الفاتورة وحفظها بصيغة PDF يتم المطلوب اعلاه 

 

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

فاتورة.accdb

[د.كاف يار]

تفضل

ضع الكود في اي مكان داخل محرر الأكواد

Sub ExortPDF(ReportName As String, FldrName As String, NewFileName As String)
On Error GoTo ErrH

    Dim fso As Object, FldrPath As String: Set fso = CreateObject("scripting.filesystemobject")
    FldrPath = CurrentProject.Path & "\" & FldrName
    If Not fso.FolderExists(FldrPath) Then: fso.createfolder (FldrPath)
    DoCmd.OutputTo acOutputReport, ReportName, _
    "PDF", FldrPath & "\" & NewFileName & ".pdf", _
    False, "", , acExportQualityPrint

Exit Sub
ErrH:
MsgBox "Opes Erorr" & vbNewLine & vbNewLine & "Eror Number :" & " ( " & Err.Number & " )" & vbNewLine _
& vbNewLine & "Eror Description :" & vbNewLine & _
 Err.Description, vbCritical + vbOKOnly, "Err"
End Sub

و في ازرار الحفظ ضع الكود التالي

Call ExortPDF("فاتورة", "BillsFolder", Format(Now, "yyyy-mm-dd"))

 

سيتم انشاء مجلد و سيتم حفظ الفواتير بتاريخ اليوم الحالي

[eng aoff]

جزاك الله خيرا @د.كاف يار تم تطبيق الكود ويعمل بصورة ممتازة

ولكن اريد ان يكون اسم المجلد بأسم تاريخ اليوم وملف pdf برقم الفاتورة واكون شاكر لحضرتك

[eng aoff]

للرفع

 

[د.كاف يار]

تفضل

Dim FolderName as String,BillText as String
FolderName=Format(Now, "yyyy-mm-dd")  'اسم المجلد
BillText= [حقل رقم الفاتورة]  
Call ExortPDF("فاتورة", FolderName, BillText)

 

[eng aoff]

شكرا @د.كاف يار وجزاك الله خير الجزاء هذا هو المطلوب 

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

تفضل

Dim FolderName as String,BillText as String
FolderName=Format(Now, "yyyy-mm-dd")  'اسم المجلد
BillText= [حقل رقم الفاتورة]  
Call ExortPDF("فاتورة", FolderName, BillText)