• 0
A3.com

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

سؤال

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

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

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

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

Screenshot (28).png

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0
On ‏٠٦‏/‏٠٨‏/‏٢٠١٩ at 11:00 PM, العقيبي said:

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
On ٦‏/٨‏/٢٠١٩ at 11:00 PM, العقيبي said:

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

 

تم تعديل بواسطه العقيبي
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
On ٩‏/٨‏/٢٠١٩ at 5:44 AM, A3.com said:

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

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

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

DoCmd.RunSavedImportExport "tbMOV"

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تفضل هذا الكود اخي الكريم معد تعديل قيمة المتغيير 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

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • -1

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

-1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .