Accessで、コンボボックスから２つの値を返す方法

質問

Accessで、コンボボックスから２つの値を返すことはできるでしょうか。
たとえば、

名称｜CODE1｜CODE2
------------------
いち｜11111｜AAAAA
にい｜22222｜BBBBB
さん｜33333｜CCCCC

というクエリを値集合ソースにしたコンボボックスで、
「いち」の行を選択したら、
CODE1の「11111」をテキストボックスAへ、
CODE2の「AAAAA」をテキストボックスBへ
入れたいのです。

このようなことは可能か不可能か、
もし可能ならどのようにすればいいのか、
教えて頂けないでしょうか。

回答No.3

noname#60992 · ベストアンサー

NO2です

テキストボックスＡのレコードソースに
=[コンボ].[Column](1)
テキストボックスＢのレコードソースに
=[コンボ].[Column](2)

とする手がありました。
先ほどの回答はなかったことに、
（できないか）

お礼

ぬおおおおおーーーーーー
感動です！
しあわせ

ありがとうございました！！！

回答No.2

noname#60992

VBAを使うといってもただの２行ですが、

Private Sub コマンド1_Click()
me.テキストA.Value =コンボ.Column(1)
me.テキストB.Value =コンボ.Column(2)
End Sub

VBAを使わないというのはかえって難しくなるかもしれませんが、

まず本当に両方のデータをテキストボックスに入れる必要があるのかを検討されるべきだと思います。　ＲＤＢ上なので、どこかに格納するために両方のデータを必要としているわけではないと思います。　もしそうならば、データの構造をもうちょっと考えられたほうがよいと思います。　

ユーザーが操作上両方のデータを見える状態にしておきたいのであれば、別に３列表示させなくてもクエリなどで表示させたい２列を一列にまとめてそれをコンボボックスのレコードソースとしてしまえばよいと思います。

これからもアクセスを使う機会があるなら少しずつＶＢＡに慣れていかれることをお勧めいたします。

回答No.1

CHIPDALE77

可能ですよ～
ＶＢＡで押下時のイベントに
CODE1の「11111」をテキストボックスA
CODE2の「AAAAA」をテキストボックスB
と連続で書けばＯＫ！

補足

ご回答ありがとうございます。
可能な方法があるとわかって安心しました。

ただ、私自身ＶＢＡは慣れていないことと、
保守しやすいアプリケーションにしたいため、
なるべくＶＢＡは避けて構築したいと思っています。
ＶＢＡ以外で可能な方法があれば教えて下さい。