レコードの更新日時を保存する

Accessで更新日時を保存したいということは多いですね。

レコードが更新された日時をテーブルに保存する方法です。

テーブルに［更新日時］フィールドを追加

まず、テーブルに［更新日時］という［日付/時刻型］のフィールドを追加します。

フォームに［更新日時］を追加

フォームに［更新日時］フィールドを追加します。

参考ここでは、ウィンドウの表示は［ウィンドウを重ねて表示する］の設定にしています。

更新前処理のイベントプロシージャ

フォームをデザインビューで開いて、［フォーム］プロパティを表示します。

［F4］キーを押すと、プロパティを表示できます。

［イベント］タブの［更新前処理］の［…］をクリックします。

［ビルダーの選択］から［コードビルダー］を選択して［OK］ボタンをクリックします。

VBEが表示されます。

そして、以下のように入力します。

VBEを閉じると、フォームのプロパティの［更新前処理］に［イベントプロシージャ］と表示されます。

これで、レコードが更新された日時を保存することができます。

フォームにテキストボックス［更新日時］がなくてもテーブルには保存されます。

以下の記事では、更新日時の取得を［埋め込みマクロ］を使って解説しています。

更新前処理と更新後処理のイベント発生時

更新前処理（BeforeUpdate）

レコードの内容を更新した後、更新内容が反映される直前

更新後処理（AfterUpdate）

レコードを修正した後、実際にレコードの更新が行われた直後

参考これまで私は、フォームのテキストボックスの［更新後処理］に書き込んでいたのですが、［更新前処理］に書き込むほうがいいようです。

レコードの更新日時を自動的に表示するには

また、テキストボックスではなく、フォームの更新前処理に書き込むと1行だけで済みます。

下記はMicrosoftのページですが、マクロを使用する方法で解説してあります。

レコード変更時に日時を保存する（Microsoft）

Excelでは、ユーザー定義関数やマクロを使って更新日時を表示して保存することができます。

Wordでも自動的に最終更新日時を表示して保存することができます。

また、PowerPointのスライドには［オブジェクトの挿入］機能を使って、Wordのフィールドコードを挿入して最終更新日時を表示することができます。