テキストボックスとコンボボックス

こんにちは、Accessのフォームにテキストボックスとコンボボックスを設置して、以下のような事ができないかと悩んでおります。

フォーム内には、テキストボックスとコンボボックスが設置してありまして、コンボボックス内にＤＢ(会社名テーブル)から取得した全ての会社名が入っています。
しかし、そのレコード数が３００件近くあるため、コンボボックス内から探し出すのに手間が掛かります。

そこで、コンボボックスの隣にテキストボックスを設置し、テキストボックス更新後に会社名テーブルの検索を行い、条件に合った会社名だけをコンボボックス内に入れることを考えているのですが、上手く行きません。

動作のイメージとしては下記のようになります。
(1)初期表示時はテキストボックス内に何も入力されていないので、全レコードがコンボボックス内に表示される。
(2)テキストボックスに「有限」と入力して、テキストボックスからフォーカスを移動させると、コンボボックス内に「有限」が会社名に含まれているレコードのみが入っている。
(3)テキストボックスを空白に戻すと、コンボボックス内には全レコードが表示

以上、どなたかご教授よろしくお願いします。

No.1 ベストアンサー 回答者： bonaron 回答日時： 2007/01/26 00:44

コンボボックスの「値集合ソース」の会社名の抽出条件に

Like "*" & [Forms]![フォーム名]![テキストボックス名] & "*"
コンボボックスの「フォーカス取得時」イベントのイベントプロシージャに
Me.コンボボックス名.Requery
マクロなら
　アクション：再クエリ
　コントロール名：コンボボックス名

この回答へのお礼

早速のご教授ありがとうございました。
上記の方法で出来ました。

お礼日時：2007/01/26 21:45