登録フォームの作成1実践データベース作成の第3回目は登録フォームの作成を行います。作成したテーブル「T_社員マスタ2013」へ新規データを追加するプログラムがメインになります。・テキストボックスやコンボボックスを設置し新規社員データの入力を行う。・登録するコマンドボタンを設置しテーブルへ新規データを追加する。上記のような流れになります。フォームを作成してみます。フォームの作成デザインは気にしないで下さい。社員コード・・・テキストボックス名前・・・テキストボックス性別・・・コンボボックス所属部署・・・コンボボックス入社日・・・テキストボックス登録ボタン・・・コマンドボタン以上になります。各テキストボックスとコンボボックスは「非連結」にしておきます。実際にVBAをどのように組み込んでいくのか説明します。フォームイベントフォームのイベントは「読み込み時」になります。フォームの「読み込み時」には以下のプログラムを実行します。実際のプログラムは以下のようになります。性別コンボボックス及び所属部署コンボボックスの作成(1)「Me.新規性別コード」を設定。(2)ADOを使用して「T_性別マスタ」を開く。Loop処理を使用して「Me.新規性別コード」にデータを追加(4)「Me.新規所属部署コード」も同様に作成します。ADOの使用方法はこちらを参照して下さい。コンボボックスの詳しい作成方法はこちらを参照して下さい。新規社員コードの取得方法は、現社員数をカウントし、その値に+1を行うように作成しています。(1)ADOを使用して「T_社員マスタ2013」を開く。“000”)】カウントしたレコード数に+1を行い、更にFormat関数を使用して値を「000」形式に変換(例:1→001)した後、変数「ID」に格納。変数「ID」はプログラムの冒頭で文字列(String)の設定がしてあります。ID】「ID」の値を「Me.新規社員コード」に表示。(社員のレコード数が「ゼロ」の場合は「001」となります)いかかでしょうか?これでフォームの「読み込み時イベント」は完了です。次回は新規登録のプログラムを説明していきます。実践データベース作成の第4回目は登録フォームの作成Part2です。実践データベース作成の第2回目はテーブルの作成を行います。実践データベース作成の第9回目は編集フォームの作成Part2です。実践データベース作成の第7回目は検索フォームの作成Part3です。実践データベース作成の第6回目は検索フォームの作成Part2です。