تصدير لاكسيل

[محسن سرحان]

اخواني

كل عام وانتم بخير

 عندي جدول به بيانات

اريد عمل زر في نموذج

وظيفة هذا الزر تصدير البيانات من الجدول لملف اكسيل في نفس مسار قاعدة الاكسس

وبتاريخ اليوم

وساعة التصدير

وشكرا اخوانى

[محمد ايمن]

ارسل مرفقا اخي الكريم

[محسن سرحان]

اليك المرفق اخى وكل عام وانتم بخير

New Microsoft Office Access Application.rar

[محمد ايمن]

تفضل اخي الكريم

 

1.rar

[صالح حمادي]

السلام عليكم و رحمة الله تعالى و بركاته.

بعد إذنك أستاذي محمد أيمن أريد أن أضيف تعديلا بسيطا على الكود  من أجل حفظ الملف في نفس مسار البرنامج كما طلب السائل

Dim DP As String
DP = Application.CurrentProject.Path & "\" & Format(Now(), "dddd") & " " & Format(Now(), "ss-nn-hh") & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "table1", DP
MsgBox "تم التصدير إلى أكسل بنجاح" & vbCrLf & "الملف في نفس مسار البرنامج"