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

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

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

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

Private Sub cmd_新增_Click()
    DoCmd.GoToRecord , , acNewRec
    Me.ID = DMax("ID", "表1") + 1   '主键递增
End Sub

更多复杂的自动编号写法

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