在 SQL Insert in MS Access 后在消息框中引用新创建的 id

Question

我在 MS Access 中有一个 VBA 脚本，它根据表单上的一些输入将新记录插入 SQL 服务器 table。


Private Sub Allocate_Click()
    Dim strSQL As String
    strSQL = "INSERT INTO dbo_ALLOCATIONS " _
    & "([Employee No],[Device Serial Number],[Start Date]) VALUES " _
    & "('" & Me.EmployeeNumber & "', '" & Me.SerialNumber & "', '" & Me.StartDate & "')"
    CurrentDb.Execute strSQL, dbFailOnError
    Dim ReceiptNo As dao.Recordset
    Set ReceiptNo = CurrentDb.OpenRecordset("select @@identity")
    MsgBox "Device Successfully Allocated. Receipt ID is " & CurrentDb.OpenRecordset("select @@identity")
End Sub

最后查询插入时自增的ID。然后我想在消息框中引用它，以便用户可以在其他地方使用它。我怎样才能让它像 MsgBox 命令中那样引用？我目前拥有的那个导致了很多问题，因为我无法组合这个命令，当只使用 'ReceiptNo' 时它说它不是一个字符串。

Answer 1

无法打印整个记录集。您需要引用要打印的列并在未到达文件末尾时循环遍历记录集。然后将您的列输出为字符串。虽然我没有测试它。

While not ReceiptNo.EOF
    Msgbox Str(ReceiptNo!Identity)
    ReceiptNo.moveNext
Wend

Answer 2

记录集中应该只有一个结果。尝试将最后一行更改为：

MsgBox "Device Successfully Allocated. Receipt ID is " & ReceiptNo(0)

在 SQL Insert in MS Access 后在消息框中引用新创建的 id

Quote newly created id in message box after SQL Insert in MS Access

sql-server

vba

ms-access-2010