PDA

Vollständige Version anzeigen : Neue Tabellenfelder mit VBA


Luke
03.10.2002, 08:21
Hallo Access-Gemeinde,

kann mir jemand beschreiben, wie ich in die Tabelle einer externen Datenbank neue Tabellenfelder (Text) mittels VBA einfügen kann.

Danke für eure Hilfe

Schefti
03.10.2002, 10:28
Hier ein Beispiel:

Dim db As Database, fld As Field, tdef As TableDef
Set db = OpenDatabase(Datenbank)
Set tdef = db.TableDefs("Tabellenname")
Set fld = tdef.CreateField("Feldname", dbText, 255)
tdef.Fields.Append fld
Set fld = tdef.CreateField("nochn Feld", dbMemo)
tdef.Fields.Append fld

Set tdef = Nothing
db.Close

Schau auch mal unter der Hilfe nach, z.B. Fields-Objekt oder CreateField

ciao

Luke
04.10.2002, 06:09
Hallo Schefti,

klappt vorzüglich!!!
Danke dafür....

Schön dass sich Hamelner helfen!