Filtering a Recordset : Recordset Filter « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Filter

Filtering a Recordset

 
Sub FilterRecordset()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenKeyset
    rst.LockType = adLockOptimistic
    rst.Open "Select * from Employees"

    Debug.Print "Without Filter"
    Do Until rst.EOF
        Debug.Print rst("BirthDate")
        rst.MoveNext
    Loop

    rst.Filter = "BirthDate >= #1/1/1977# and BirthDate <= #1/5/2007#"
    Debug.Print "With Filter"
    Do Until rst.EOF
        Debug.Print rst("BirthDate")
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing
End Sub

 

Related examples in the same category