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