Modules: Filtrer un recordset	Author(s) Dev Ashish

Filtrer un recordset.

(Q)    Comment filtrer un recordset basé sur un critère?

(A)    Utiliser la propriété  Filter du recordset pour en limiter les enregistrements, puis ouvrir un nouveau recordset à partir de ce dernier. 

        Par exemple, ici dans sFilterRS,  je limite rs2 à un seul enregistrement en appliquant au préalable un filtre sur rs1.

'***************** Code Start *******************
Sub sFilterRS()
Dim db As Database, rs1 As Recordset
Dim rs2 As Recordset
    Set db = CurrentDb
    Set rs1 = db.OpenRecordset("Select * from tblRuns")
    rs1.Filter = "RunID=4"
    Set rs2 = rs1.OpenRecordset
    'rs2 ne devrait contenir qu'un enregistrement
    MsgBox rs2.RecordCount
    Set rs2 = Nothing:  Set rs1 = Nothing
    Set db = Nothing
End Sub
'***************** Code End *******************