Compress Access .mdb from Excel?

  • Thread starter Thread starter Larry Adams
  • Start date Start date
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.
 
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
 
Back
Top