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