新しく質問する

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

役に立った:0件
  • 質問者:amatou787B
  • 投稿日時:2007/01/25 23:47
  • 困り度:すぐに回答が欲しいです
  • 友達に紹介
  • ブログに書く
  • 教えて!gooお気に入り

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

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

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

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

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

この質問への回答は締め切られました。
このQ&Aは役に立ちましたか?(役に立った:0件)
  • 参考になった:0件

No.1ベストアンサー20pt

  • 回答者:bonaron
  • 回答日時:2007/01/26 00:44

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

通報する

この回答へのお礼

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

  
このQ&Aは役に立ちましたか?(役に立った:0件)

このページのトップへ

Facebook公式ページ

公式Twitter