[求助]如何实现自动填写未被占用最小编号

三十而立

字段“编号”如果采用“自动编号”格式，那么被删除某一记录后，该记录所占用的“编号”将不能再被使用。提问，如何才能实现，自动填写未被占用的最小编号。如，一个表，编号从001到122，其中，025,030,114,等编号的记录已被删除，如果再填写新的记录，如何实现自动编号为025。

三十而立

各位老师都在哪里啊，怎么没人理我呀

bockju

这个问题很实用，

请那位高手帮助解决，

谢谢

sgrshh29

用dao,代码如下(假定你的表名是t1,实际应用中把自动编号填满是没有意义的):

Dim rs As Object
Set rs = CurrentDb.OpenRecordset("select id from t1 order by id")
Do Until rs.EOF
i = rs("id")
j = j + 1
If j <> i Then
rs.AddNew
rs("id") = j
rs.Update
Exit Do
End If
rs.MoveNext
Loop
Set rs = Nothing

三十而立

谢谢，我去试试。