ACCESSでフォーム入力内容から自動で表示させる
顧客の口座を管理するものをAccessで作成しています。
顧客テーブルに氏名等の情報があり、別に銀行マスタテーブルとして金融機関の情報がID、銀行コード、銀行名、支店コード、支店名、と入力されているものがあります。
銀行マスタテーブルは以下の形です
銀行コード 銀行名 支店コード 支店名
1 みずほ 1 東京営業部
1 みずほ 4 丸の内中央
1 みずほ 5 丸の内
5 UFJ 5 大阪
あらかじめ、氏名等の情報は入力してあり、これから口座情報を登録していくのですが、フォームに銀行コード、支店コードを入力した際に、その下に配置したテキストボックスに銀行名、支店名を表示させたいと考えています。
銀行コードの方は値が重複しても対応する銀行名は同じなので
=DLookUp("[銀行名]","銀行マスタ","[銀行コード] = " & [Forms]![H25]![銀行コード])
でなんとかできたのですが、支店コードは各金融機関毎に割り振られ、重複するものがあるため最上段のものが表示されてしまいます。(UFJの支店コード5を表示させたいのに、みずほの支店コード5が出てきてしまう。)
そこで、複数条件で検索できるよう以下のようにしてみたのですが、うまくいきませんでした。
=DLookUp("[銀行名]","銀行マスタ","[銀行コード] = " & [Forms]![H25]![銀行コード]' And 支店コード = #" & [Forms]![H25]![支店コード] "#")
イメージとしては、そのフォームに入力した銀行コードかつ支店コードが一致する銀行マスタテーブルの支店名を、フォームに配置したテキストボックスへ表示させれればいいのかなと考えてみたのですが。(上の例で言うと、銀行コードが5で支店コードが5だからテキストボックスに「大阪」と出したい。)
関数でもVBAでも構いませんので、どなたかご教示ください。
よろしくお願いいたします。
お礼
お返事ありがとうございます。 何とかできました accessって難しいですね 助かりました。