Compress Access .mdb from Excel?

[Larry Adams]

Is it possible to "compress and repair" an Access database using VBA from
Excel? Would appreciate a code sample if available. Thanks!! Larry.

 

[Douglas J. Steele]

Try something like:

Sub CompactAccess()
Dim objAccess As Object
Dim strBackupFile As String
Dim strDatabaseFile As String

strDatabaseFile = "D:\Folder\File.mdb"
strBackupFile = "D:\Folder\File.bak"
If Len(Dir(strBackupFile)) > 0 Then
Kill strBackupFile
End If
Name strDatabaseFile as strBackupFile

Set objAccess = CreateObject("DAO.DBEngine.36")
objAccess.CompactDatabase strOldFile, strNewFile

Set objAccess = Nothing

End Sub

 

[Larry Adams]

Looks good. I'll definitely give a try. Thanks!! Larry.