#359
コンボボックスのドロップダウンリストよりある項目を選択したとき、その項目の２列目や３列目の値を別のテキストボックスに代入して表示させる方法です。
ここでは、コンボボックスの"更新後処理"イベントプロシージャを利用して、コンボボックスで選択された項目の２列目や３列目のデータを取得、それらをテキストボックスに代入します。
作成手順
- 下図のようなフォームを作成します。
- 今回は、「得意先名」と「担当者名」の２つのテキストボックスは参照専用とし、非連結（コントロールソースなし）とします。
- コンボボックスの名前は"得意先コード"、２つのテキストボックスの名前はそれぞれ"得意先名"、"担当者名"とします。
- 今回は、「得意先名」と「担当者名」の２つのテキストボックスは参照専用とし、非連結（コントロールソースなし）とします。
- コンボボックスの値集合ソースとして「得意先」テーブルを指定するとともに、その２列目・３列目が「得意先名」と「担当者名」となるよう、"列数"プロパティ等を設定します。
- 続いて、コンボボックスの更新後処理イベントプロシージャに次のようなコードを記述します。
Private Sub 得意先コード_AfterUpdate()ここで「Me!得意先コード.Column(1)」や「Me!得意先コード.Column(2)」は、コンボボックスで選択された項目の２列目および３列目の内容を取得するものです。カッコ内の数字は１列目をゼロとして指定します。
'得意先コードコンボボックスの更新後処理
With Me!得意先コード
'コンボボックスの２列目を得意先名テキストボックスに代入
Me!得意先名 = .Column(1)
'コンボボックスの３列目を得意先名テキストボックスに代入
Me!担当者名 = .Column(2)
End With
End Sub
実行例
- コンボボックスをドロップダウンして任意の項目を選択します。
- それによってコンボボックスの２列目・３列目がそれぞれのテキストボックスに表示されます。
