基于数据表过滤器过滤记录集

Question

如果 "FilterOn" 属性 为真，我想将数据表表单的过滤器应用于记录集，并确保记录顺序也相同。 我之前试过这个，但是代码没有 运行 事件所以肯定有问题。

    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。