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

检查这是否起作用。否则，您的筛选器可能对该表单无效。