访问：在 DAO 中获取新创建的汽车编号
我在 DAO 中有一个代码连接到 SQL Server 2008 中的链接表。我需要在 .AddNew 上获取新创建的自动编号。
Set db = CurrentDb
Set rs = db.OpenRecordset("AuditTrail")
rs.AddNew
rs("ActionID") = actionAdd
rs("dtDateTime") = Now()
rs("FormName") = frmName
rs("TableName") = tblName
rs("RecordID") = actionAdd
rs("Comment") = Nz(comment, "")
rs("UserID") = UserIDName
rs("UsernamePC") = VBA.Environ("USERDOMAIN")
rs("DomainPC") = VBA.Environ("USERDOMAIN")
rs("ComputerNamePC") = VBA.Environ("COMPUTERNAME")
rs.Update
rs.Close
如果我在 rs.Close 之前使用 rs("AuditTrailID")，它将返回 1（第一个条目）。
I have a code in DAO that connects to a linked table in SQL Server 2008. I need to get the newly created auto number on .AddNew.
Set db = CurrentDb
Set rs = db.OpenRecordset("AuditTrail")
rs.AddNew
rs("ActionID") = actionAdd
rs("dtDateTime") = Now()
rs("FormName") = frmName
rs("TableName") = tblName
rs("RecordID") = actionAdd
rs("Comment") = Nz(comment, "")
rs("UserID") = UserIDName
rs("UsernamePC") = VBA.Environ("USERDOMAIN")
rs("DomainPC") = VBA.Environ("USERDOMAIN")
rs("ComputerNamePC") = VBA.Environ("COMPUTERNAME")
rs.Update
rs.Close
If I use rs("AuditTrailID") before rs.Close, it returns 1 (the first entry).
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（2）
将
Bookmark属性设置为等于LastModified属性，以返回到刚刚添加的记录。编辑： 正如 Conrad Frix 所说，打开记录集时使用
dbSeeChanges选项：Set the
Bookmarkproperty equal to theLastModifiedproperty to go back to the record you just added.Edit: As Conrad Frix noted, use the
dbSeeChangesoption when opening the recordset:如果您要插入的是 SQL Server 数据库，那么数据库上的触发器不是更好的解决方案。
If it is a SQL Server database you are inserting into, would not a trigger on the database be a better solution.