الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تحويل جدول اكسس الى اكسيل

بدأه A3.com في 6 أغسطس 2019 · 6 رد · 874 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم و رحمته الله و بركاته
أيام مبارك بذن الله

اخواني كم تعودت منكم الأخوي و الإفادة من علم افادكم الله به و علما ينفع به نفس و و ينفع به الناس

عمل برنامج في الاكسس جدول بيانات فية ادخالات اكثر من 70,000 - سبعين الف عميل و عمل له زر تحويلة الى اكسيل و رفض التحويل و يظهر لى رسالة بانه لاينسخ اكثر من 65,000 عميل فقط و مرفق صورة لذلك . مع العلم تم تحديد نوع التصدير الى الاكسيل (bslx.*) اتمني ان تساعدوني في حاله .

بارك الله فيكم و عزكم الله بعلمكم بمن ينفعكم و ينفع الناس ... خير الناس انفع لناس.

Screenshot (28).png

#2

لا تستخدم خيار "تصدير مع التنسيق والتخطيط" او export with formatting and layout

−1▲ -1
#3
العقيبي كتب:

لا تستخدم خيار "تصدير مع التنسيق والتخطيط" او export with formatting and layout

تم تجربه الطريقة و لكن اريد عمل زر بارك الله فيك

#4
العقيبي كتب:

لا تستخدم خيار "تصدير مع التنسيق والتخطيط" او export with formatting and layout

تم تعديل هذه المشاركة بواسطة العقيبي في 13 أغسطس 2019 في 21:10

#5
A3.com كتب:

تم تجربه الطريقة و لكن اريد عمل زر بارك الله فيك

شوف يالحبيب قم بعملية التصدير من اكسس كالمتعاد, مع مراعاة عدم استخدام تصدير مع التنسيق ثم سيقوم اكسس بسؤالك "هل تريد حفظ خطوات التصدير لاستخدمها لاحقا"

قم بحفظ التصدير باي اسم تريد, ثم انشا زر وضع الكود التالي:

DoCmd.RunSavedImportExport "tbMOV"

حيث tbMOV هو الاسم الذي اخترته لعملية التصدير

واذا كان انت اللي حطيت لي Dislike فقم بازلتها وشكرا

#6

شكر لجميع على حسن تعاونكم لقيت الجواب في احدى المعاهد البريطانية UKaccess و افادني بان استخدم الماكرو بان هناك زر اظهار كافة الإجراءات و من ثم اختار استراد و تصدير البيانات يوجد خمس أوامر مخفية تساعد على استراد و تصدير منها ImportExportSpreadsheet Macro Action وذلك لتسهيل العمل بها ... شكرا لكم جميعا على حسن تعاونكم ... بارك الله فيكم جميعا ...

#7

تفضل هذا الكود اخي الكريم معد تعديل قيمة المتغيير X

  

Dim x, x2
x = "Table Name"
x2 = CurrentProject.Path & Me.Text6 & ".xls"
Open CurrentProject.Path & Me.Text6 & ".xls" For Binary Access Write As #1
Close #1
DoCmd.TransferSpreadsheet acExport, 8, x2, x, True

مواضيع مشابهة