يسعد الله صباحكم
كنت استخدم الكود التالي في ضغط واصلاح قاعدة البيانات
CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction
وكان شغال عندي 100/100
حولت البرنامج عن طريق عمل قوائم بدل عمل ازرار بالنموذج
فظهرت لي الرسالة التالية عند الضغط على الكود
ارجو الافادة مع الشكر الجزيل
