基於數據表篩選器的篩選記錄集

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進行。