ijd65
9/27/2013 - 6:27 AM

Compact & repair the current Access database

Compact & repair the current Access database

Compact Databse
content_copyfile_download
Public Sub CompactDB()

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

End Sub