eng aoff قام بنشر مارس 18, 2022 مشاركة قام بنشر مارس 18, 2022 السلام عليكم اساتذتي الكرام ممكن كود انشاء مجلد بتاريخ اليوم وحفظ التقرير بصيغة PDF داخل المجلد برقم الفاتورة عند النقر على مفتاح طباعة الفاتورة وحفظها بصيغة PDF يتم المطلوب اعلاه وجزاكم الله خير الجزاء فاتورة.accdb رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر مارس 19, 2022 مشاركة قام بنشر مارس 19, 2022 تفضل ضع الكود في اي مكان داخل محرر الأكواد 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")) سيتم انشاء مجلد و سيتم حفظ الفواتير بتاريخ اليوم الحالي 4 رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر مارس 19, 2022 الكاتب مشاركة قام بنشر مارس 19, 2022 جزاك الله خيرا @د.كاف يار تم تطبيق الكود ويعمل بصورة ممتازة ولكن اريد ان يكون اسم المجلد بأسم تاريخ اليوم وملف pdf برقم الفاتورة واكون شاكر لحضرتك رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر مارس 20, 2022 الكاتب مشاركة قام بنشر مارس 20, 2022 للرفع رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر مارس 20, 2022 مشاركة قام بنشر مارس 20, 2022 تفضل Dim FolderName as String,BillText as String FolderName=Format(Now, "yyyy-mm-dd") 'اسم المجلد BillText= [حقل رقم الفاتورة] Call ExortPDF("فاتورة", FolderName, BillText) 1 رابط هذا التعليق شارك More sharing options...
eng aoff قام بنشر مارس 20, 2022 الكاتب مشاركة قام بنشر مارس 20, 2022 شكرا @د.كاف يار وجزاك الله خير الجزاء هذا هو المطلوب منذ ساعه, د.كاف يار said: تفضل Dim FolderName as String,BillText as String FolderName=Format(Now, "yyyy-mm-dd") 'اسم المجلد BillText= [حقل رقم الفاتورة] Call ExortPDF("فاتورة", FolderName, BillText) رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان