السلام عليكم
استخدمت كود الأخت زهرة لتصدير التقرير إلى الإكسيل وإلى ملف وورد ..
Dim stDocName As String
stDocName = "R_xls"
DoCmd.OpenReport stDocName, acViewPreview
Dim strNumber As Variant
strNumber = "R_xls"
DoCmd.OutputTo acReport, "R_xls", "MicrosoftExcelBiff8(*.xls)", "d:\mot\R_2" & strNumber & ".xls", False, "", 0
DoCmd.OutputTo acReport, "R_xls", "RichTextFormat(*.rtf)", "d:\mot\Invoice_" & strNumber & ".doc", False, "", 0ومكان الحفظ محدد بالكود ..
أريد عند ضغط زر تصدير أن يظهر مربع الحوار لتحديد موقع الحفظ ...
أو يكون مكان الحفظ متغير من حقل معين فيه مسار الحفظ ...
شكرا لكم .
