Predmet:Re: Gdje je greška
Zapravo sam to riješio Sub-om
samo da mi ne bježi stalno po sabu...
PreuzmiIzvorni kôd (Text):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