access2000でデータの変更の内容がわかるようにしたいのですが。

質問

ACCESS初心者です。
ACCESS2000でフォームで既存レコードのどこかを更新したら、
(1)変更する前のデータをテーブル？で保存していきたい。（変更されたデータの過去分のデータをどんどん残していく。上書きはしない）＆表示できれば尚うれしい。
(2)データを更新した日時も(1)と同じテーブルに書き込みたい。（こちらも(1)同様表示できれば尚うれしい）のです。
この作業はアクセスでできる？！と思っているのですが、
どなたかご教授頂ける方、よろしくお願いします。

回答No.5

Watapo3

klubサンのおっしゃる通り

If NZ(Ctr.OldValue,"")<> NZ(Ctr.Value,"") Then
の方がいいですね(^ ^)

また、フィールド名を履歴として残すなら

Ctr.Name
　　↓
Ctr.ControlSource

の方が良かったですね。
Ctr.Nameだとフィールド名とテキストボックス名が異なると、ちょっと困ってしまいますので・・・・

ご助言ありがとうございました。m(_ _)m

補足

Watapo3とklubさんありがとうございます。お二方に言われたとおりにしたところ、履歴が取れるようになりました！ただ言われた通りにしたつもりなのですが、なぜか履歴が必ず3つづつ取れてしまいます(T_T)。どこが悪いのでしょうか？下記の通りにしました。
まず、担当者フォームのイベントビルドのコードビルダへは、
Sub History_Tantou()

Dim Ctr As Control
Dim strSQL As String

For Each Ctr In Me.Controls
If Ctr.ControlType = 109 Then
If Nz(Ctr.OldValue, "") <> Nz(Ctr.Value, "") Then
strSQL = "insert into 履歴 values('担当者'," & Me.顧客コード & _
",'" & Ctr.ControlSource & "','" & Ctr.OldValue & "',#" & Now() & "#)"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End If
End If
Next Ctr
End Sub

・更新前処理へ、=[History_Tantou]
・更新後処理へ、=[Forms]("メイン").[Requery]

重要人物フォームのイベントビルドのコードビルダへは、
Sub History_jyuuyou()

Dim Ctr As Control
Dim strSQL As String

For Each Ctr In Me.Controls
If Ctr.ControlType = 109 Then
If Ctr.OldValue <> Ctr.Value Then
strSQL = "insert into 履歴 values('重要人物'," & Me.顧客コード & _
",'" & Ctr.ControlSource & "','" & Ctr.OldValue & "',#" & Now() & "#)"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End If
End If
Next Ctr
End Sub

・更新前処理へ、=[History_jyuuyou]
・更新後処理へ、=[Forms]("メイン").[Requery]

悪いところが見当もつきません。なので、他に何をお知らせすれば良いのかもわかりません。気になったのは、イベントビルドを書き込むと、左側にmicrosoft accessクラスオブジェクトというのがあると思うのですが、その下に、
form_jyuuyou、form_tantou、form_メインという3つができていました。あと、何かお知らせしたほうが良いことがありましたらご連絡ください。度々申し訳ありません。よろしくお願い申し上げますm(__)m