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"
السابق يحفظ بجوار القاعدة