データシートフィルタに基づくフィルタレコードセット

Question

"FilterOn"プロパティがtrueの場合、データシートフォームのフィルタをレコードセットに適用し、レコードの順序が同じであることを確認します。 これを先に試しましたが、コードがイベントを実行していないので、何か間違っている必要があります。

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を続行：あなたは別のレコードセットにレコードセットを割り当てる前

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

フィルターは便利な何もしません。