roko |
20.12.2010 19:28 |
Predmet:Dodavanje polja u tabelu
Imam import u bazu podataka (dbf,xml,csv,xlsx etc..)
Da si pojednostavim "unos" kreiram si tabelu DjelatTemp
DoCmd.DeleteObject acTable, "DjelatTemp"
' Brišem staru
CurrentDb.TableDefs("ImortTabla").Name = "DjelatTemp
" 'Preimenujem
DoCmd.RunSQL ("ALTER TABLE DjelatTemp ADD COLUMN [UbaciRadnika] YesNo")
'Ubacujem polje da se zabilježi koji če se ubacivati
ALTER TABLE mi postavi polje ali u nije dobar format pa onda puštam kod
With DBEngine(0)(0).TableDefs("DjelatTemp").Fields("UbaciRadnika")
.Properties.Append .CreateProperty("DisplayControl", dbInteger, CInt(acCheckBox))
End With
1.Nekad mi ga odradi a nekad ne u čemu je problem ?
2.Kako mogu Fields("UbaciRadnika") poslati na prvo mjesto u tabeli ? |
zxz |
20.12.2010 20:04 |
Predmet:Re: Gdje je greška
Neznam sto pravi gresku nevidim ovako ali isto tako neznam sto se koristi property pa runsql ako je vec kodom radjeno.
Peobaj ovaj kod
PreuzmiIzvorni kôd (Visual Basic):Function ImportTablela()
Dim db As Database
Dim DjelatTemp As TableDef
Set db = CurrentDb
db.TableDefs("ImortTabla").Name = "DjelatTemp"
Set DjelatTemp = db.TableDefs("DjelatTemp")
With DjelatTemp
.Fields.Append .CreateField("UbaciRadnika", 1)
End With
DjelatTemp.Fields("UbaciRadnika").OrdinalPosition = 0
End Function
|
roko |
20.12.2010 20:51 |
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
|
zxz |
20.12.2010 21:01 |
Predmet:Re: Gdje je greška
Ok.
Znaci rijesio si ako sam te razumio. |