リストボックスにテーブルまたはクエリを使って値を設定する方法です。
例
たとえば、このようなフォームにリストボックス(listFruits)が貼り付けてあるとします。
このリストボックスに次のテーブルの値を設定するには下記のように記述します。

Private Sub Form_Load()
'値集合タイプ
Me.listFruits.RowSourceType = "Table/Query"
'値集合ソース
Me.listFruits.RowSource = "T_果物"
'列数
Me.listFruits.ColumnCount = 2
'列幅
Me.listFruits.ColumnWidths = "0cm;2cm"
End Sub
ポイントは「列幅」で、1列目を0cmとして2列目だけを表示している点です。こうすることでテーブルのIDではなく実際の名前がリストボックスに表示されるようになります。実行結果

スポンサーリンク