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

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

fan0217 · 发表于 2006-2-16 23:31:00

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

zhufree · 发表于 2006-2-17 00:59:00

有空时好好学一下

amaranta · 发表于 2006-2-21 07:49:00

wuaza · 发表于 2006-2-22 20:46:00

关键是这个“Counter”是什么意思？帮助中都查不到。

skylark · 发表于 2006-2-22 21:55:00

To Fan0217:

不错,感谢共享!

tjunyi · 发表于 2006-2-23 20:28:00

自动编号好麻烦的,有没有能够加前缀自动编号的?并且中间删除记录后可以自动重排编号?

nxjswt · 发表于 2006-3-25 05:35:00

谢谢列！！

wictorlong · 发表于 2006-3-27 09:15:00

大力支持,谢谢

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

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

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

主题相关群

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

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

本帖子中包含更多资源

OK

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