MS AccessでSQL Insert後にメッセージボックスに新しく作成されたIDを引用します。

Question

フォーム上の入力に基づいてSQL Serverテーブルに新しいレコードを挿入するVBAスクリプトがMS Accessにあります。

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

レコードセットには1つの結果しか存在しません。最後の行を次のように変更してみてください。

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

Answer 2

レコードセット全体を印刷することはできません。ファイルの終わりに達していないときに、印刷する列を参照してレコードセットをループする必要があります。その後、列を文字列として出力します。私はそれをテストしなかった。

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