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

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

例

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


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

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

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

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


実行結果

スポンサーリンク

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