Accessでのデータ更新日入力

質問

Access2000を使っています。
データを更新（入力）した日付を自動的に入力する方法がありましたら教えてください。

回答No.2

noname#7099

私が実際に使っているプログラムです。
テーブルに「更新日」というフィールドがあり、画面上にも「更新日」というテキストボックスがあります。
フォームの更新前処理（Form_BeforeUpdate）時に、更新日の欄が空欄だったり、本日日付でなければ、本日日付を更新日に代入してから、レコードを更新します。

Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_Form_BeforeUpdate

If IsNull(Me.更新日) Or (Me.更新日 <> Date) Then Me.更新日 = Date

Exit_Form_BeforeUpdate: Exit Sub
Err_Form_BeforeUpdate: MsgBox Err.Description
Resume Exit_Form_BeforeUpdate
End Sub

回答No.1

mshr1962

入力した日はテーブルのフィールドの既定値に
date()
とすれば自動で入力されます。

更新日の場合は
更新前イベントでデータを変数に保存
更新後イベントでデータが異なったら
更新日のフィールドに=data()で日付けをセットになります。