设为首页收藏本站Access中国
开启辅助访问

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 模块类函数VBA › 查看内容

Access取下个自动生成的 ID

2002-5-3 16:52| 发布者: admin| 查看: 1068| 评论: 6|原作者: make|来自: www.office-cn.net

摘要: 取得下个自动生成的 ID 在数据库里我们使用了自动增加的 ID， 能取得下个自动产生的 ID With Data1.Recordset .AddNew MsgBox !ID'下个自动生成的 ID .CancelUpdate End With
取得下个自动生成的 ID
在数据库里我们使用了自动增加的 ID， 能取得下个自动产生的 ID

With Data1.Recordset
    .AddNew
    MsgBox !ID  '下个自动生成的 ID
    .CancelUpdate
End With


这个技巧有个缺陷就是取了之后，虽然你取消了它，但ID值还是会增加
或者可以使用ADOX的TABLES和COLUMNS
lngSeedValue= col.Properties("Seed")
lngIncrementValue= col.Properties("Increment")
lngMaximumValue= Nz(rstMax!MaxValue.Value, 0) '取此表已有最大ID
然后用最大ID+lngIncrementValue即为下一个ID


收藏 分享 邀请
上一篇：Access中iif switch和choose三个函数的区别(Excel也适用)下一篇：Access判断计算机有否光驱
发表评论

最新评论

引用 大熊 2002-5-4 01:32
不错,不错,极有创意!
引用 竹笛 2002-5-4 14:34
怎么用啊？没看明白。有空的朋友具体说一下。
引用 大熊 2002-5-5 00:37
我也不会用,想来这个技巧是用来看的吧!
引用 tmtony 2002-5-6 01:45
这个技巧有个缺陷就是取了之后，虽然你取消了它，但ID值还是会增加
试试使用ADOX的TABLES和COLUMNS
lngSeedValue= col.Properties("Seed")
lngIncrementValue= col.Properties("Increment")
lngMaximumValue= Nz(rstMax!MaxValue.Value, 0) '取此表已有最大ID
然后用最大ID+lngIncrementValue即为下一个ID
引用 大熊 2002-5-6 02:09
TONY版主讲的很详细!
引用 zhuyiwen 2002-5-6 03:15

    这只是预计的下一个ID值！
   
    呵呵~~~~  

    [em27]

查看全部评论(6)

相关分类

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-4-3 11:58 , Processed in 0.140675 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部