コンボBOXで抽出した値をテキストBOXに表示したい

質問

入力用フォームで注文フォームを作成しているのですが、コンボBOXで商品Noを抽出し、テキストBOXに商品名を表示したいのですが、

Private Sub コンボ1_AfterUpdate()
Me!テキスト1 = Me!コンボ1.column(1)
End　Sub

と入力したのですが、他の行にも同じ商品名が表示されます。

商品NoをコンボBOXで指定し、数量を手入力という入力フォームを作成したいのです。
作成方法を教えてください。
よろしくおねがいします

回答No.1

O_cyan · ベストアンサー

下記でテキスト1にコンボ1の２カラム目の値を代入出来ます。

Private Sub コンボ1_AfterUpdate()
テキスト1 = コンボ1.Column(1)
End　Sub

>他の行にも同じ商品名が表示されます
？？
他の行とは他のテキストボックスにもという事ですか？
そのテキストボックスのコントロールソースはどうなっていますか？

お礼

回答ありがとうございます。
他のテキストBOXにも表示されるということです。
説明不足ですみません。
テキストボックスのコントロールソースは空白です。
これが原因なんでしょうか？

補足

テキストボックスのコントロールソースを商品名とするとでてきました。
ありがとうございます。
補足とお礼が逆になりましたが、ありがとうございました。