access コンボボックス初期表示について

ＡＣＣＥＳＳ　ＶＢＡ　コンボボックス　初期表示について。質問します。m(__)m
教えてください。　VBAのフォームロードでコンボボックスに初期表示

させたいのですが、初期表示させいたい内容というのが、テーブルにある例えば列名ＡＡＡ、列名ＢＢＢがあるとして
　列名ＡＡＡの中で「３」を持っている、列名ＢＢＢの名前を初期表示させたいのです。

テーブル名　ＣＣＣ
ＡＡＡ...BＢＢ.
...1 ......あ....
...2.......い....
...3.......う....
...4 ......え...

このテーブル「ＣＣＣ」でいえば３を指定して、「う」をフォームロードでコンボボックスに初期表示させたいのですがどうやればいいのでしょうか？
いまの状態はコンボボックスに「あ・い・う・え」の順番で取っきていて「あ」が初期表示になっています。
コードの書き方がわかりません。教えてください
テーブルＣＣＣはフォームのプロパティのコントロールソースでつなげてあります。

↑という風に質問させていただいて
回答していただいた内容は

//何番目のデータを初期表示したいか決め、ＦＯＲＭ　ＬＯＡＤ時にその値をLISTINDEXにセットすれば良いのでは？
//即ち
//Private Sub Form_Load()
//Combo1.ListIndex = 2
//End Sub
//のようにプログラムを書けば良いと思います。但し、初期値は”０”なので注意が必要です。

としていただいたのですが、私の質問が説明が足りていなくて改めて質問させていただきます。
テーブルの中身はそのときそのときで入れ替わります。

テーブル名　ＣＣＣ　
ＡＡＡ...BＢＢ..........................................ＡＡＡ..ＢＢＢ
...1 ......あ....左の並びのときもあれば.......3.......か
...2.......い....右のように並びが変わる.......1.......け　
...3.......う......時があります。....................2.......さ
...4 ......え................................................4.......な

このときに「３」を指定して、３に対応するＢＢＢの行をフォームロードでコンボボックスに初期表示させたいのですがどうやればいいのでしょうか？

No.1 ベストアンサー 回答者： redfox63 回答日時： 2007/11/17 16:07

データを値集合ソースにて接続します

SELECT AAA,BBB FROM CCC
コンボボックスの書式の 列数と列幅を
列数 : 2
列幅 : 0,3
# 後ろの3は プロパティ幅に合わせます

FormのLoadイベントに
　　dim n as integer
　　for n = 0 to コンボ0.ListCount -1
　　　　if コンボ0.ItemData(n) = 3 then
　　　　　　コンボ0.SetFocus
　　　　　　コンボ0.ListIndex = n
　　　　　　Exit for
　　　　end if
　　next
といった記述で良いと思います

この回答へのお礼

無事できました　
助かりました。
ありがとうございました。
今後ともよろしくお願い申し上げます

お礼日時：2007/11/19 22:49

No.2 回答者： noname#79209 回答日時： 2007/11/18 23:43

ハズしていたら、ゴメンナサイ．．．

「初期表示」と言われていますが、
「初期」という文言を使うと、「初期値」と読み取られ、
「最初に３が選択された状態にしておきたい」と思われてしまいます。
もしかして、本当の要望は、
「AAAフィールドが３のものだけを、値集合のソースとしたい」ではないですか？

この回答へのお礼

ご回答ありがとうございます。
ＮＯ１の方のやり方でできました。　
言葉足らずでご心配、ご迷惑をおかけしました。
無事できました。ありがとうございました。
今後ともよろしくお願い申し上げます。

お礼日時：2007/11/19 22:48