运行-time error '2467': 您输入的表达式引用了一个已关闭或不存在的对象

Question

我运行在以下代码 () 后遇到 2467 错误：

Option Compare Database
Option Explicit

Private Sub CmdReject_Click()
Dim lngID As Long

    lngID = Me.ID
    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close , ""
    Beep 
    MsgBox "Issue has been saved.", vbInformation, ""
    NewFormIssue (lngID)

End Sub

Private Sub NewFormIssue(lngID As Long)

    DoCmd.OpenForm "Frm_Issue_Entry", acNormal, , , acFormAdd
    Me.Person.Value = DLookup("[Previous_Person]","[tbl_Issue_Log]", "[ID] = " lngID)

End Sub

运行-时间错误发生在Me.Person.Value = DLookup("[Person]","[tbl_Issue_Log]", "[ID] = " lngID)行。

我正在尝试使用之前表单的 ID 来填充此新表单上的 11 个字段，这样用户就不必使用 dlookup 重做所有内容，dlookup 以前有效，但我似乎无法找到原因刚刚停止工作...

Answer 1

我想我知道发生了什么（至少从高层次的角度来看）。 Me 仍然指向先前关闭的表单，而不是添加的新表单，从而导致错误。我改用 Form_Frm_Issue_Entry.Person.Value 解决了这个问题，但我不确定为什么它以前有效。

运行-time error '2467': 您输入的表达式引用了一个已关闭或不存在的对象

Run-time error '2467': The expression you entered refers to an object that is closed or doesn't exist

ms-access

vba

runtime-error