roko 20.12.2010 18: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 19: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):
  1. Function ImportTablela()
  2. Dim db As Database
  3. Dim DjelatTemp As TableDef
  4.  
  5. Set db = CurrentDb
  6. db.TableDefs("ImortTabla").Name = "DjelatTemp"
  7. Set DjelatTemp = db.TableDefs("DjelatTemp")
  8. With DjelatTemp
  9. .Fields.Append .CreateField("UbaciRadnika", 1)
  10. End With
  11. DjelatTemp.Fields("UbaciRadnika").OrdinalPosition = 0
  12. End Function

roko 20.12.2010 19: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):
  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

zxz 20.12.2010 20:01
Predmet:Re: Gdje je greška

Ok.
Znaci rijesio si ako sam te razumio.