<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Function makedb()
   
   Dim accessApp As Access.Application
   Set accessApp = New Access.Application
   
   strDBPath = "D:\tblImport2022.mdb"
   strDb = Dir(strDBPath)

   If Len(strDb) <> 0 Then
    MsgBox "Baza postoji"
    Else
    Rem MsgBox "Baza ne postoji"
    accessApp.DBEngine.CreateDatabase "D:\tblImport2022.mdb", DB_LANG_GENERAL
    RunBackup
   accessApp.Quit
   Set accessApp = Nothing
End If
  
End Function

Public Function RunBackup()

 Rem   DB_CopyTo = "D:\backup_" & Format(Now, "yymmdd_hhnn") & ".mdb"
    DB_CopyTo = "D:\tblImport2022.mdb"
   Rem  DBEngine.CreateDatabase DB_CopyTo, dbLangGeneral
    
    With CurrentDb
        For Each t In .TableDefs
            Select Case True
            Case Left(t.Name, 1) = "~"
            Case Left(t.Name, 4) = "msys"
            Case Else
                .Execu