MS Access窗体文本框为空时的数据变更跟踪问题及VBA代码适配

你的审计模块已经做得很扎实了，不过确实在处理空值（Null）或者空字符串的场景下会有遗漏，我来帮你调整代码，完美覆盖这些变更情况：

问题分析 #

原代码有两个核心问题导致空值变更无法被正确跟踪：

1. 空值比较失效：当控件值从Null变为非空，或者从非空变为Null时，If .Value <> .OldValue Then这个判断会返回Null（VBA中Null和任何值比较的结果都是Null），不会触发后续的日志插入逻辑。
2. SQL空值拼接错误：如果varBefore或varAfter是Null，直接用双引号包裹会生成""（空字符串），无法准确记录原始的Null状态，导致日志信息失真。

修改后的完整代码 #

Option Compare Database
Const cDQ As String = """"

Sub AuditTrail(frm As Form, recordid As Control)
    'Track changes to data, including null/empty value changes.
    'recordid identifies the pk field's corresponding control in frm, in order to id record.
    Dim ctl As Control
    Dim varBefore As Variant
    Dim varAfter As Variant
    Dim strControlName As String
    Dim strSQL As String
    On Error GoTo ErrHandler

    'Get changed values.
    For Each ctl In frm.Controls
        With ctl
            'Avoid labels and other controls without Value property.
            If .ControlType = acTextBox Then
                'Use Nz to handle null comparisons correctly
                If Nz(.Value, "") <> Nz(.OldValue, "") Then
                    varBefore = .OldValue
                    varAfter = .Value
                    strControlName = .Name

                    'Build INSERT INTO statement with proper null handling
                    strSQL = "INSERT INTO " _
                        & "Audit (EditDate, RecordID, SourceTable, " _
                        & " SourceField, BeforeValue, AfterValue) " _
                        & "VALUES (Now()," _
                        & cDQ & recordid.Value & cDQ & ", " _
                        & cDQ & frm.RecordSource & cDQ & ", " _
                        & cDQ & .Name & cDQ & ", " _
                        & IIf(IsNull(varBefore), "Null", cDQ & varBefore & cDQ) & ", " _
                        & IIf(IsNull(varAfter), "Null", cDQ & varAfter & cDQ) & ")"

                    'View evaluated statement in Immediate window.
                    Debug.Print strSQL
                    DoCmd.SetWarnings False
                    DoCmd.RunSQL strSQL
                    DoCmd.SetWarnings True
                End If
            End If
        End With
    Next

    Set ctl = Nothing
    Exit Sub

ErrHandler:
    MsgBox Err.Description & vbNewLine _
        & Err.Number, vbOKOnly, "Audit Trail Error"
End Sub

关键修改点说明 #

• 空值比较修复：用Nz(.Value, "") <> Nz(.OldValue, "")替代原来的直接比较，把Null转换成空字符串后再对比，这样无论是从Null变空字符串、Null变非空，还是反过来的情况，都能被正确识别为变更。
• SQL空值处理：使用IIf(IsNull(varBefore), "Null", cDQ & varBefore & cDQ)来判断变量是否为Null，如果是，就在SQL中写入Null（不带引号），否则用双引号包裹值，这样日志表中会准确记录原始的Null状态，而不是空字符串。
• 错误提示优化：把错误提示标题改成更明确的"Audit Trail Error"，方便快速定位问题来源。

这样修改后，你的审计模块就能完美跟踪文本框的所有变更场景，包括空值和空字符串之间的转换啦～

内容的提问来源于stack exchange，提问作者Mohammad