الحلبي قام بنشر نوفمبر 15, 2020 مشاركة قام بنشر نوفمبر 15, 2020 السلام عليكم لدى نموذج فاتورة المشتريات به زر ليفتح التقرير بشرط تساوى رقم الفاتورة وعند فتح التقرير يوجد زر بالتقرير يفتح التقرير بصيغة PDF و الكود التالى الذى استخدمه فى التقرير DoCmd.OutputTo acOutputReport, "voice_buy", acFormatPDF, , True, , , acExportQualityPrint الى هنا كله تمام المطلوب كيف يمكن فتح التقرير بصيغة PDF من النموذج نفسه وليس من التقرير لم اضف مرفق لانى اريد لتعديل فقط على هذا الكود اين اضع رقم الفاتورة فى هذا الكود ـ علما بان اسم حقل رقم الفاتورة (MASTERID) جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر نوفمبر 15, 2020 مشاركة قام بنشر نوفمبر 15, 2020 تفضل اخي الكريم مع مراعاة تعديل ما يلزم Dim reportName As String Dim fileName As String Dim criteria As String reportName = "اسم التقرير" fileName = CurrentProject.Path & "\" & " اسم التقرير " & ".pdf" criteria = "[Image No] = 1 " ' هنا الفلتر DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo 2 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر نوفمبر 15, 2020 الكاتب مشاركة قام بنشر نوفمبر 15, 2020 منذ ساعه, د.كاف يار said: تفضل اخي الكريم مع مراعاة تعديل ما يلزم الله عليك يادكتور نعم هو المطلوب قمت بتعديل ما يلزم وكل شئ تمام بارك الله فيك وزادك علما ونفعك بما علمك ورحم الله والديك الأن ملف PDF يحفظ بجانب قاعدة البيانات تمام التمام ـ ماذا لو اردت ان يحفظ فى مكان اقوم انا بتحديده ؟ جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
أفضل إجابة د.كاف يار قام بنشر نوفمبر 15, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 15, 2020 اتفضل هذا التعديل Dim reportName As String Dim fileName As String Dim criteria As String reportName = "اسم التقرير" criteria = "[Image No] = 1 " ' هنا الفلتر DoCmd.OpenReport reportName, acViewPreview, , criteria, "" DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo 2 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر نوفمبر 15, 2020 الكاتب مشاركة قام بنشر نوفمبر 15, 2020 1 ساعه مضت, د.كاف يار said: اتفضل هذا التعديل حضرتك يادكتور فى التعديل قمت بحذف سطر تحديد المسار تمام مافى مشكلة ولكن عند التطيبق يظل التقرير مفتوحا الى ان اختار مسار جديد ـ هل من طريقة لجعل التقرير غير ظاهر بارك الله فيك ان كان لديكم الوقت فجزاكم الله خير وان لم يكن فانا اكتفى بان احقظ التقرير فى نفس مكان قاعدة البيانات جزاكم كل خير رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر نوفمبر 15, 2020 مشاركة قام بنشر نوفمبر 15, 2020 اذا اتفضل هذا التعديل مع مراعاة اضافة اسم التقرير و الفلتر Dim ShellApp As Object Set ShellApp = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Please choose a folder", 0, OpenAt) On Error Resume Next BrowseForFolder = ShellApp.self.path On Error GoTo 0 Set ShellApp = Nothing Select Case Mid(BrowseForFolder, 2, 1) Case Is = ":" If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid Case Is = "\" If Not Left(BrowseForFolder, 1) = "\" Then GoTo Invalid Case Else GoTo Invalid End Select Dim reportName As String Dim fileName As String Dim criteria As String reportName = "اسم التقرير" fileName = BrowseForFolder & "\" & reportName & ".pdf" criteria = "فلتر SQL" DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo Exit Sub Invalid: BrowseForFolder = False 1 رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر نوفمبر 15, 2020 الكاتب مشاركة قام بنشر نوفمبر 15, 2020 58 دقائق مضت, د.كاف يار said: اذا اتفضل هذا التعديل مع مراعاة اضافة اسم التقرير و الفلتر اسف جدا يادكتور عند التطبيق وتغيير كل ما يلزم يتم التالى يفتح لى بروس لاختيار مكان الحقظ ويفتح التقرير ويغلق كالوميض (يغلق بسرعة وهذا المطلوب) ولكن لا يحفظ فى المكان الذي قمت انا بتحديده بل يحفظه بجوار قاعدة البيانات كما فى السابق فى الكود الاول فى اول المشاركة . مافى مشكلة اشكرك ولك كل تحية وتقدير رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر نوفمبر 15, 2020 مشاركة قام بنشر نوفمبر 15, 2020 تفضل هذا المثال تم تطبيق الكود عليه الأساسي.accdb رابط هذا التعليق شارك More sharing options...
الحلبي قام بنشر نوفمبر 15, 2020 الكاتب مشاركة قام بنشر نوفمبر 15, 2020 طبعا اضافة للمكتبة وانا لا اعرف شئ فى المكتبات رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.