Office中国论坛/Access中国论坛
标题:
如何将表中字段名类型为自动编号每次都从1开始
[打印本页]
作者:
yanwei82123300
时间:
2010-9-15 16:27
标题:
如何将表中字段名类型为自动编号每次都从1开始
如何将表中字段名(id)类型为自动编号每次都从1开始,我每次导数据都是将需要的数据从主表中提取到临时表中,然后再导出到excel,因此首先需要删除临时表中数据。但是(id)就不能从1开始了,请问有没有什么方法使该字段每次在删除数据后,在导入新数据时都从1开始
谢谢
作者:
t小宝
时间:
2010-9-15 16:27
全部删除记录后,运行以下代码:
docmd.runsql "ALTER TABLE [表名] ALTER COLUMN [自动编号字段名] COUNTER (1, 1)"
作者:
tmtony
时间:
2010-9-15 22:44
1.最简单的办法:可删除这个字段,再插入同名的自动ID 字段
2.用代码来重设自动ID的初始值,不过比较复杂. 论坛有相应代码.
作者:
wang1950317
时间:
2010-9-16 09:16
我常用站长介绍的第一种方法。方便得很!
作者:
石三少
时间:
2010-9-16 10:53
"我每次导数据都是将需要的数据从主表中提取到临时表中"这个时候应该用生成表查询会比较好吧,如果是用生成表查询的话就不存在你说的问题了。个人建议,只供参考。
作者:
yanwei82123300
时间:
2010-9-16 10:59
tmtony 老师能给个例子?谢谢
作者:
轻风
时间:
2010-9-16 13:00
每次使用临时表前,可用代码进行一次压缩和修复数据库
作者:
todaynew
时间:
2010-9-16 13:02
本帖最后由 todaynew 于 2010-9-16 13:11 编辑
没有测试,你试试看:
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
如若不中,请参见以下地址的实例:
http://accessoft.com/blog/article-show.asp?userid=10802&Id=4437
作者:
yanwei82123300
时间:
2010-9-16 14:39
谢谢大家的帮助,我挨个试试看哪个更好
谢谢
作者:
todaynew
时间:
2010-9-16 16:09
谢谢大家的帮助,我挨个试试看哪个更好
谢谢
yanwei82123300 发表于 2010-9-16 14:39
[attach]43501[/attach]
作者:
yanwei82123300
时间:
2010-9-17 08:07
如果说比较适合我的系统的话小宝老师的代码适合。但是todaynew 老师提供的在范例和代码上更加完善一些。请问tmtony 老师能否将奖金平分给上述二位老师,谢谢
作者:
yanwei82123300
时间:
2010-9-17 13:30
无人帮助,还是取小宝老师的答案吧,毕竟能够直接应用到系统中
作者:
cyeqing
时间:
2010-12-25 10:22
感谢分享
作者:
miracle-y
时间:
2011-1-9 20:27
学习了
作者:
gdjdyyj
时间:
2013-5-28 07:56
学习了!!!
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3