对于每个在VBA代码中无法正常工作

问：

好吧，我几乎完成了我在这里讨论的应用程序的审计部分。我这样做的方式是遍历所有文本字段、下拉框和复选框，并将它们的值存储在 form_load 事件中。然后我在form_afterUpdate事件中做同样的事情，并将两者进行比较。如果有差异，我会记录它，如果没有，我会继续前进。代码如下：

Dim strValues(1 To 32) As String

Private Sub Form_AfterUpdate()
    Dim strCurrentValue, strSQL As String
    Dim intCurrentField As Integer
    intCurrentField = 1

    For Each C In Forms!frmVendorsManageVendors.Controls
        Select Case C.ControlType
            Case acTextBox, acComboBox, acCheckBox
                //Doing this because I don't want a NULL as it won't concatenate in the SQL query and don't want 0 or -1 for the boolean fields
                strCurrentValue = IIf(IsNull(C), "", IIf(C = vbTrue Or C = vbFalse, IIf(C = vbTrue, "Yes", "No"), C))

                If strValues(intCurrentField) <> strCurrentValue Then
                    strSQL = "INSERT INTO changesTable (change_time,user_affected,field_affected,old_value,new_value) VALUES (NOW()," & [id] & ",'" & C.ControlSource & "','" & strValues(intCurrentField) & "','" & strCurrentValue & "')"

                    DoCmd.SetWarnings False
                    DoCmd.RunSQL strSQL
                    //InputBox "", "", strSQL
                    strSQL = "WEEEE"
                    DoCmd.SetWarnings True

                    strValues(intCurrentField) = strCurrentValue
                End If

                intCurrentField = intCurrentField + 1
        End Select
    Next
End Sub

Private Sub Form_Open(Cancel As Integer)
    Call btnLock_Click

    Dim intCurrentField As Integer
    intCurrentField = 1

    For Each C In Forms!frmVendorsManageVendors.Controls
        Select Case C.ControlType
            Case acTextBox, acComboBox, acCheckBox
                //Doing this because I don't want a NULL as it won't concatenate in the SQL query and don't want 0 or -1 for the boolean fields
                strValues(intCurrentField) = IIf(IsNull(C), "", IIf(C = vbTrue Or C = vbFalse, IIf(C = vbTrue, "Yes", "No"), C))
                intCurrentField = intCurrentField + 1
        End Select
    Next
End Sub

正如你所看到的，有一个注释掉的行，我插入到changesTable中，它将查询放在一个输入框中，这样我就可以复制/粘贴它并查看它。当我取消注释该行时，一切都很好。如果它被注释，则会生成第一个更改，但随后不会为其他控件更改它。因此，如果我更改字段 1 和字段 2，它将插入字段 1 更改两次。

这非常令人困惑，我不知道为什么会发生这种情况。

我也知道我使用了错误的注释语法，但是如果我使用正确的语法，SO“代码颜色”er将无法正确显示。