Compress Access .mdb from Excel?

L

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.
 
D

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
 
Top