Infoga tabellfælt via kod

ikke afprøvet:

docmd.runsql "Alter table ftg add ldv Text"

Fungerar utmærkt,mugs.
Tack!

Selv tak - Og tak for point.

Alternativt kan du bruge VBA til at tilføje felterne. Se f.eks. følgende:

Sub addTabelOgFelter()
    Dim tbl As New TableDef
   
    Dim fld1 As New Field
    Dim fld2 As New Field
    Dim fld3 As New Field
    Dim fld4 As New Field
   
    ' Definer nye felter....
    fld1.Type = dbText
    fld1.Size = 200
    fld1.DefaultValue = "Begyndelsesværdi"
    fld1.AllowZeroLength = True
    fld1.Name = "Status"
    fld1.ValidationRule = "<>""Haster"""
    fld1.ValidationText = "Må ikke være 'Haster'"
   
    fld2.Type = dbSingle
    fld2.Name = "Omregningsfaktor"
    fld2.ValidationRule = "> 30"
    fld2.ValidationText = "Faktoren skal være over 30!"
   
    fld3.Type = dbLong
    fld3.Name = "Id"
    fld3.Attributes = dbAutoIncrField
   
    fld4.Type = dbMemo
    fld4.Name = "Link"
    fld4.Attributes = dbHyperlinkField
   
    'Tilføj nogle af dem til en bestående tabel...
    CurrentDb.TableDefs("Tabel1").Fields.Append fld1
    CurrentDb.TableDefs("Tabel1").Fields.Append fld4
   
    'Definer en ny tabel (som vil være skjult for brugeren)...
    tbl.Name = "Den nye skjulte tabel"
    tbl.Attributes = dbHiddenObject
   
    'Tilføj resten af de definerede felter til den nye tabeldefinition...
    tbl.Fields.Append fld2
    tbl.Fields.Append fld3
   
    'Opret et ekstra felt i tabeldefinitionen direkte ved hjælp af metoden CreateField...
    tbl.CreateField "Bemærkning", dbText, 100
   
    'Opret tabellen ved at tilføje tabeldefinitionen til tabelsamlingen...
    CurrentDb.TableDefs.Append tbl
   
End Sub