ACCESS VBA レコード新規登録時にオートナンバーのIDが何番で登録されたか通知する方法

Question

Accessにて、データベース登録用のフォームを作成しています。

フォームの中身は、非連結のテキストボックスが配置されており、
ボタンイベントでレコードが登録されます。

下記のコードで、新規レコードを登録するVBAを登録するようにしているのですが、
登録する際にメッセージボックスで”ID：〇〇で登録されました”と
表記することは可能でしょうか？

Private Sub brn_regi_Click()

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("PartsList", dbOpenTable)
    
    Dim fld As Variant
    Dim NotNull As Boolean
    
    For Each fld In rst.Fields
        If fld.Name <> "ID" Then
            If Nz(Me(fld.Name).Value) <> "" Then
                NotNull = True
                Exit For
            End If
        End If
    Next
    If NotNull = False Then GoTo Exit_Sub

    rst.AddNew
    For Each fld In rst.Fields
        If fld.Name <> "ID" Then
            fld.Value = Me(fld.Name).Value
            Me(fld.Name).Value = Null
        End If
    Next
    rst.Update
    MsgBox "登録が完了しました"

Exit_Sub:
        
    rst.Close
    Set rst = Nothing
    
    Dim cl As Control
    On Error Resume Next
    For Each cl In Me.Controls
        With cl
            If .ControlType = acTextBox Then
                .Value = Null
            End If
        End With
    Next cl

End Sub

ご教授よろしくお願いします。

Answer 1

登録する際にメッセージボックスで”ID：〇〇で登録されました”と表記することは可能でしょうか？

IDはオートナンバーという前提なら、rst.AddNewの後で、rst.("ID")を参照すれば良いだけですね。

ただ、オートナンバーというのは単なる連番で、一般的に利用者が意識する必要がある項目に対して割り当てるものではありません。

メッセージとして表示が不要であるか、意識させる必要があるなら、少なくともプライマリーキーは別な項目にすべきです。

Comments

[YISS]

ありがとうございます。
ひとまず、思い通りの形は実現しました。

登録番号をオートナンバーIDとは別にした方がよいかなと、前から悩んでおりましたので、
また時間があるときに、その形につくりかえたいと思います。
アドバイスもありがとうございました。