基于数据表筛选器的筛选记录集

Question

如果“FilterOn”属性为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进行。