title image


Smiley Re: A97 Per VBA in Tabellenentwurf ein Feld "Autowert" erstellen
Entweder mit

CurrentDB.Execute "ALTER TABLE MM ADD COLUMN DasNeueAutowertFeld AUTOINCREMENT NOT NULL " _

& "CONSTRAINT IndexNameFürDasNeueAutowertFeld PRIMARY KEY;"



oder mit

Function x()

Dim db As DAO.Database

Dim f As Field

Dim i As Index



Set db = CurrentDb



With db.TableDefs("mm")

Set f = .CreateField("EinNeuesAutowertFeld", dbLong)

f.Attributes = dbAutoIncrField

.Fields.Append f



Set i = .CreateIndex("IndexNameFürDasNeueAutowertFeld")

i.Primary = True

i.Fields.Append .CreateField("EinNeuesAutowertFeld")

.Indexes.Append i

End With



db.Close: Set db = Nothing



End Function



Gruß

Robert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: