Public Sub Compact_MDB()
Dim dbPath As String, dbPath1 As String, OldDbName As String, NewDbName As String, DbBackup As String
Dim Response As Integer, fs As Object
dbPath = Application.CurrentProject.Path
dbPath1 = "C:\Program Files\STARSOFT\KOPIJE"
OldDbName = "PCkasa_dat" & ".mdb"
NewDbName = "PCkasa_dat_bak" & ".mdb"
DbBackup = Mid(OldDbName, 1, Len(OldDbName) - 4) & "_" & Format(Date, "ddmmyy") & ".mdb"
Response = MsgBox("Da li želite da napravite rezervnu kopiju baze pod imenom " & vbCrLf & "'" & DbBackup & "'", vbYesNo, "Continue")
If Response = vbYes Then
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile dbPath & "\" & OldDbName, dbPath1 & "\" & DbBackup
Set fs = Nothing
Else
'If MsgBox("Da li želite da uradite Compact baze i promijenite joj ime u " & vbCrLf & "'" & NewDbName & "'", vbYesNo, "Continue") = vbYes Then
'Set fs = CreateObject("Scripting.FileSystemObject")
'fs.CopyFile dbPath & "\" & OldDbName, dbPath1 & "\" & DbBackup
'DBEngine.CompactDatabase dbPath1 & "\" & DbBackup, dbPath1 & "\" & NewDbName
'Kill dbPath1 & "\" & DbBackup
'Set fs = Nothing
'Else
If MsgBox("Da li želite da uradite samo Compact baze?", vbYesNo, "Continue") = vbYes Then
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
Else
DoCmd.CancelEvent
End If
End If
'End If
End Sub