アクセスのフォーム上でのルックアップについて

質問

お世話になります。
素人が初心者向け参考書を片手に、顧客管理のデーターベースを作ってます。
下記は作ったテーブルの簡単な図です。
【商品区分】→【商品マスタ】→【会社別単価】←【顧客マスタ】
　　　【仕入先】↑
：テーブルのフィールド：
【商品区分】（区分ＩＤ）（区分名）
【仕入先】（仕入ＩＤ）（仕入先名）
【商品マスタ】（商品ＩＤ）（商品名）（区分ＩＤ）（仕入ＩＤ）
【顧客マスタ】（顧客ＩＤ）（会社名）（会社名の頭文字）（住所）（電話＆ＦＡＸ）（取引開始年月日）
【会社別単価】（単価ＩＤ）（顧客ＩＤ）（見積日時）（商品ＩＤ）（数量）（単価）（備考）
主キーはＩＤでオートナンバーにし、各々のＩＤでリレーションをしています。
また、【商品マスタ】と【会社別単価】のＩＤをルックアップ設定しています。
で、【会社別単価】以外は入力が終了して、【会社別単価】をフォームを作り入力しようとしています。

※問題となっていること※
フォーム上から入力していますが、如何せん会社数が４００社近く、商品数も１０の区分があり、
各々に小物も合わせ３０商品（合計１０×３０＝３００商品）あり、ちょっと入力が
面倒なことになっています。（フォームはウィザードを使用して作りました）

※やりたいこと※
【会社別単価】のフォームで、会社名を（頭文字）で抽出して（あ、い、う…で入力しています）、
コンボボックスを2つ使用して、「あ」を選ぶと頭文字「あ」の会社が出てくるようにしたいです。
同じように商品名の方も、商品区分で選んで、それに対応する商品群を表示したいです。

同じような質問があり、参考にしてやってみてますが、さっぱり分かりませんｗ
また、何か補足が必要であれば、補足しますので、すみませんが力を貸してください。

回答No.1

Funatarou

こんにちわ。

やりたいことは、
コンボボックス01に「あ」を入れると
コンボボックス02に「アフラック」みたいに「あ」が付く会社名がリストアップされる。
で良いですか？

既に【顧客マスタ】テーブルに（会社名の頭文字）フィールドを作ってらっしゃるのが良いですね～

(1)まずクエリを作成します。
【顧客マスタ】テーブルの（会社名の頭文字）フィールドに抽出条件、
=[forms]![入力フォーム名]![コンボボックス01]
表示は（会社名）のみ。
を作成。

(2)コンボボックス02の値集合タイプを「テーブル/クエリ」にして値集合ソースに上記クエリを指定。

(3)コンボボックス01のイベント-更新後処理にイベントプロシージャ

コンボボックス02 = ""
Me.Refresh

を入れておくと、条件を変えたときに最新化されるようになります。

もう少し手を加えて・・・・

(3)のイベントに
コンボボックス02 = ""
Me.Refresh
Me.コンボボックス02.SetFocus　　　

を追記して

(4)コンボボックス02のイベント-フォーカス取得時にイベントプロシージャ

Me.コンボボックス02.Dropdown

を入れると動きが快適になります。
お試しください。