Access动态添加自动编号字段

在数据库表中，我们可以在表设计中添加字段并设置数据类型

也可以通过代码，在程序中添加自动编号字段。

Dim db As DAO.Database

  Dim tb As DAO.TableDef

  Dim fld As DAO.Field

  Set db = CurrentDb

  Set tb = db.TableDefs("示例")

  Set fld = tb.CreateField("ID", dbLong)' 新增字段

  fld.Attributes = dbAutoIncrField    '新增字段为自动编号

  tb.Fields.Append fld

  Set fld = Nothing

  Set tb = Nothing

  db.Close

Set db = Nothing