Access ： リストボックスを複数列で使う

Access VBAでリストボックスを複数列で使うには、列数を1から希望列数に変更し、それぞれの列幅を設定します。

データを追加するのは、AddItemを使用し「 ; （セミコロン）」で列データを区切ります。
データをクリアするには、RowSource = "" を使用します。

■ Accessデザイン画面
プロパティシートで、「列数」と「列幅」を設定します。

■ 実行Accessフォーム
リストボックスを3列で使用しています。

■ Access VBA 実行コード

Option Compare Database

Private Sub コマンド0_Click()
    Dim i As Integer
    'リストボックスに追加
    For i = 1 To 10
        Me!リスト2.AddItem i & ";" & i * 10 & ";" & "あい" & i
    Next
End Sub

Private Sub コマンド1_Click()
    'リストボックスのクリア
    Me!リスト2.RowSource = ""
End Sub