شكراً لك اخي الكريم على مساعدتك هذه و على مساعداتك السابقة لي ... هذا هو المطلوب فعلاً
لكن يا اخي يوجد طريقة اخرى غير الاستعلام وابسط منها وهي عبارة عن حيلة بسيطة وجدتها عبر بحثي على الانترنت
وانا عرفت الطريقتين ولكن لا اعرف كيف اشرح الطريقة الاخرى وكود التصدير هو :
Public Sub ExportFilteredReportToPDF()
Dim reportName As String
Dim fileName As String
Dim criteria As String
reportName = "rptYourReportName"
fileName = "C:\tmp\report_export_file.pdf"
criteria = "SomeTextField = 'ABC' AND SomeNumberField = 123"
DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden
DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
DoCmd.Close acReport, reportName, acSaveNo
End Sub