VBA Tipp: Autowert-Feld per VBA-Code erstellen

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