تعديل على كود لفتح التقارير كأنها PDF

[jo_2010]

الخبراء الافاضل

بعد التحية

عند كود لفتح عدة تقارير حسب تاريخ محدد

اريد التعديل على هذا الكود لفتح هذة التقارير كانها pdf  اليكم الكود

 DoCmd.OpenReport "Y_N_Report", acViewPreview, , "ddate = #" & Format([DDate], "yyyy-mm-dd") & "# AND NOT IsNull(colour)", , Screen.ActiveControl.Caption

خالص الشكر لمساعدتكم

[kkhalifa1960]

Dim FileName As String

' نأخذ الـ Caption من الـ Control النشط ونستخدمه كاسم للملف
FileName = "C:\Reports\" & Screen.ActiveControl.Caption & "_" & Format([DDate], "yyyymmdd") & ".pdf"

' فتح التقرير في الخلفية مع الشرط
DoCmd.OpenReport "Y_N_Report", acViewPreview, , _
    "ddate = #" & Format([DDate], "yyyy-mm-dd") & "# AND NOT IsNull(colour)", , acHidden

' تصدير التقرير إلى PDF بالاسم الديناميكي
DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, FileName, False

' إغلاق التقرير بعد التصدير
DoCmd.Close acReport, "Y_N_Report"

السابق يحفظ بمجلد (Reports) بالمسار (C)

 

Dim FileName As String

' تكوين اسم الملف بجوار القاعدة
FileName = CurrentProject.Path & "\" & Screen.ActiveControl.Caption & "_" & Format([DDate], "yyyymmdd") & ".pdf"

' فتح التقرير في الخلفية مع الشرط المطلوب
DoCmd.OpenReport "Y_N_Report", acViewPreview, , _
    "ddate = #" & Format([DDate], "yyyy-mm-dd") & "# AND NOT IsNull(colour)", , acHidden

' تصدير التقرير إلى PDF بالاسم الديناميكي بجوار القاعدة
DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, FileName, False

' إغلاق التقرير بعد التصدير
DoCmd.Close acReport, "Y_N_Report"

السابق يحفظ بجوار القاعدة

تم تعديل بالامس في 08:46 بواسطه kkhalifa1960

[jo_2010]

معلمى الفاضل 

اليكم القاعدة للتعديل عليها

JOOO.rar

تم تعديل بالامس في 09:35 بواسطه jo_2010

[kkhalifa1960]

تفضل استاذ @jo_2010 المرفق  بعد التعديل بطلبك  .  ووافني بالرد  .

JOOO-1.rar

[jo_2010]

معلمى الفاضل

شكرا لا بداعك منقطع النظير

لى  3 طلبات اخبرة

Case 102
            Me.Refresh

            sPDF = sFolder & "\Report_" & Me.PCode & "_" & _
                   Format(Date, "yyyy-mm-dd") & ".pdf"

            DoCmd.OpenReport "Y_N_Report", acViewPreview, , _
                "[PCode]=" & Me.PCode, , _
                sSubReport

            DoCmd.OutputTo acOutputReport, "Y_N_Report", acFormatPDF, sPDF, False
            DoCmd.Close acReport, "Y_N_Report"

1_تعديل الكود دة بحيث يتم تصدير التقرير باسم المريض تم التاريخ

مثال  الاسم ثم التاريخ  بدون كلمة Report

21/1/2026 _ احمد محمد على

2_كما ارجو فتح التقارير فى وضع مختفى 

3_وفتح التقرير كPDF بعد التصدير

 

تم تعديل منذ 50 دقائق بواسطه jo_2010