ضغط واصلاح قاعدة البيانات الحالية

[mr steev]

السلام عليكم

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

[mr steev]

تم الحل 

On 3/13/2016 at 3:39 AM, sandanet said:

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

If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _
    "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _
    vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _
    "تنبيه :  رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then

Application.SetOption "Auto compact", True

End If
DoCmd.Quit

 

 

[mr steev]

السلام عليكم

عذرا في الكود السابق الذي تفضل به السيد 

sandant

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