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 xlsx stavlja mi ga na drugo mjesto ??

    Set prp = Nothing

    Set fld = Nothing

    Set tbl = Nothing

    db.Close

    Set db = Nothing

End Sub