字符串在 MSAccess 的 VBA 代码的 For Each 循环中异常行为

问：

好的，所以我从一个问题开始，并根据这个网站和其他网站的建议对代码进行了大量更改，所以我想我应该创建一个新问题。

尽管我的代码更短、更高效，但同样的问题仍然存在;我正在使用一个名为 strSQL 的字符串，其中包含我想要执行的 INSERT 语句。我有一个 FOR EACH 循环，它遍历我的 MSAcess 窗体上的每个控件（确保它们是文本框、下拉列表或复选框）并确定字段是否已更改。如果有，它会生成一个查询字符串来记录更改，并将其存储在 strSQL 中。

问题在于，同一个查询被一次又一次地执行。我添加了一个 DEBUG。执行查询字符串的行之前和之后的 PRINT 语句，调试器显示字符串已更改！是的，你没看错，这似乎是不可能的，但我已经截屏了。

首先是我的代码：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim C As Control
    For Each C In Controls
        Select Case C.ControlType
            Case acTextBox, acComboBox, acCheckBox
                Dim strOriginalValue, strCurrentValue, strSQL As String

                strOriginalValue = IIf(IsNull(C.OldValue), "", IIf(C.OldValue = vbTrue Or C.OldValue = vbFalse, IIf(C.OldValue = vbTrue, "Yes", "No"), C.OldValue))
                strCurrentValue = IIf(IsNull(C.Value), "", IIf(C.Value = vbTrue Or C.Value = vbFalse, IIf(C.Value = vbTrue, "Yes", "No"), C.Value))

                If strOriginalValue <> strCurrentValue Then
                    strSQL = "INSERT INTO fringefestival_changes (change_time,change_admin,action_taken,user_affected,year_affected,field_affected,type_affected,old_value,new_value) VALUES (NOW(),'" & ThisUserName() & "','Edit'," & [id] & ",0,'" & C.ControlSource & "','Administrator','" & Replace(strOriginalValue, "'", "") & "','" & Replace(strCurrentValue, "'", "") & "')"
                    Debug.Print "Before: " & strSQL
                    CurrentDb.Execute strSQL, dbFailOnError
                    Debug.Print "After: " & strSQL
                End If
        End Select
    Next
End Sub

下面是调试器的结果：

Before: INSERT INTO fringefestival_changes (change_time,change_admin,action_taken,user_affected,year_affected,field_affected,type_affected,old_value,new_value) VALUES (NOW(),'ajohnson','Edit',3,0,'indoor_performers_tab','Administrator','No','Yes')
After: INSERT INTO fringefestival_changes (change_time,change_admin,action_taken,user_affected,year_affected,field_affected,type_affected,old_value,new_value) VALUES (NOW(),'ajohnson','Edit',3,0,'indoor_performers_tab','Administrator','No','Yes')
Before: INSERT INTO fringefestival_changes (change_time,change_admin,action_taken,user_affected,year_affected,field_affected,type_affected,old_value,new_value) VALUES (NOW(),'ajohnson','Edit',3,0,'volunteers_tab','Administrator','No','Yes')
After: INSERT INTO fringefestival_changes (change_time,change_admin,action_taken,user_affected,year_affected,field_affected,type_affected,old_value,new_value) VALUES (NOW(),'ajohnson','Edit',3,0,'volunteers_tab','Administrator','No','Yes')

其次，我的截图...首先是调试器：1 和 2，其次是结果：这里 -- 请注意，调试器太宽了，所以我截取了两张屏幕截图，结果有一行被涂掉了，因为它与这个问题无关。

请注意，在我给出的示例中，唯一应该不同的列应该是“field_affected”列。

我完全不知所措，我不知道为什么它会将正确的字符串输出到调试器并执行其他操作。

编辑：在使用CurrentDb.Execute之前，我使用的是DoCmd.RunSQL，但这需要我禁用然后重新启用警告。由于两者的结果相同（相同的错误），因此我使用了单行解决方案而不是三行解决方案。

更新：感谢 shahkalpesh 帮助我意识到数据确实被正确插入，我可以在 SQL Server 的 management studio 中看到它，但 MS Access 仍然错误地显示它......问题是为什么？

最终编辑：通过向表中添加标识/自动递增整数列来修复，我怀疑缺少不同的字段值使 MSAccess 感到困惑（尽管它确实没有理由）——这里的士气是 M$ 是愚蠢的