التعديل على كود مسار حفظ ملف بصيغة PDF الى سطح المكتب

[الحلبي]

السلام عليكم 

مرفق مثال

تم فيه حفظ التقرير بصيغة PDF  وليس هناك مشكلة -  وكان هذا بمساعدة الدكتور "كاف يار"    جزاه الله كل خير

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

 

buying.rar

[ابوخليل]

عليكم السلام

لا يمكنني التعديل على المرفق

هذه الدالة تستخرج مسار سطح المكتب لديك

Function GetDesktop() As String
    Dim oWSHShell As Object
    Set oWSHShell = CreateObject("WScript.Shell")
    GetDesktop = oWSHShell.SpecialFolders("Desktop")
    Set oWSHShell = Nothing
End Function

 

[الحلبي]

31 دقائق مضت, ابوخليل said:

هذه الدالة تستخرج مسار سطح المكتب لديك

هلا بمعلمنا الجليل حياك الله

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

بارك الله فيك وجزاك كل خير

[jjafferr]

السلام عليكم 🙂

 

قمت بدمج دالة اخوي ابوخليل الى برنامجك 🙂

 

Private Sub Command44_Click()
  Dim reportName As String
    Dim fileName As String
    Dim criteria As String
    
    reportName = "r_buy"
    fileName = GetDesktop & "\" & "r_buy" & ".pdf"
    criteria = "masterid='" & masterid & "'"
    
    DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
    DoCmd.Close acReport, reportName, acSaveNo
End Sub

Function GetDesktop() As String
    Dim oWSHShell As Object
    Set oWSHShell = CreateObject("WScript.Shell")
    GetDesktop = oWSHShell.SpecialFolders("Desktop")
    Set oWSHShell = Nothing
End Function

.

جعفر

[الحلبي]

الله الله عليك استاذنا الفاضل / جعفر ......    وياسلام على كود معلمنا الجليل ابوخليل

شئ فى منتهى الخبرة والعبقرية من مُعلمين هذ الصرح العظيم

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

جزاهم الله خيرا وزادهم علما ورحم الله والديهم 

لكما كل الاحترام والتقدير