Hop til teksten

IT FJERNUNDERVISNING
- IT kurser når Du har tid!

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.