Prikazi cijelu temu 20.12.2010 19:51
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


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):
  1. Sub DodajPolje(tabNaziv As String)
  2.     Dim db As dao.Database
  3.     Dim tbl As dao.TableDef
  4.     Dim fld As dao.Field
  5.     Dim prp As dao.Property
  6.    
  7.     Set db = CurrentDb()
  8.     Set tbl = db.TableDefs(tabNaziv)
  9.     Set fld = New dao.Field
  10.     With fld
  11.         .Name = "UbaciRadnika"
  12.         .type = dbBoolean
  13.     End With
  14.     tbl.Fields.Append fld
  15.    
  16.     Set prp = fld.CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox))
  17.     fld.Properties.Append prp
  18.      fld.OrdinalPosition = 0 '' ovo mi je falilo al kad ubacim csv ili xlsx stavlja mi ga na drugo mjesto ??
  19.     Set prp = Nothing
  20.     Set fld = Nothing
  21.     Set tbl = Nothing
  22.     db.Close
  23.     Set db = Nothing
  24. End Sub