رسالة تم تجاوز عدد تأمينات مشاركة الملفات

اخي الفاضل كمال النحال

السلام عليكم ورحمة الله وبركاته

من المعروف انه عند معالجة بيانات كثيره تفوق طاقة DBEngine فإنه سوف يتوقف عند نقطة معينة والإفتراضي هو 9500 سجل كحد اقصى ولكي نقوم بزيادة عدد سجلات المعالجة الى ما هو اكثر من الوضع الإفتراضي فلدينا طريقتين

الطريقة الأولى : التغيير عن طريق الريجستري

1. من الويندوز اضغط على ابدأ

2. اختر تشغيل

3. اكتب في الصندوق الكلمة التالية REGEDIT

4. اتبع المسار التالي حتى تصل الى MaxLocksPerFile

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Jet 4.0\MaxLocksPerFile

5. اضغط على MaxLocksPerFile مرتين وقم بزيادتها الى اي رقم تريد

اما الطريقة الثانية فهي عن طريق الكود

DAO.DBEngine.SetOption DAO.dbMaxLocksPerFile, 100000

لمزيد من المعلومات راجع الرابط التالي

http://support.microsoft.com/default.aspx?...kb;en-us;815281

أخـــتي زهــــرة .... أسعد اللـــــه أوقاتــك دائمـــاً

أنا فخـــور جـــداً بــك .. لأنــك بالفعـــل كــنز لا ينضــب لهـــذا المنتــــدى العظيـــم ومهما تحــدثت لا يمكـــن أن أوفــي بحقــك .

البرنامج عمل بنجـــاح وتم احتســـاب 35516 فاتورة في أقــل من نصف دقيقة وهـــذا إنجـــاز كنــت لا أحلم بهـــذه الســـرعـــة وبهـــذا العدد من الفواتير.

أخيك / كمـــال النحـــال

بارك الله فيك اخي كمال وبالتوفيق ان شاء الله تعالى

وفي حال واجهت اي مشاكل متقدمة لا تستطيع حلها فكلنا في خدمتكم نحاول بقدر المستطاع الوصول للحل الأمثل من اقصر الطرق ولا نريد إلا دعوة صادقة بظهر الغيب .

ختاما لك مني كل الشكر والتقدير على كل الجهود المبذوله في المنتدى

شكرا للاخت زهرة

ولكن هل تكرمت وبينت اين يكتب هذا الكود.

تحياتي...

اخي الفاضل بلالي

السلام عليكم ورحمة الله وبركاته

الطريقة الثانية التي بالكود تستخدم بطريقة مؤقته وقت المعالجة فقط حيث يتم ارسال القيمة القصوى التي تقوم انت بكتابتها الى الريجستري بشكل مؤقت ثم تعود القيمة الإفتراضية للريجستري الى 9500 ولكن ان اردت ان يكون العدد ثابت بدون تغيير لأقصى قيمه فيفضل ان تطبقها كما في الطريقة الأولى من الشرح .

وطريقة استخدام الكود يكون بهذه الطريقة

1. افتح قاعدة البيانات المطلوب تطبيق اقصى عدد معالجات للسجلات

2. من لوحة المفاتيح اضغط على المفتاحين ALT + F11

3. ستجد نفسك في محرر الفيجول بيسك للتطبيقات VBA

4. من قوائم المحرر العلوية ( File Edit View ) اختر View او من لوحة المفاتيح اضغط على مفتاح ALT ثم اضغط حرف V وستفتح لك قائمة View عرض

5. بعد ان تفتح قائمة العرض View اضغط على Immediate Window او من لوحة المفاتيح اضغط على مفتاح Ctrl ثم G وستظهر لك نافذه سفلية Immediate Window

ملاحظة : اختصارا للخطوتين الرابعة والخامسة يكفي فقط بعد فتح محرر الفيجول بيسك ان تضغط على المفتاحين Ctrl ثم G

6. في نافذة العرض اكتب الكود ثم اضغط على مفتاح Enter من لوحة المفاتيح

DAO.DBEngine.SetOption DAO.dbMaxLocksPerFile, 100000

لاحظ في آخر الكود انني وضعت 100000 كحد اقصى بإمكانك تقليله على حسب عدد السجلات لديك مع زيادته قليلا فمثلا لو كان لديك عدد سجلات 20000 تريد معالجتها فيفضل ان تضع 30000 اي بزيادة 10000 سجل زيادة عن عدد السجلات لديك وتذكر ان هذه العملية مؤقته وليس دائمة .

السلام عليكم..

شكرا جزيلا للاخت زهرة على هذا الجواب الوافي الشافي.

واطلب من الله العزيز القدير ان يوفقها دائما وابدا ، ويجعل خاتمتها خيرا ..آمين.

تحياتي...

اما الطريقة الثانية فهي عن طريق الكود

DAO.DBEngine.SetOption DAO.dbMaxLocksPerFile, 100000

أخـــتـي الفاضلـــة ... زهـــرة

أريــد أن أوضـــح لك أن هنــاك إمكانيــــة لحمايـــة البرنامـــج مــن خلا الكـــود الــذي وضعتيـــه بتقييــــد العـــدد 100000 مثـــلاً إلــى 100 وأشـــكرك مــرة أخـــرى.

أخيـــك / كمـــال