Accessで変更ログ（履歴）を記録する方法｜初心者でも安心のステップ解説

こんにちは！なかぜんです。
業務でAccessを使っていて「誰がいつどんな変更をしたか分からない…」と困ったことはありませんか？
そんなときに役立つのが「変更ログ（履歴）の記録」機能です。
今回は、Access初心者の方でも安心して実装できるように、変更内容を自動で記録する方法をやさしく解説します。

変更ログってなに？なぜ必要？
1. 変更ログを記録するメリット
基本の考え方と構成
1. 変更ログ用のテーブルを作ろう
2. フォームのBeforeUpdateイベントでVBAを書く
1. サンプルコード
2. ポイント解説
注意点とよくあるミス
応用ポイント（中級者向け）
まとめ：できたこと＆次のステップ
1. 今回の学び
2. 次のステップ案内

変更ログってなに？なぜ必要？

変更ログとは、データがいつ・誰によって・どのように変更されたかを記録する仕組みです。

変更ログを記録するメリット

変更ミスの追跡ができる
誰がいつ何を変更したか明確になる
トラブル発生時に原因を探しやすい

とくに複数人で同じデータベースを使っている場合には必須の機能ですね！

基本の考え方と構成

まず、以下のような構成で進めます：

変更ログを記録する専用テーブルを作成
対象フォームのBeforeUpdateイベントでVBAコードを記述

1. 変更ログ用のテーブルを作ろう

以下のような構成で「T_変更ログ」というテーブルを作成します。

フィールド名	データ型	内容
ID	オートナンバー	主キー
変更日	日付/時刻	変更が行われた日時
ユーザー名	短いテキスト	変更したユーザー名
テーブル名	短いテキスト	対象テーブル名
フィールド名	短いテキスト	変更されたフィールド
旧値	短いテキスト	変更前の値
新値	短いテキスト	変更後の値
レコードID	数値型	対象レコードのID

2. フォームのBeforeUpdateイベントでVBAを書く

対象フォームの「BeforeUpdate」イベントに、変更ログを書き込む処理を追加します。

サンプルコード

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim ctl As Control
    Dim strOldValue As String
    Dim strNewValue As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb

    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If Nz(ctl.Value, "") <> Nz(ctl.OldValue, "") Then
                Set rs = db.OpenRecordset("T_変更ログ", dbOpenDynaset)
                rs.AddNew
                rs!変更日 = Now()
                rs!ユーザー名 = Environ("Username")
                rs!テーブル名 = "T_商品" ' 対象テーブル名を指定
                rs!フィールド名 = ctl.Name
                rs!旧値 = ctl.OldValue
                rs!新値 = ctl.Value
                rs!レコードID = Me!ID ' 主キーのフィールド名を指定
                rs.Update
                rs.Close
            End If
        End If
    Next ctl

    Set rs = Nothing
    Set db = Nothing
End Sub