الحلبي قام بنشر نوفمبر 16, 2020 مشاركة قام بنشر نوفمبر 16, 2020 السلام عليكم مرفق مثال تم فيه حفظ التقرير بصيغة PDF وليس هناك مشكلة - وكان هذا بمساعدة الدكتور "كاف يار" جزاه الله كل خير المطلوب : حفظ التقرير على سطح المكتب بدل من حفظه بجانب قاعدة البيانات buying.rar رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر نوفمبر 16, 2020 مشاركة قام بنشر نوفمبر 16, 2020 عليكم السلام لا يمكنني التعديل على المرفق هذه الدالة تستخرج مسار سطح المكتب لديك Function GetDesktop() As String Dim oWSHShell As Object Set oWSHShell = CreateObject("WScript.Shell") GetDesktop = oWSHShell.SpecialFolders("Desktop") Set oWSHShell = Nothing End Function 2 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر نوفمبر 16, 2020 الكاتب مشاركة قام بنشر نوفمبر 16, 2020 31 دقائق مضت, ابوخليل said: هذه الدالة تستخرج مسار سطح المكتب لديك هلا بمعلمنا الجليل حياك الله قمت بنسخ الدالة واستدعائها مع الزر الذى به الكود ولكنه يحفظ بجانب قاعدة البيانات ايضا بارك الله فيك وجزاك كل خير 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر نوفمبر 16, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 16, 2020 السلام عليكم 🙂 قمت بدمج دالة اخوي ابوخليل الى برنامجك 🙂 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 . جعفر 2 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر نوفمبر 16, 2020 الكاتب مشاركة قام بنشر نوفمبر 16, 2020 الله الله عليك استاذنا الفاضل / جعفر ...... وياسلام على كود معلمنا الجليل ابوخليل شئ فى منتهى الخبرة والعبقرية من مُعلمين هذ الصرح العظيم الحمد لله تم المطلوب بفضل الله تعالى ثم خبرة اهرامات منتدانا العظيم جزاهم الله خيرا وزادهم علما ورحم الله والديهم لكما كل الاحترام والتقدير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان