كود لحفظ التقارير بصيغه بى دى اف

[tharwt]

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

تم تعديل يوليو 15, 2023 بواسطه tharwt

[ابو البشر]

ممكن مثال او توضيح اكثر

لان موضوع تحويل التقرير ... هناك العديد من المواضيع في المنتدى تتحدث عن تصدير التقرير الى صيغة pdf ..

[دروب مبرمج]

تفضل استخدم الكود التالي

Dim SetRep As Variant, SetRepNew As Variant
    SetRep = "Report1"      ' اسم التقرير
    SetRepNew = CurrentProject.Path & "\" & "Reoprt1" & ".pdf"    ' اسم و مكان حفظ ملف
    DoCmd.OutputTo acOutputReport, SetRep, "PDFFormat(*.pdf)", SetRepNew, True

 

[tharwt]

اشكر مجهودكم ولكن  المطلوب ان يفتح التقرير ثم يحفظ  تلقائى داخل فولدر  بجوار قاعدة البيانات  وياخد اسمه من حقل  فى التقرير نفسه وليكن (ID) 

اسف على عدم الايضاح فى التعليقات السابقه

تم تعديل يوليو 16, 2023 بواسطه tharwt

[tharwt]

هل هذا الامر صعب على الخبراء 

 (    فتح التقرير ثم يحفظ  تلقائى داخل فولدر  بجوار قاعدة البيانات  وياخد اسمه من حقل  فى التقرير نفسه وليكن (ID)    )

[دروب مبرمج]

تفضل

Dim SetRep As Variant, SetRepNew As Variant
    SetRep = "ضع اسم التقرير هنا"
    SetRepNew = CurrentProject.Path & "\" & [ID] & ".pdf"
    DoCmd.OpenReport SetRep, acViewPreview
    DoCmd.OutputTo acOutputReport, SetRep, "PDFFormat(*.pdf)", SetRepNew, True

 

[tharwt]

(    فتح التقرير ثم يحفظ  تلقائى داخل فولدر والذى اسمه Backup  بجوار قاعدة البيانات  وياخد اسمه " اى التقرير"  من حقل  فى التقرير نفسه وليكن (ID)    )  مرفق صور للتوضيح  واشكر استجابتكم والله الموفق

 

[د.كاف يار]

عدل هذا السطر

CurrentProject.Path & "\ضــع هـــنــــــام اســــم الــفــولـــدر\" & [ID] & ".pdf"

 

[tharwt]

شكرا اخونا العزيز دى . كاف . يار تمام  هو المطلوب   بس انا عملت نفس الكلام  بس لم اضع \ فى نهايه الاسم  لك الشكر 

[dr_bioman]

السلام عليكم

مادا لو اردنا ان يتم عمل فولدر تلقاءى باسم الحقل ID  داخل الفولدر backup

بحيث يتم حفظ ملف ال PDF   داخل فولدلID

[شايب]

4 ساعات مضت, dr_bioman said:

مادا لو اردنا ان يتم عمل فولدر تلقاءى باسم الحقل ID  داخل الفولدر backup

الفكرة في انشاء وحذف المجلدات في vba مشابهه لاوامر cmd

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

صيغة انشاء مجلد

MkDir CurrentProject.Path & "\ااسم المجلد\"

لحذف المجلد

RmDir CurrentProject.Path & "\اسم المجلد\"

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

ويمكن التأكد من وجود المجلد قبل تنفيذ الامر من خلال

If Len(Dir(CurrentProject.Path & "\اسم المجلد\", vbDirectory)) = 0 Then

وبناء على النتيجة تنفذ الامر الذي تريده

وهنا يتوقف الاخ شايب 🌹

[دروب مبرمج]

مشاركة مع الاخوة

في حال عدم وجود مجلد بإسم ID

سيتم انشاء مجلد بإسم ID

Dim fso As Object
Dim fldrname As String
Dim fldrpath As String
Set fso = CreateObject("scripting.filesystemobject")
          fldrpath = CurrentProject.Path & "\Backup\" & [ID]
          If Not fso.FolderExists(fldrpath) Then
             fso.createfolder (fldrpath)
          End If