VBAで正規表現や関数を使った入力チェックを行い、Accessに新規レコードを追加、保存するには：Access VBAで学ぶ初心者のためのデータベース／SQL超入門（4）（5/5 ページ）

» 2015年09月01日 05時00分公開

[薬師寺国安，PROJECT KySS]

前のページへ 1|2|3|4|5 　　　　　　

　設定した処理が正しく動作するか、確認しよう。まずは「年齢」に文字列を入力してみる。

　すると「数値を入力してください」と表示される（図9）。

図9　「年齢」に文字列を入力したら、警告メッセージが表示された

　次に「郵便番号」に、ケタ数が郵便番号としてはあり得ない数字を入力する。

　すると「郵便番号が不正です」と表示される（図10）。

図10　不正な「郵便番号」で警告メッセージが表示された

　次に「電話番号」に、ハイフンなしの電話番号を入力する。

　すると、図11のように「電話番号が不正です」と表示される。

図11　不正な「電話番号」で警告メッセージが表示された

　では、正しいデータを入力してみよう。

　「年齢」「郵便番号」「電話番号」全てに正規のデータを入力して、「登録」ボタンをクリックすると、図12のようにデータが登録される。

図12　新規データが登録された

　「顧客管理テーブル」に入力したデータが反映されていない場合は、Accessメニューの「全て更新」をクリックすると反映される。

図13　番号が飛んでいる

　図13を見ると、IDが連番にならずに、「11」の次が「17」になっている。これは、データを削除した場合に、削除されたデータのIDから連番が振られるためだ。

　オートナンバーのリセットは、以下の手順で行う。

「顧客管理テーブル」をデザインビューで開き、「オートナンバーフィールド（ここでは、IDフィールド）」を右クリックして「行の削除」を選択する。
フィールドのデータが失われることの確認画面が表示されるので、「はい」をクリックする。
「主キー」が削除されることの確認画面も表示されるので、「はい」をクリックする。
「オートナンバー」フィールドが削除される。
先頭の行を右クリックして「行の挿入」を選択する。
挿入した行を「ID」という名前を付けて、データ型に「オートナンバー型」を選択する。
「フィールドのプロパティ」から、「フィールドサイズ」に「長整数型」、「新規レコードの値」に、「インクリメント」が設定されていることを確認する（デフォルトの設定）。
「ID」フィールドに「主キー」を設定する。
「顧客管理テーブル」を保存してダブルクリックして開くと、「オートナンバー」がリセットされて「ID」フィールドが連番から始まっている。