<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 />
Sub DodajPolje(tabNaziv As String)
    Dim db As dao.Database
    Dim tbl As dao.TableDef
    Dim fld As dao.Field
    Dim prp As dao.Property
    
    Set db = CurrentDb()
    Set tbl = db.TableDefs(tabNaziv)
    Set fld = New dao.Field
    With fld
        .Name = "UbaciRadnika"
        .type = dbBoolean
    End With
    tbl.Fields.Append fld
    
    Set prp = fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox))
    fld.Properties.Append prp
     fld.OrdinalPosition = 0 '' ovo mi je falilo al kad ubacim csv ili xl