ray88’s diary

お仕事で困ったとき用の自分用の覚書

AccessVBA リスト・コンボボックスに表示される列数を設定する

■ColumnCountプロパティはリスト・コンボボックスに表示される列数を設定します。
【書式】

コントロール.ColumnCount = 列数

(例)

Private Sub btn9_Click() '[リストの列数の変更]ボタン
    Me.list1.ColumnCount = 2
    Me.list1.RowSourceType = "Table/Query"
    Me.list1.RowSource = "T部署マスタ"
End Sub

f:id:ray88:20201122065926p:plain