我的审计跟踪脚本不工作

我正在使用下面的代码来审计我的表单以进行更改。当我使用tbl_MBR上的ID字段“MBRID”时，它可以很好地工作。但是，当我使用tbl_ItemMaster上的ID字段“IMID”时，出现错误：无法找到表达式中引用的字段“IMID”。任何想法为什么IMID无法找到？我的审计跟踪脚本不工作

Private Sub Form_AfterDelConfirm(Status As Integer) 
If Status = acDeleteOK Then Call AuditChanges("IMID", "DELETE") 
End Sub 

Private Sub Form_BeforeUpdate(Cancel As Integer) 
If Me.NewRecord Then 
    Call AuditChanges("IMID", "NEW") 
Else 
    Call AuditChanges("IMID", "EDIT") 
End If 
End Sub 

Sub AuditChanges(IDField As String, UserAction As String) 
On Error GoTo AuditChanges_Err 
Dim cnn As ADODB.Connection 
Dim rst As ADODB.Recordset 
Dim ctl As Control 
Dim datTimeCheck As Date 
Dim strUserID As String 
Set cnn = CurrentProject.Connection 
Set rst = New ADODB.Recordset 
rst.Open "SELECT * FROM tbl_AuditChanges", cnn, adOpenDynamic, adLockOptimistic 
datTimeCheck = Now() 
strUserID = Environ("USERNAME") 
Select Case UserAction 
    Case "EDIT" 
     For Each ctl In Me.Controls 
     Debug.Print ctl.Name 
      If ctl.Tag = "Audit" Then 
       If Nz(ctl.Value) <> Nz(ctl.OldValue) Then 
        With rst 
         .AddNew 
         ![DateTime] = datTimeCheck 
         ![UserName] = strUserID 
         ![FormName] = Screen.ActiveForm.Name 
         ![Action] = UserAction 
         ![RecordID] = Screen.ActiveForm.Controls(IDField).Value 
         ![FieldName] = ctl.ControlSource 
         ![OldValue] = ctl.OldValue 
         ![NewValue] = ctl.Value 
         .Update 
        End With 
       End If 
      End If 
     Next ctl 
    Case Else 
     With rst 
      .AddNew 
      ![DateTime] = datTimeCheck 
      ![UserName] = strUserID 
      ![FormName] = Screen.ActiveForm.Name 
      ![Action] = UserAction 
      ![RecordID] = Screen.ActiveForm.Controls(IDField).Value 
      .Update 
     End With 
End Select 
AuditChanges_Exit: 
On Error Resume Next 
rst.Close 
cnn.Close 
Set rst = Nothing 
Set cnn = Nothing 
Exit Sub 
AuditChanges_Err: 
MsgBox Err.Description, vbCritical, "ERROR!" 
Resume AuditChanges_Exit 
End Sub

来源

2017-10-20 Lando

哪一行会引发错误？禁用错误处理程序进行调试。或者在第一行代码上设置断点并执行步骤。代码正在寻找名为IMID的控件。有一个吗？控件不必与其绑定的字段命名相同。 – June7

它不会给我那个信息。当我尝试编译它时，不会抛出任何错误。我试着一行一行地查找IMID时出现错误。当我使用MBRiD（tbl_MBR的ID字段）时，所有ctls都可以工作。 – Lando

答案有点隐藏，但我找到了。字段IMID不在与子窗体关联的查询中。因此，当代码查找“IMID”时，找不到它。

将“IMID”添加到查询可解决问题。

来源

2017-10-20 19:13:54 Lando

我的审计跟踪脚本不工作

回答

相关问题