編集フォームの作成2実践データベース作成の第9回目は編集フォームの作成Part2です。前回は「検索フォーム」にコンボボックス、テキストボックスを追加し、プログラムを少し追加した「編集フォーム」を作成しました。今回はテーブル内のデータを編集するプログラムを作成します。上記のような流れになります。実際にVBAをどのように組み込んでいくのか説明します。コマンドボタン(編集)のクリックイベントコマンドボタンのイベントは「クリック時」になります。コマンドボタンの「クリック時」には以下のプログラムを実行します。実際のプログラムは以下のようになります。MsgBox(“編集を行います。各テキストボックス、コンボボックスが未入力(Null値)の場合、警告メッセージを表示し、プログラムをその時点で終了させます。未入力エラー処理の詳細はこちらを参照して下さい。2.編集処理(1)Yes/No型のメッセージボックスを表示し、Yesが選択された場合のみ編集処理を実行します。(2)ADOを使用して「T_社員マスタ2013」を開きます。(3)【Find】を使用して編集したい社員コードを条件にデータを検索します。(4)データの更新を行います。更新日フィールドには「今日の日付」(Date)を入力します。実際には編集していないデータも同じ値を入力するプログラムになります。(5)編集・更新が完了したメッセージを表示します。いかがでしょうか?これでコマンドボタンのクリック時イベントは終了です。編集フォームの作成もこれにて完了になります。実践データベース作成の第7回目は検索フォームの作成Part3です。実践データベース作成の第6回目は検索フォームの作成Part2です。実践データベース作成の第8回目は編集フォームの作成Part1です。実践データベース作成の第5回目は検索フォームの作成Part1です。データベース作成の実践編として数回に渡り、AccessVBAを使用したデータベース作成の手順を公開していきます。