Skapa tabellfælt via kod.

Denne opretter et nyt tekstfelt nytfelt i tabellen mintabel og giver en standardværdi. Kræver en reference til DAO:

Dim SQL1 As String
Dim db As DAO.Database
Set db = CurrentDb
Dim tbl As TableDef
SQL1 = "Alter Table mintabel add nytfelt Text"
DoCmd.RunSQL SQL1
MsgBox "Funktionen er udført."
Set tbl = db.TableDefs("mintabel")
tbl.Fields("nytfelt").DefaultValue = "standardværdi"

Måske lidt mere simpelt:

Dim SQL1 As String
SQL1 = "Alter table DINTABEL add FELTNAVN Text"
DoCmd.RunSQL SQL1

Hej mugs och tack før svaret.
Før att gøra det extra besværligt så finns tabellen i en backend, så från frontend "Admin" skall ett nytt fælt skapas i backend "Data". Låter det sig också gøras?