[分享]设置自动编号字段的起始值和增量值的函数

fan0217 · 发表于 2006-2-16 07:06:00

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编辑过]

cfncmjh · 发表于 2016-6-14 22:01:13

fdsaags

shable · 发表于 2006-4-7 20:16:00

明白了，再想其它办法吧。
没有做不到，只有想不到！呵呵

fan0217 · 发表于 2006-4-7 20:07:00

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

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

shable · 发表于 2006-4-7 20:04:00

运行时错误 '3720'
无法更改字段'Id'。它是一个或多个关系的一部份。

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

谢了！

czm882 · 发表于 2006-4-7 01:16:00

我正需要这些代码

czm882 · 发表于 2006-4-7 01:16:00

我正需要这些代码

czm882 · 发表于 2006-4-7 01:15:00

我正需要这些代码

LucasLynn · 发表于 2006-4-6 23:59:00

源贴地址：

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

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

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

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

发布方式：公开源码

程序界面：

程序下载：

sf31 · 发表于 2006-4-6 23:07:00

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] [分享]设置自动编号字段的起始值和增量值的函数

本帖子中包含更多资源

OK

群介绍
主题无相 (随机显示版	同地区群块其他地区)