Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Use the CompactRepair method of the Application object to compact and repair the database
Sub CompactRepairDB()
    Dim strFilePath As String
    strFilePath = CurrentProject.Path
    Application.CompactRepair strFilePath & "\B.accdb", _
        strFilePath & "\S.accdb", True
End Sub