access添加数据时自动为主键添加自动编号

access数据类型中有自动编号类型，新增数据都可以自动为数据递增1

但是如果没有选择自动编号类型，如果作为主键，即需要自己手动添加数据了，否则会报错。

下面代码对于数字类型的字段可以自动添加1

Private Sub cmd_新增_Click()

  DoCmd.GoToRecord , , acNewRec

  Me.ID = DMax("ID", "表1") + 1   '主键递增

End Sub

更多复杂的自动编号写法，可以参考

《access创建自定义递增自动编号（不固定位数）》

如不能跳转连接，请到office交流网 阅读此文。