MS Access 从另一个表单应用过滤器

Question

我从另一个网站获得此代码，但它不起作用。 我想从另一个表单中过滤拆分视图表单。

 Private Sub btnSearch_Click()

   '//Check that other form is loaded - if not, then open it
    If Not fIsLoaded("frmMain") Then
        DoCmd.OpenForm ("frmMain")
    End If
    '//Set filter to listbox criterion
    Forms("frmMain").Filter = "[Priorities] = " & Chr(34) & Me.Priorities & Chr(34)
    Forms("frmMain").FilterOn = True

End Sub

Function fIsLoaded(ByVal strFormname As String) As Boolean

    'Returns False if form is not open or True if Open
    If SysCmd(acSysCmdGetObjectState, acForm, strFormname) <> 0 Then

        If Forms(strFormname).CurrentView <> 0 Then
            fIsLoaded = True
        End If

    End If
End Function

我收到了这个错误

Answer 1

我最好的猜测是表单还没有准备好进行过滤，这就是发生错误的原因。 DoCmd.OpenForm 采用Where 参数来设置打开时的过滤器，以防止这种情况发生。

 Private Sub btnSearch_Click()

   '//Check that other form is loaded - if not, then open it with the filter
    If Not fIsLoaded("frmMain") Then
        DoCmd.OpenForm ("frmMain",,,"[Priorities] = " & Chr(34) & Me.Priorities & Chr(34))
    Else
    '//Set filter to listbox criterion
    Forms("frmMain").Filter = "[Priorities] = " & Chr(34) & Me.Priorities & Chr(34)
    Forms("frmMain").FilterOn = True
    End If
End Sub

检查这是否有效。如果不是，您的过滤器可能对该表单无效。