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