根据数据表过滤器过滤记录集

Question

如果＆＃34; FilterOn＆＃34;我希望将数据表格式的过滤器应用于记录集。 property为true，并确保记录顺序相同。 我之前尝试过这个，但是代码没有运行这个事件，所以一定有什么不对。

    Dim rsAll As DAO.Recordset
    Set rsAll = CurrentDb.OpenRecordset("All Patient Info")
    if Forms("All Patient Info").FilterOn then
    rsAll.Filter = Forms("All Patient Info").Filter
    End if

Answer 1

在将记录集分配给另一个记录集之前，过滤器没有任何用处：

Dim rsAll As DAO.Recordset
Dim rsFilter As DAO.Recordset
Set rsAll = CurrentDb.OpenRecordset("All Patient Info")
If Forms("All Patient Info").FilterOn Then
    rsAll.Filter = Forms("All Patient Info").Filter
    Set rsFilter = rsAll.OpenRecordset()
End if

然后继续使用rsFilter。