Binaryworld - Compact and Repair Access MDB. ... [ VB -> Database ]

Following code requires Microsoft DAO 3.6 reference.

To add this reference goto Project->Reference

example:

Call DBCompact("OLt.mdb", "tmpOLT.mdb", , , ";pwd=mypwd")

'***********************************************
'Defrag and Repair database
'***********************************************
Public Function DBCompact(ByVal DBSource As String, Optional ByVal DBTemp As String = "C:\CSITmp.mdb", Optional ByVal DstLocale As String = "", Optional ByVal Options As String = dbEncrypt, Optional ByVal Password As String = ";pwd=")
   On Error GoTo CompactError
   'set database variables to user variables
   DBs = DBSource: DBs2 = DBTemp: DBLocale = DstLocale
   DBOptions = Options: DBPassword = Password
   If Dir(DBs) = "" Or DBs = "" Then
     MessageBox "Database Was Not Located.", vbExclamation, "DB Error"
   Else
        DBEngine.CompactDatabase DBs, DBs2, DBLocale, DBOptions, DBPassword
        Kill DBs
        DBEngine.CompactDatabase DBs2, DBs, DBLocale, DBOptions, DBPassword
        Kill DBs2
   End If
   Exit Function
CompactError:
   MessageBox "Error Compacting Database. Make Sure Database Is Closed." & vbCrLf & vbCrLf & Err.Number, vbExclamation, "Compact Error"
End Function