السلام عليكم ورحمة الله وبركاته
اخواني مشرفين واعضاء هذا المنتداى الجميل
لدي كود_يصدر الى اكسل وها هوا
Private Sub Command72_Click()
On Error Resume Next
Dim strPath As String
strPath = Application.CurrentProject.Path & "\"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Sader Query_Masbgha", strPath & "ÍÑßÉ Úãíá", True
End Sub
وهوا يصدر بطريقه ممتازه ولا يوجد به مشا كل والله الحمد لدي اسفسارين
الاول وهوا :: هذا الكود يصدر الى مسار قاعدة البيانات اي مثلا توجد قاعدة البيانات على C:\Program Files\Skay_System\Prodoction_Alpha_Skay_System.mdb
عند التصدير يتم دخول المستخدم الى قاعدة البيانات المذكور مكانها على الويندوز وهنا اريدها بسطح المكتب اوعند الضغط على زر تصدير يظهر لي مربع حوار باي مكان تريد التصدير اليه,
والثاني::: عندي الانتهاء من التصدير اذهب الى ملف الاكسل المصدر من اكسس اعد عملية تنسيقها حيث انه عند التصدير يصدر بدون تنسيقات النموذج المصدر منها وهنا بارك الله بكم اريده يصدر بنفس الطريقه المنسق بها النموذج ولكم مني جزيل الشكر وبارك الله بكم
