مشكلة طارئة
بعد أن تم المطلوب في هذا الملف التجريبي الصغير قمت بتجربة الأكواد على ملف كبير وفيه أكثر من (45000) صف ، في نموذج مفرد
فلم تعمل الأكواد وأصبحت تظهر رسالة الخطأ في هذا السطر من الكود الذي تفضلت به
x = Me.ID
وفي الكود الذي اخترعته أنا
LastID = DMax("[ID]", "book0001)"
فاجتهدت وغيرت
Dim x As Integer / إلى / Dim x As Long
وَ
Dim LastID As Integer / إلى / Dim LastID As Long
فاختفت رسالة الخطأ لكنه أصبح يدرج الصفحة الجديدة في آخر الملف ولا يضعها مكانها
ولما فتحت النموذج في وضع التخطيط وطلبت منه الفرز بناء على (IDX) وأغلقت النموذج بعد الحفظ أصبح يضع الصفحات في موضعها
فهل الكود بحاجة لتعديل أم أنه لابد من هذه الخطوة قبل أول استخدام للكود
هذه هي المشكلة الأولى، ولكنها يسيرة
المشكلة الأكبر أن هذا الملف رغم عدد سجلاته الكبير فهو ملف مصغر للتجارب، مصغر من حيث حجم النص فلم أجعله بخيار (مذكرة) لذلك تم حذف معظم النصوص
لكن لما جربته على الملف الرئيسي حيث النصوص كاملة بخيار (مذكرة)
رجع ليقف عند الصفحة الأولى، مع ملاحظة انه أصبح يأخذ وقتا أطول
فهل حجم الداتا له تأثير على الكود .. وهل من حل
وحجم الملف يتجاوز (100) ميجا ولا يمكن رفعه هنا