(تمت الاجابة) كود ضغط واصلاح قاعدة بيانات 2010 برمجيا

[alcasir]

السلام عليكم

ابحث عن كود لاصلاح وضغط فاعدة البيانات لاكسس 2010,,,

ارجو من لديه معلومات عن هذا الموضوع ,,,فلا يبخل علينا

علما انني استخدمت الكود المستخدم لاكسس 2003 لكن لم افلح

والكود هو

CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction

مع الشكر الجزيل

[alcasir]

Up

Up

[أبو آدم]

أخي العزيز

في 2010 أظن (ومما قرأت) أن الضغط والإصلاح يكون أفضل من خلال قاعدة أخرى ...

و فوق كل ذي علم عليم

.............

[ganabo61]

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

أخى العزيز يمكنك استخدام هذا الكود

DBEngine.CompactDatabase SrcName, DstName

مع خالص تحياتى

[alcasir]

اخي العزيز Ganabo61

يوجد خطا في تنفيذ الكود,,,

يوجد مرفق

[alcasir]

نسيت ان ارفع رسالة الخط !

[ganabo61]

تظهر هذه الرسالة فى حالة كتابة إسم الملف المطلوب ضغطه وإصلاحه بطريقة خاطئة

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

يمكنك وضعه فى حدث زر إغلاق قاعدة البيانات ( طبعا بعد تعديل الإسم والمسار)

   'If today = thrusday Then copy the data file Else go away

    If Weekday(Now()) <> 5 Then GoTo GoAway


    Dim MyDistenation As String

    MyDistenation = "E:\ArsheefData\"

    MyDistenation = MyDistenation + Format(Now, "dd-m-yyyy")

    MyDistenation = MyDistenation + ".mdb"

    DBEngine.CompactDatabase "E:\Data\ArsheefData\ArsheefData.mdb", MyDistenation


GoAway:

    DoCmd.Close

[alcasir]

تسلم اخي الكريم على هذا الكود الرائع

وبارك الله فيك

[alcasir]

اخي لقد وجدت خطا اخر عند تنفيذ الكود ,,

[ganabo61]

أخى العزيز

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

ولكن الفكرة أننى قمت بفصل قاعدة بياناتى إلى قسمين

القسم الثانى هو الجداول فقط ( وهى البيانات التى نخشى عليها من الضياع)

والقسم الأول يشمل باقى كائنات قاعدة البيانات ( وهذا القسم هو الذى نضع فيه الكود ليقوم بضغط ونسخ القسم الأول إلى مكان آمن)

ولا يمكن ضغط قاعدة البيانات برمجيا وهى مفتوحة

مع خالص تحياتى

جنابو