تصدير جدول الاكسس الى اكسل نوع csv

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

ExportCSV.rar

الى الاخت الغزيزة زهرة انا اعجز عن الشكر

لكن الملف ليعمل معى

أخي الفاضل

اقتباس

لكن الملف ليعمل معى

اي ملف بارك الله فيك

هل هو ملف الأكسيس ام ملف CSV

ايضا ما هو اصدار نسخة الأوفيس لديك فلقد عملت هذه الملفات على اصدار اوفيس 2003 عربي

ملف الاكسس يعطينى رسالة خطا ولا ينفذ الامر الاكسس عندى 2003 انجليزى

اخي الفاضل

اعتقد انه يوجد لديك مشكله في برنامج الأكسيس فقد لا يكون كامل عموما

قم بعمل نموذج جديد او اذا كان لديك نموذج جاهز فقم بعمل زر امر عليه ثم ضع هذا الكود في حدث عند النقر على زر الأمر

Private Sub Export_Click()
Dim strPaht As String
strPath = Application.CurrentProject.Path
DoCmd.TransferText acExportDelim, "", "Table", strPath & "\Table.csv", True, ""
End Sub

لاحظ اسم زر الأمر في الكود هو Export قد يكون لديك بإسم Command بعد ان تقوم بإنشاء زر الأمر فعليك بتغييره في الكود

هذا الملف بعد التعديل

ExportToCSV.rar

الاخة الغالية زهرة قد قمة بعمل فورم جديد ونجح التصدير الى ملف اكسل csv

ولكن هناك مشكله اخرة هى ان جدول بالكامل يخرج فى حفل واحد فقط وانا اريد ان يخرج كما هو

وقد ارسالة الى حضرتك الشكل الذى اريد الحصول علية بعد الخروج

اسف الملف المرفق

____________1.rar

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

الملف بعد التعديل

ضع الكود التالي تحت زر أمر

Private Sub Export_Click()
Dim strPaht As String
strPath = Application.CurrentProject.Path
DoCmd.OutputTo acTable, "الجسر العربي1", "MicrosoftExcelBiff8(*.xls)", strPath & "\الجسر العربي1.csv", True, "", 0
End Sub

وهذا الملف بعد التعديل

ExportToCSV_UP.rar

بسم الله الرحمن الرحيم

بارك الله فيك اختنا زهرة