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

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

スポンサーリンク