【Access】コンボボックスの選択されている値を取得【VBA】

##はじめに
VBAでコンボボックスの値を取得する方法です。
コンボボックスに値を設定してから行ってください。

##取得方法
####コンボボックス

• 「テーブル／クエリ」の場合の以下の通りに行ってください。
• 「値リスト」の場合は__2.値を取得__はできないので飛ばしてください。

1.キーを取得
”コンボボックス名”.Value
2.値を取得
”コンボボックス名.”Text

##コードサンプル

Private Sub コンボ1_AfterUpdate()    
    '変数宣言
    Dim cmbValue As Variant
    Dim cmbText As Variant
    
　　'値を取得
    cmbValue = コンボ1.Value
    cmbText = コンボ1.Text
    
    'イミディエイトに出力
    Debug.Print "Valueは" & cmbValue
    Debug.Print "Textは" & cmbText
End Sub

1.選択する

2.値が出力される