次のページへ「テキストボックス」へ、リストボックスで選択した氏名に該当する、「郵便番号」と「住所」を表示する次は、「テキストボックス」へ、先ほど配置したリストボックス(氏名リストボックス)より選択した「氏名」に該当する「郵便番号」と「住所」を表示する方法を実践していこう。氏名リストボックスの下に「テキストボックス」コントロールを二つ配置して、項目名となるラベルは、それぞれ「〒」「住所」とする。UI」、フォントサイズに「14」、フォント太さに「太字」とする。続いて「その他」タブから、項目名「〒」のテキストボックスの名前欄に「郵便番号テキストボックス」を、同じく「住所」の名前欄には「住所テキストボックス」と指定しておく。氏名リストボックスの下に、「〒」と「住所」のテキストボックスを配置したVBEを起動して、VBAコードを記述する。Basic」を選択する。Subのプロシージャが残っているので、リスト2のようにコードを書き換える。氏名リストボックスより選択した「氏名」に合致する「郵便番号」と「住所」を表示するコードリスト2のコードは、以下のように記述されている。6行目:RecordSet型の変数myRecordSetを宣言する7行目:文字列型のyuubinSQLとaddressSQLを宣言する10行目:yuubinSQLに「氏名リストボックス」で選択された「氏名」に該当する「郵便番号」フィールドを取得するための「SQL文」を指定する12行目:CurrentDB.OpenRecordsetメソッドで、yuubinSQLに指定したクエリを開き、読み込む準備を行う13行目:「郵便番号テキストボックス」へ、SQL文のクエリに該当する「郵便番号」フィールドの値を指定する15〜16行目:レコードセットを閉じ、全ての関連付けから解放する11行目:addressSQLに「氏名リストボックス」で選択された「氏名」に該当する「住所」フィールドを取得するための「SQL文」を指定する18行目:CurrentDB.OpenRecordsetメソッドで、addressSQLに指定したクエリを開き、読み込む準備を行う19行目:「住所テキストボックス」へ、SQL文のクエリに該当する「住所」フィールドの値を指定する21〜22行目:再度、レコードセットを閉じ、全ての関連付けから解放する実行すると、図4のように表示される。「氏名リストボックス」から選択した「氏名」に該当する「郵便番号」と「住所」が表示された「コンボボックス」に性別を表示し、選択された性別に該当するレコードをリストボックスに表示する関連記事どんなビジネスにも欠かせないリレーショナルデータベースの基礎知識と作り方——テーブル、レコード、フィールド、主キーとはAccessを通じて、初心者がリレーショナルデータベースやSQLの基本を学び、データベースを使った簡単なシステムの作り方を習得する本連載。メールマガジンをご購読ください。申し込みページへITmediaはアイティメディア株式会社の登録商標です。