Automate Compact And Repair In Access 2010
I have included this code in ACCESS visual basic but however variable is not defined. I got the code in the forum . thanks
HTML Code:
Option Explicit
Sub test()
Call CompactDatabase("D:\Users\sgg90341\Desktop\ALARM 3 V1.01\RahBreth.accdb")
End Sub
Public Function CompactDatabase(sDatabasePath As String, Optional BackupBeforeCompactDB As Boolean = False) As Long
'Microsoft Access Library must be added..
Dim strTempFile As String
Dim strPathTemp As String
Dim strExtention As String
Dim strTempF As String
strPathTemp = WorksheetFunction.Substitute(sDatabasePath, ".", "|", Len(sDatabasePath) - Len(Replace(sDatabasePath, ".", "")))
strTempFile = Left(sDatabasePath, InStr(1, strPathTemp, "|") - 1)
strExtention = "." & Right(sDatabasePath, Len(sDatabasePath) - InStr(1, strPathTemp, "|"))
On Error GoTo Err
strTempF = strTempFile & "_Temp" & strExtention
If BackupBeforeCompactDB = True Then
FileCopy sDatabasePath, strTempFile & "_Backup" & strExtention
End If
Application.DisplayAlerts = False
DBEngine.CompactDatabase sDatabasePath, strTempF, dbLangCyrillic
Application.DisplayAlerts = True
FileCopy strTempF, sDatabasePath
Kill strTempF
Exit Function
Err:
CompactDatabase = Err.Number
Err.Clear: Exit Function
End Function
