【Access】選択したコンボボックスの値を取得する方法

Accessで選択したコンボボックスの値を取得する方法について紹介します。

フォームにテキストを配置

テキスト1
名前：txtコード

テキスト2
名前：txt名前

コンボボックスのイベントを追加(VBA)

コンボボックス
名前：cboテーブル

更新後処理イベント

'***************************
' コンボボックス 更新後
'***************************
Private Sub cboテーブル_AfterUpdate()

    ' テキストを初期化
    Me.txtコード.Value = ""
    Me.txt名前.Value = ""
    
    ' コンボボックス選択時のみ
    If Me.cboテーブル.Value <> "" Then
        Me.txtコード.Value = Me.cboテーブル.Column(0)
        Me.txt名前.Value = Me.cboテーブル.Column(1)
    End If

End Sub

見えている選択値を表示する場合は

を使用します。

連結列＝1としているので「Value」で取得できるのは「コード」の方の値になります。

動きを確認

選択時

未選択時

コンボボックスの初期化

コンボボックスの選択値を初期化したい場合

または

※どちらでも問題ありません