删除一条表数据，后面的序号如何自动修改

pzszdy　发表于：2010-09-15 14:07:04 　

复制

删除一条表数据，后面的序号如何自动修改

Top

yinyt 发表于：2010-09-15 14:43:17

如果是自动编号字段的话就不好改了。

Top

pzszdy 发表于：2010-09-15 14:44:00

点击下载此附件

Top

pzszdy 发表于：2010-09-16 15:48:04

点击下载此附件

花了自己很多的时间........

Top

pzszdy 发表于：2010-09-16 15:48:56

呵呵，自己无法给自己最佳答案！

Top

煮江品茶发表于：2010-09-16 16:11:26

很简单嘛

点击下载此附件

Sub 自动编号(tbname As String, MyID As String)
Dim strsql As String
strsql = "ALTER TABLE " & tbname & " DROP COLUMN " & MyID & ""
CurrentDb.Execute strsql
strsql = "ALTER TABLE " & tbname & " ADD COLUMN " & MyID & " Counter"
CurrentDb.Execute strsql
End Sub

Top

pzszdy 发表于：2010-09-16 17:42:53

哎呀，煮江老师，你干嘛不早告诉我啊，害得我昨晚1点过才睡成！

Top

pzszdy 发表于：2010-09-16 17:55:42

煮江老师，我查了下资料，你的代码的意思是删除原来的序号的整列，然后加入自动编号的列，这真是个好方法！我原来的需要实现的还有：

原表是个卷宗目录，后面还有一列起始页码（不连续），删除一行数据后，起始页码也要相应变化，你有没有相应的简便方法呢，我只找到前面那个笨办法！

Top

煮江品茶发表于：2010-09-16 19:26:59

具体要看实例才说的清楚，你再发一贴吧。

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

删除一条表数据，后面的序号如何自动修改