AccessVBA コンボボックスでの指定

質問

いつもお世話になっています。
Access、AccessVBAともに超初心者ですが、よろしくお願いします。

フォームのコンボボックスに商品テーブルを設置し、商品名1を選んだら、
同じレコードの商品名２、商品名３の値を取り出すようにしたいのですがうまくいきません。
商品名２はよいのですが、商品名３が取り出せないのです。

エラーも表示されず、ただ商品名３が空白として取り出されているような・・・

フォームのプロパティ、値集合ソースで記入したフィールド順に
Column(0),(1),(2)・・・としたら取り出せるとおもったのですが、ちがっているのでしょうか？

詳しい方に原因など教えていただけたらと思います。よろしくお願いします。

----------------------------------------------------------------------------------------
MsgBox 商品名1.Value & "---" & 商品名1.Column(1) & "---" 商品名1.Column(2)
----------------------------------------------------------------------------------------
プロパティシートの値集合ソース：
SELECT 商品テーブル.商品名1, 商品テーブル.商品名2, 商品テーブル.商品名3 FROM 商品テーブル ORDER BY 商品テーブル.商品名3;

連結列：1

回答No.2

piroin654 · ベストアンサー

No1です。
書き忘れましたが、質問中の

　MsgBox 商品名1.Value & "---" & 商品名1.Column(1) & "---" 商品名1.Column(2)

の「商品名1」はコンボボックスの名前ですよね？普通は、

　MsgBox Me!コンボ名.Value & "---" & Me!コンボ名.Column(1) & "---" & Me!コンボ名.Column(2)

のような書き方をしますが。したがって、たとえば、

private sub コンボ名_afterupdate()
MsgBox Me!コンボ0.Value & "---" & Me!コンボ0.Column(1) & "---" & Me!コンボ0.Column(2)
end sub

のような感じですか。

お礼

なるほど。
たしかにそうですね。
助かりました。ありがとうございました。
これからもよろしくお願いします。

回答No.3

piroin654

すこし、追加。

コンボボックスのデザインで、
レコードの列数が３ならば、たとえば、プロパティで、

列数　　３
列幅　　2cm;0cm;0cm

のようにするのも方法です。

No1の場合は、列幅を直接いじらずに列数だけを変更しただけです。

お礼

列数や連結列やなにかがごっちゃになってパニックになっていました。
ありがとうございました。

回答No.1

piroin654

プロパティの「列数」を2にするとどうなりますか？
「連結列」ではありませんよ。

お礼

早速の回答、ありがとうございました。

列数を2にしたら、データが表示されました！

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