Office中国论坛/Access中国论坛

标题: [分享]设置自动编号字段的起始值和增量值的函数 [打印本页]

作者: fan0217 时间: 2006-2-16 07:06
标题: [分享]设置自动编号字段的起始值和增量值的函数
Public Function SetAutoID(strTable As String, strField As String, lngSeed As Long, intStep As Integer)
'表strTable
'字段strField
'基数lngSeed
'增量intStep
Dim strSQL As String
strSQL = "ALTER TABLE " & strTable
strSQL = strSQL & " ALTER COLUMN " & strField
strSQL = strSQL & " Counter(" & lngSeed & ", " & intStep & ")"
DoCmd.RunSQL strSQL
End Function

[此贴子已经被作者于2006-2-16 15:16:38编辑过]

作者: fan0217 时间: 2006-2-16 23:31
昨天发布了个用ADO实现的设置自动编号的起始值，后来看了一些资料，发现还有更简单的方法，用SQL。所以就把先前的删除了。但该语句具体的东西我还是没有弄的太明白，还请高手指点啊！

作者: zhufree 时间: 2006-2-17 00:59
有空时好好学一下

作者: amaranta 时间: 2006-2-21 07:49
谢

作者: wuaza 时间: 2006-2-22 20:46
关键是这个“Counter”是什么意思？帮助中都查不到。

作者: skylark 时间: 2006-2-22 21:55
To Fan0217:

不错,感谢共享!

作者: tjunyi 时间: 2006-2-23 20:28
自动编号好麻烦的,有没有能够加前缀自动编号的?并且中间删除记录后可以自动重排编号?

作者: nxjswt 时间: 2006-3-25 05:35
谢谢列！！

作者: wictorlong 时间: 2006-3-27 09:15
大力支持,谢谢

作者: sf31 时间: 2006-4-6 23:07
标题: OK
OK

作者: LucasLynn 时间: 2006-4-6 23:59
源贴地址：

http://www.office-cn.net/forum.php?mod=viewthread&tid=32327

名称：自动编号管理器（AutoNumber Manager）

介绍：
　　顺手做的一个小工具，允许你更改当前数据库内所有表中所有自动编号自动的“基数”和“增量”。Access系统只支持创建从1开始，每次增加1的自动编号，但是实际上Access数据层是支持基数和增量设定的，这个工具允许你对这些数值进行设置。甚至可以实现Access操作界面中并不支持的自动编号方式，比方说：每次加12。
　　新增功能：选择字段时自动读出当前的基数和增量。

声明：使用本程序修改自动编号设定的时候，请确定你了解你所要进行的操作所导致的后果，包括可能引起的编号冲突等。

发布方式：公开源码

程序界面：

程序下载：

[attach]13290[/attach]

作者: czm882 时间: 2006-4-7 01:15
我正需要这些代码

作者: czm882 时间: 2006-4-7 01:16
我正需要这些代码

作者: shable 时间: 2006-4-7 20:04
运行时错误 '3720'
无法更改字段'Id'。它是一个或多个关系的一部份。

如何解决已存在的关系从而去更改自动编号呢？

谢了！

作者: fan0217 时间: 2006-4-7 20:07
声明：使用本程序修改自动编号设定的时候，请确定你了解你所要进行的操作所导致的后果，包括可能引起的编号冲突等。

如果是一对多的关系,改变自动编号是很危险的,建议不要进行此操作.

作者: shable 时间: 2006-4-7 20:16
明白了，再想其它办法吧。
没有做不到，只有想不到！呵呵

作者: cfncmjh 时间: 2016-6-14 22:01
fdsaags

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)