You could always set the database to compact only when it reaches a defined size using the code below.
Public sub subCompact()
On Error goto Err_subCompact
Dim fs, f, ProjectSize, filespec
Dim strProjectPath As String, strProjectName As String
strProjectPath =...