CreateTableDef - Autonumber

[NIMBUS]

Could someone please advise how when creating a new Table using a CreateTableDef function I woud set the first field as a Autonumber field.
Thank You

 

[JHB]

Try the below code:

  Dim dbs As Database, tdf As TableDef, fld As Field
  
  Set dbs = CurrentDb
  Set tdf = dbs.CreateTableDef("Kontaktpersoner")
  Set fld = tdf.CreateField("AutoID", dbLong)
  fld.Attributes = dbAutoIncrField
  tdf.Fields.Append fld
  tdf.Fields.Refresh
  dbs.TableDefs.Append tdf
  dbs.TableDefs.Refresh
  Set dbs = Nothing

 

[NIMBUS]

Thanks JHB that works justas I wanted

 

[JHB]

You're welcome.