編集フォームの作成1実践データベース作成の第8回目は編集フォームの作成Part1です。「T_社員マスタ2013」に登録されたデータから編集したいデータを検索し、データ内容を書き換えるフォームを作成します。前回までに作成した「検索フォーム」に編集ボタンを追加したスタイルになります。編集フォームからの変更点は以下になります。詳細データ表示の「性別」と「所属部署」をそれぞれテキストボックスからコンボボックスへ変更。それに伴い、各コンボボックスの隣にコンボボックスで選択されたデータの内容を表示するテキストボックスを配置しました。例:性別コードで「0」を選択すると隣のテキストボックスに「男性」と表示される。本来は今までのフォーム作成でも配置しておくべきであったものですが、うっかり忘れておりました・・・・。詳細データの内容を編集した後テーブルにデータを反映させる為に「編集コマンドボタン」のクリック時イベントにテーブル内容を編集するプログラムを組み込みます。詳細データの内容から編集したい項目を直接変更し、テーブルデータを書き換えます。いつものことですが追加したコンボボックスとテキストボックスは「非連結」にしておきます。実際にVBAを組み込んでいきましょう。今回は「編集フォーム」から追加されたプログラムを説明します。・フォームの「読み込み時」イベント編集用のコンボボックスが2つ追加されたので、このコンボボックスを作成します。・コンボボックスの内容を表示するテキストボックス検索結果リストの「クリック時」及び各コンボボックスの「更新後処理」にプログラムを記述します。実際のプログラムは以下のようになります。「検索フォーム」作成時と同じプログラムです。同じコンボボックスを新たに追加しただけのプログラムです。検索結果リストの「クリック時」イベントクリック時イベントに以下のプログラムを追加します。SQL実行後の検索結果データをテキストボックスに表示するプログラムの下部に記述すれば動くはずです。Me.詳細所属部署コード.Column(1)また、「検索フォーム」では「性別」と「所属部署」を表示するようなプログラムにしていましたが今回は各コードを表示するようにプログラムを書き換えます。Me.詳細性別コード.Column(1))各コンボボックスの2列目のデータをテキストボックスへ表示コンボボックスの「更新後処理」コンボボックスの更新後処理に検索結果リストのクリック時イベントと同じプログラムを記述するだけです。ここまでいかがでしょうか?今回は特に難しい処理はありません。前回で完成した「検索フォーム」少しだけプログラムを追加しただけです。次回は編集(更新)プログラムを説明をしていきます。実践データベース作成の第5回目は検索フォームの作成Part1です。実践データベース作成の第6回目は検索フォームの作成Part2です。実践データベース作成の第10回目はメインフォームの作成です。実践データベース作成の第9回目は編集フォームの作成Part2です。実践データベース作成の第3回目は登録フォームの作成を行います。