ممكن التعديل عى كود الضغط والاصلاح

اخي الفاضل

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

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

هذا الكود خاص بنسخ الأكسيس من 97 وحتى 2003 فقط

ولا ينفع مع نسخ الأكسيس 2007 و 2010

والسبب هو : وجود شريط قوائم "Menu Bar" في النسخ القديمه من 97 وحتى 2003

اما في النسخ الجديده 2007 و 2010 فلا يوجد شريط قوائم وانما ما يسمى بالـ Ribbon

ولهذا نجد الكود السابق يعمل مع النسخ القديمة ولا يعمل مع النسخ الحديثه .

اما الكود الخاص بالضغط والإصلاح للقاعدة الحالية لنسخ 2007 و 2010 فهو

Private Sub CmdCompactRepair_Click()
Application.SetOption ("Auto Compact"), 1
End Sub

بالتوفيق

بارك الله فيكي وسدد الله خطاكي

لا أجد ما أقول إلاّ: جزاكِ الله خيراً

قال رسول الله صلى الله عليه وسلم: إِذَا قَالَ الرَّجُلُ لِأَخِيْهِ: جَزَاكَ اللهُ خَيْرَاً فَقَدْ أَبْلَغَ فِيْ الثَنَاءِ