Skip to content

Instantly share code, notes, and snippets.

@ijd65
Created September 27, 2013 06:27
Show Gist options
  • Save ijd65/6724820 to your computer and use it in GitHub Desktop.
Save ijd65/6724820 to your computer and use it in GitHub Desktop.
Compact & repair the current Access database
Public Sub CompactDB()
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment