[ تمت الإجابة ]كيف يمكن ضغط قاعدة مرتبطة

اخي الفاضل هاني عوض

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

نعم بإمكانك القيام بعملية الضغط والإصلاح Compact and repair لقاعدة البيانات المرتبطة والتي ستكون هي BackEnd والتي تحوي الجداول فقط من خلال هذا الكود الذي يوضع تحت زر امر

Private Sub CmdCompact_Click()
Dim sDBName As String
sDBName = "DB-BE.mdb"
Application.DBEngine.CompactDatabase sDBName, "DB-BE.bak"
Kill sDBName
Name "DB-BE.bak" As sDBName
End Sub

شرح الكود

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

2. ضع اسم قاعدة بياناتك وهو هنا في الكود مثلا DB-BE.mdb

3. نستدعي محرك قاعدة البيانات DBEngine والذي بدوره يستدعي أمر ضغط واصلاح قاعدة البيانات المرتبطة CompactDatabase ثم يقوم بتغيير اسم اللاحقة mdb للقاعدة الأساسية الى bak

4. نقوم الآن بحذف القاعدة الأساسية

5. نقوم بتغير اسم القاعدة القديمة التي تم ضغطها واصلاحها الى القاعدة الأساسية الخاصة بنا

ملاحظة هامة :

1. يجب ان تكون قاعدة الجداول مغلقه اثناء عملية الضغط والإصلاح

2. يجب وضع زر الأمر على نموذج مستقل ليس له مصدر بيانات احد الجداول المرتبطة

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

بالتوفيق

اجابه كافيه

وشرح وافي

وزهرة جديدة تظهر في حديقة ازهار

شكراً جزيلاً أختى الفاضلة زهرة

الطريقة فعلاً جميلة .. ولم ينتج عنها أى مشكلة .. بصراحة 100% وممتازة.

صراحة دائماً طريقة حلك للمشكلة مع الشرح الوافى تخجلنى كثيراً..

فعند تقديم مساعدة لشخص للأسف غالباً ما نقدم حلول مختصرة وملخصة جداً..

وفقك الله دائماً.. وزادك علماً ونعيماً..

شاكراً لكِ حسن تعاونك وعطائك الفياض..

حلول مزهرة من زهرة .. وفى نفس الوقت حلول نموذجية تراعى تلافى كل المشاكل حتى قبل أن تحدث.

عوداً حميدأ

تحياتى

محمد ندا

السلام عليكم

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

الوحيد بالغربة كتب:

السلام عليكم

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

نعم اخي الكريم

كل ما عليك هو تحديد الموقع ومن ثم القيام بعملة الضغط والإصلاح

zaCompactAndRepairSplitDatabase.rar