access利用DAO设置数据表的主键（access设置主键的方法）

access数据表中，建议都设置一下主键。既可以保证实体的完整性，也加快数据库的操作速度。

在access中，添加主键可以用点击表格右键，主键，看到的钥匙符号就是主键了。

也可以通过代码动态添加主键

On Error GoTo 出错

Dim db As DAO.Database

Dim tb As DAO.TableDef

Dim ind As DAO.Index

Set db = CurrentDb

Set tb = db.TableDefs("员工信息")

Set ind = tb.CreateIndex("主键") '创建主键索引

ind.Fields.Append ind.CreateField(txt1) '为索引添加主键字段

ind.Primary = True

tb.Indexes.Append ind '将新建的索引添加到索引对象集合中去

MsgBox "恭喜，主键创建成功！"

Exit Sub

出错:

MsgBox Err.Description, , "错误"