VBA Tipp: Autowert-Feld per VBA-Code erstellen

Aus DBWiki
Wechseln zu: Navigation, Suche

Aufgabenstellung

Ich möchte ein Autowert-Feld per VBA-Code erstellen. Gelegentlich ist es erforderlich, eine Tabelle per VBA zu erstellen. Das kniffligste Problem dabei ist eigentlich immer die Erstellung eines Autowert-Feldes. Das folgende Beispiel zeigt, wie man mit DAO ein Autowert-Feld an eine bestehende Tabelle anfügen kann.

Lösung

Dies läßt sich mit Hilfe von DAO [1] so lösen:

Sub ErstelleAutowertFeld()
 
Dim Feld As DAO.Field
 
Set Feld = CurrentDb.TableDefs("deineTabelle"). _
                     CreateField("deinFeldname", dbLong)
Feld.Attributes = dbAutoIncrField
CurrentDb.TableDefs("deineTabelle").Fields.Append Feld
 
End Sub

Alternative

Sub ErstelleAutowertFeldAnders()
 
Dim strSql As String
 
strSql = "ALTER TABLE [DeineTabelle] ADD COLUMN [ID] COUNTER NOT NULL;"
CurrentDb.Execute strSql
 
End Sub