Access ： リストボックスから複数選択された項目を取り出す

Access VBAでリストボックスコントロールで複数選択できるようにするには、複数選択プロパティを「標準」にします。

取り出すには、ItemSelectedを使用します。
取り出すには、選択項目数分ループし、テキストボックスに1行づつ加えています。
■実行Access画面
実行前の画面です。
品名のリストボックスから選択された項目を取り出し、テキストボックスに表示します。


■実行結果
「選択項目の取り出し」ボタンをクリックすると実行します。
選択されている、空気清浄機、加湿器、イオン発生器が表示されています。

■ Access VBA 実行コード例
Option Compare Database

Private Sub コマンド1_Click()
    Dim i As Variant
    Me!テキスト1.Value = ""
    '選択項目数分ループ
    For Each i In Me!リスト1.ItemsSelected
        Me!テキスト1.Value = Me!テキスト1.Value & Me!リスト1.Column(0, i) & vbNewLine
    Next
End Sub