Question

Access窗体某一文本框单击一下则自动填充上一条记录值并加1，代码怎么写？求教

比如这样的表和窗体

但是由于记录数据中有误删，导致ID编号不连续，如图

我在窗体文本框单击属性下添加以下代码
Private Sub 证件编号_CLick()
On Error GoTo Err_添加新记录
a = zjbh
DoCmd.GoToRecord , , acNewRec
zjbh = a + 1
Exit Sub
Err_添加新记录:
MsgBox Err.Description
End Sub
求教大神能否指出正确的代码，如何单击窗体证件编号文本框则在ID 第10条记录自动填写为106006，小弟不胜感激





Answer 1

如果ID你是用自动编号类型的
那么这个ID你就不用管了，也没有办法修改 这个字段的值由ACCESS来维护
删除记录后编号就是不连续的。