vba - 如何获取表单的最后一条记录ID？

Question

我目前有一个表单正在 Access 中。

我想做的是获取最后添加的记录的值。

例如，如果我有 10 条记录，我想获取值“10”，因为这是添加的最后一条记录的 ID。我正在尝试使用 last id inserted() 函数运行查询，但它不起作用。

这是我正在使用的代码:

Dim lastID As Integer
Query = "select last_insert_id()"
lastID = Query
MsgBox (lastID)

我错过了什么？

Answer 1

有一个函数 DMax 可以获取最大的数字。

Dim lastID As Integer
lastID = DMax("IDField","YourTable")
' or = DMax("IDField","YourTable","WhenField=Value")
MsgBox lastID

其他域函数是:

• 每日平均收入
• 计数
• 先
• 最后
• DL查找
• DM
• DStDev
• DStDevP
• DSum
• 数据变量
• DVarP

使用您友好的 F1 键查看更多信息