الرجاء التعديل على هذا الكود

هذا الكود يقو بضغط و اٍصلاح قاعدة البيانات برمجيا:

' ***** Code Start *****

Public Sub CompactDB()

CommandBars("Menu Bar"). _

Controls("Tools"). _

Controls("Database utilities"). _

Controls("Compact and repair database..."). _

accDoDefaultAction

End Sub

' ***** Code End *****

قمت بتجربته فأدى المطلوب, لكنه بعد أن ينفذ الأمر يقوم بفتح قاعدة البيانات من جديد, الذي أريده هو أنه بعد تنفيذ الأمر لا يفتح القاعدة من جديد.