access利用DAO设置数据表的主键

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, , "错误"