نقل قول نوشته شده توسط eb_1345 مشاهده تاپیک
سلام
از آنجائیکه از کلمه Shamsi در تاریخ شمسی ورژن های جدید اکسس و تابع تاریخ جناب آزادی استفاده شده ممکن است در هنگام فراخوانی تابع تاریخ شمسی جناب آزادی در ورژن های جدید اکسس خطای تکراری بودن تابع Shamsi صادر شود . بنابراین بهتر است در تابع تاریخ جناب آزادی کلمه ای دیگر جایگزین کلمه Shamsi شود مثلاً AzadiShamsi جایگزین Shamsi شود .
ضمناً در پوشه برنامتون پوشه ای با عنوان ExcelFiles جهت فایل های ایجاد شده اکسل ایجاد کن!
پس از انجام دو کار فوق حالا از کدهای زیر برای ارسال اطلاعات به اکسل استفاده کن !


Dim strpath As String

Dim strFileName As String

strpath = Access.CurrentProject.path & "\ExcelFiles\"

If Len(Dir$(strpath, vbDirectory)) = 0 Then

   MsgBox "پوشه فایل اکسل در مسیر برنامه موجود نمی باشد.", vbOKOnly + vbExclamation, "خطا"

   Exit Sub

End If

strFileName = Azadishamsi & ".xlsx"

DoCmd.OutputTo acOutputQuery, "Query1", "Excel Workbook (*.xlsx)", strpath & strFileName, True
استاد بهرامی عزیز خدا خیرتون بده
خیلی ممنون و سپاسگزارم
موفق باشید .