تعديل على كود

[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"

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

تم تعديل منذ 1 ساعه بواسطه kkhalifa1960

[jo_2010]

معلمى الفاضل 

 

 

 

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

[jo_2010]

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

JOOO.rar