---Soumis par Dev Ashish---

Filtrer un recordset.

(Q)    Comment filter 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 example, ici dans sFilterRS,  je limite rs2 à un seul enregistrement en appliquant au préable 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 *******************