次のページへ一覧リストボックスから選択した項目を「テキストボックス」や「コンボボックス」に表示する続いて、一覧より選択した項目を「テキストボックス」や「コンボボックス」に表示するための処理を行っていく。フォームが読み込まれたときの初期化処理その前に、以下の変数宣言を「プライベートモジュールレベル」変数として宣言しておく。Explicit」の下にそのまま記載してほしい。次に、フォームが読み込まれたときの処理として、リスト1のコードを記述する。フォームが読み込まれたときの処理リスト1のコードの内容は以下の通り。2〜3行目:変数「i」を宣言し、ItemSelected.Countプロパティで、一覧リストボックスの項目が「0」より大きい場合、つまり項目が選択された状態のときは、以下の処理を行う。4〜6行目:一覧リストボックス内の項目の個数の分だけ反復処理を行い、Selected(Index)の値にFalseを指定して、選択を解除する。8〜13行目:その後、各「テキストボックス」の中を空にしておく。この処理により、「データ編集フォーム」を起動したときは「一覧リストボックス」内の項目が何も選択されていない状態となる。ワンポイントForm_Loadイベントは、図4、図5の方法でコードを生成することもできる。Subのコードが生成されるので、この中に処理を記述していく。これ以降の「一覧リストボックス_Click」や「編集ボタン_Click」についても、同様の手順でコードを生成するといい。「一覧リストボックス」を選択し、「プロパティシート」→「イベント」タブをクリックする。Subのコードが生成されるので、この中にリスト2のコードを記述する。一覧リストボックスから項目を選択した時の処理リスト2はプロパティを使って、各列と各行の値を取得して変数に格納していくコードだ。2行目:namae変数には、1列目(氏名)で、行が「一覧リストボックス.ListIndex+1」の行の値を取得して格納する。「+1」としたのは、ListIndexだけでは、インデックスの値が「0」になり、項目行のタイトルを取得してしまうため。「+1」行ずらして、項目行の値を取得するようにしている。3〜7行目:sexには2列目(性別)の値、ageには3列目(年齢)の値、yuubinには4列目(郵便番号)の値、addressには5列目(住所)の値、telには6列目(電話番号)の値を格納している。して取得した値を、各「テキストボックス」の値に指定する。これで、「一覧リストボックス」から選択した値が、各「テキストボックス」に表示されるようになる。編集ボタンがクリックされたときの処理コード関連記事どんなビジネスにも欠かせないリレーショナルデータベースの基礎知識と作り方——テーブル、レコード、フィールド、主キーとはAccessを通じて、初心者がリレーショナルデータベースやSQLの基本を学び、データベースを使った簡単なシステムの作り方を習得する本連載。メールマガジンをご購読ください。申し込みページへITmediaはアイティメディア株式会社の登録商標です。