نوشته شده توسط
abdoreza57
بسیار ممنونم ازتون
و سوال آخر اینکه چون من از توابع آقای آرادی برای تاریخ شمسی استفاده میکردم
اگه بخوام پسوند نام فایل اکسل تازیخ روز باشه بفرمایید چطور اینو بهش اضافه کنم
هر چند تو ورزن جدید آفیس تاریخ شمسی بهش اضافه شده ولی اگه 2007 باشه مشکل ساز خواهد بود
واسه همین ترجیخ میدم این ماژول تو برنامه باشه
خدا نگهدار
سلام
از آنجائیکه از کلمه 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