Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Public Sub Compact_MDB(() Dim PutanjaBaze As String, staroImeBaze As String, novoImeBaze As String, DbBackup As String Dim Response As Integer, fs As Object PutanjaBaze = Application.CurrentProject.Path staroImeBaze = "Proces_be" & ".mdb" ' ovdje staviti ime svoje baze, putanja nije potrebna novoImeBaze = "Proces_BeNew" & ".mdb" DbBackup = Mid(staroImeBaze, 1, Len(staroImeBaze) - 4) & "_" & Format(Date, "mmddyy") & ".mdb" Response = MsgBox("Želite li napraviti Back-Up kopiju ove baze koja e se zvati " & vbCrLf & "'" & DbBackup & "'", vbYesNo, "Continue") If Response = vbYes Then Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile PutanjaBaze & "\" & staroImeBaze, PutanjaBaze & "\" & DbBackup Set fs = Nothing Else If MsgBox("Želite li uraditi kompakt ove baze i preimenovati je kao " & vbCrLf & "'" & novoImeBaze & "'", vbYesNo, "Continue") = vbYes Then Set fs = CreateObject("Scripting.FileSystemObject") fs.CopyFile PutanjaBaze & "\" & staroImeBaze, PutanjaBaze & "\" & DbBackup DBEngine.CompactDatabase PutanjaBaze & "\" & DbBackup, PutanjaBaze & "\" & novoImeBaze Kill PutanjaBaze & "\" & DbBackup Set fs = Nothing Else If MsgBox("Želite li uraditi samo kompakt ove baze?", vbYesNo, "Continue") = vbYes Then CommandBars("Menu Bar"). _ Controls("Tools"). _ Contro