Access VBA / Datastyring / Opret tabel
|
Søger du et "rigtigt" Access VBA kursus?
Ja, jeg holder ikke kun fjernundervisningskurser
- jeg kan også komme ud i din virksomhed og undervise med
udgangspunkt i jeres data og udfordringer.
|
|
Opret tabel
Her følger så et eksempel på, hvordan man kan oprette en tabel fra VBA
Dim db As Database
Dim tbl As TableDef
Dim fld As Field
Dim idx As Index
'
Set db = CurrentDb()
Set tbl = db.CreateTableDef("tblObservation")
Set fld = tbl.CreateField("KundeNr", dbLong)
fld.OrdinalPosition = 1
fld.Attributes = dbAutoIncrField
tbl.Fields.Append fld
'
Set fld = tbl.CreateField("Kundenavn", dbText)
fld.OrdinalPosition = 2
fld.Size = 50
fld.Required = True
fld.AllowZeroLength = False
tbl.Fields.Append fld
'
'Opret index
Set idx = tbl.CreateIndex("PrimayKey")
idx.Primary = True
idx.Required = True
idx.Unique = True
'
Set fld = idx.CreateField("KundeNr")
idx.Fields.Append fld
tbl.Indexes.Append idx
db.TableDefs.Append tbl
RefreshDatabaseWindow
Når du har betalt for kurset får du adgang til øvelser til hver lektion.
Og når du har fået godkendt din besvarelse får du desuden adgang til mine løsningsforslag med ekstra tips og trix.<<- Sortering af data
Slet tabel ->>