在实际工作中，如果您采用了自动编号字段，当需要重新从1开始自动编号时，请使用如下过程：

首先在模块中定义下面的函数。

Sub 重置自动编号(表名)
Dim sql1
On Error GoTo err1
DoCmd.DeleteObject acTable, "q_11" '如果表q_11存在就删除
err1:
sql1 = " select * into q_11 from " & 表名 & " where 1=2" '将表追加到表q_11中
DoCmd.RunSQL (sql1)
DoCmd.DeleteObject acTable, 表名  '删除原来的表
DoCmd.Rename 表名, acTable, "q_11" '将q_11表重命名为原来的表
End Sub

执行下面代码：

'下面代码是将表"人员"表的ID的自动编号起始值从1开始。

重置自动编号 "人员"

附   件:

点击下载此附件