VBA Tipp: Autowert-Feld per VBA-Code erstellen
Aus DBWiki
Anforderung
Ich möchte ein Autowert-Feld per VBA-Code erstellen und an eine bestehende Tabelle anfügen.
Lösung 1
mit Hilfe von DAO:
Public Sub ErstelleAutowertFeld(TabellenName As String, FeldName As String) 'Quelle: www.dbwiki.net oder www.dbwiki.de Dim feld As DAO.Field Set feld = CurrentDb.TableDefs(TabellenName).CreateField(FeldName, dbLong) feld.Attributes = dbAutoIncrField CurrentDb.TableDefs(TabellenName).Fields.Append feld End Sub
Lösung 2
Public Sub ErstelleAutowertFeld(TabellenName As String, FeldName As String) 'Quelle: www.dbwiki.net oder www.dbwiki.de Dim strSql As String strSql = "ALTER TABLE [" & TabellenName & "] " & _ "ADD COLUMN [" & FeldName & "] COUNTER" CurrentDb.Execute strSql, dbFailOnError End Sub