مطلوب ضغط وإصلاح قاعدة البيانات من خلال زر أمر

تفضل يا أخي الكود المطلوب

Option Compare Database
Public Sub CompactDB()

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

Private Sub Command1_Click()
CompactDB
End Sub

بالتوفيق

test5.rar

بارك الله فيك أخي محمد فؤاد

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

الضغط والإصلاح للأستاذ مصلح الحريصي ( النسخة الإنجليزية والعربية لبرنامج الأكسيس )

/index.php?showtopic=141393

السلام عليكم

لقد قمت باللازم ونجحت العملية

شكراً للأخ محمد فؤاد تركي

وشكراً للأخت zahrah

كذلك لايفوتني أن أشكر الأخ مصلح الحريصي

تحياااتي للجميع