how-to-filter-an-existing-recordset

PHOTO EMBED

Fri Sep 23 2022 08:36:34 GMT+0000 (Coordinated Universal Time)

Saved by @paulbarry

    Dim rsFiltered            As DAO.Recordset

    With Me.Recordset
        .Filter = "[Active] = True"
        Set rsFiltered = .OpenRecordset
    End With

    With rsFiltered
        If .RecordCount <> 0 Then
            .MoveFirst
            Do Until .EOF
                ' Do something with each filtered record
                .MoveNext
            Loop
        End If
    End With

On Error Resume Next
    If Not rsFiltered Is Nothing Then
        rsFiltered.Close
        Set rsFiltered = Nothing
    End If
content_copyCOPY

https://www.devhut.net/how-to-filter-an-existing-recordset/