【Access】リストボックスに値を設定する（テーブル/クエリ）

リストボックスにテーブルまたはクエリを使って値を設定する方法です。

例

たとえば、このようなフォームにリストボックス（listFruits）が貼り付けてあるとします。


このリストボックスに次のテーブルの値を設定するには下記のように記述します。

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Form_Load()       '値集合タイプ     Me.listFruits.RowSourceType = "Table/Query"           '値集合ソース     Me.listFruits.RowSource = "T_果物"           '列数     Me.listFruits.ColumnCount = 2           '列幅     Me.listFruits.ColumnWidths = "0cm;2cm"       End Sub

ポイントは「列幅」で、１列目を0cmとして２列目だけを表示している点です。こうすることでテーブルのIDではなく実際の名前がリストボックスに表示されるようになります。


実行結果

スポンサーリンク

https://hosopro.blogspot.com/2017/11/access-vba-listbox-table-query.html 【Access】リストボックスに値を設定する（テーブル/クエリ）