请叫自动编号问题

xinger

本来想重新附值的,但是不对,i是数值型的,不是"自动编号"型的.有人知道该怎么改吗??多谢

'openRs "Select * from 销售记录表", rs

'rs.MoveFirst

'Dim i As Integer

'i = 0

'If rs.EOF = False Then

   'rs("销售编号") = i + 1

   'rs.MoveNext

'End If

[em03]

xinger

上面程序想要解决的问题就是在删除记录后想让自动编号的字段重新排序,如1,2,3,4,6变成1,2,3,4,5……

如果大家什么别的好方法，希望不吝赐教。先谢过了。

软件下载

自动编号一旦被指定，就会永久地与记录连接。如果删除了表格中含有自动编号字段的一个记录后，Access并不会为表格自动编号字段重新编号。当添加某一记录时，Access不再使用已被删除的自动编号字段的数值，而是重新按递增的规律重新赋值。

静儿

您可这样来做,删除记录后,筛选出大于被删除号的记录然后做更新查询

xinger

谢谢大家的回复.请问  静儿MM, 能否告知你的方法怎么实现吗?本人新手一个,请误见笑.方法也想的到,但就是不知道怎么实现.    谢谢各位啦