无法添加Access TempVars变量

如何解决无法添加Access TempVars变量

我只是想在TempVars中创建两个变量。这是相关的代码：

Private Sub cboFilterFavorites_AfterUpdate()

    On Error GoTo ApplyFilterFavorites_Err

    If (IsNull(Me.cboFilterFavorites) Or Me.cboFilterFavorites = 0) Then
        ClearFilter
        Exit Sub
    End If

    If (Me.cboFilterFavorites = -1) Then
        ManageFilters
        Exit Sub
    End If

' Apply Filters
    TempVars.Add "FilterString",DLookup("[FilterString]","T_Filter","ID = " & Me.cboFilterFavorites)
    TempVars.Add "SortString",DLookup("[SortString]","ID = " & Me.cboFilterFavorites)

    With Me.Form
        If (Not IsNull(TempVars!FilterString)) Then
            .Filter = TempVars!FilterString
            If Not .FilterOn Then
                .FilterOn = True
            End If
        End If
    
        If (Not IsNull(TempVars!SortString)) Then
            .OrderBy = Nz(TempVars!SortString)
            If Not .OrderByOn Then
                .OrderByOn = Not IsNull(TempVars!SortString)
            End If
        End If
    End With

    TempVars.Remove "FilterString"
    TempVars.Remove "SortString"

ApplyFilterFavorites_Exit:
    Exit Sub

ApplyFilterFavorites_Err:
    MsgBox Error$
    Resume ApplyFilterFavorites_Exit

End Sub

Public Function ManageFilters() 'Opens the filter form.

    On Error GoTo ManageFilters_Err

    TempVars.Add "ObjectType",Application.CurrentObjectType
    Debug.Print TempVars!ObjectType
    TempVars.Add "ObjectName",Application.CurrentObjectName
    Debug.Print TempVars!ObjectName
    DoCmd.OpenForm "frmFilter",acNormal,"","[ObjectName]=[TempVars]![ObjectName]",acDialog
    Me.Refresh
    TempVars.Remove "ObjectType"
    TempVars.Remove "ObjectName"

ManageFilters_Exit:
    Exit Function

ManageFilters_Err:
    MsgBox Error$
    Resume ManageFilters_Exit

End Function

奇怪的是，如果我在事件开始时停下来，并逐步浏览它起作用的代码。但是，如果我正常运行它，则不会（意味着[TempVars]![ObjectType] = -1； [TempVars]![ObjectName] =空白）

Here是Microsoft在该方法上所说的。有什么想法吗？