how-to-filter-an-existing-recordset

PHOTO

Fri Sep 23 2022 08:36:34 GMT+0000 (UTC)

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

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

Save snippets that work from anywhere online with our extensions

Available in the Chrome Web Store

Get Firefox Add-on

Get VS Code extension

Comments

More like this

VBA

@paulbarry

Regex for Access Build Pass through query using Regex to replace Form fields in query VBA to auto Refresh Linked Table Manager or linked tables - Microsoft Access / VBA QUESTION: Get All Procedure Names from Modules | Access World Forums MS Access DLookup Example MS Access Logging Split String or Text Run Update or Delete in MS Access SQL Access VBA custom Function to count substring in string Code to loop through all records in MS Access how-to-filter-an-existing-recordset check-if-textbox-is-empty http://azlihassan.com/apps/articles/visual-basic-for-applications-vba/vba-check-valid-email Email verification Use Temporary tables for quick analysis https://www.access-programmers.co.uk/forums/threads/setting-a-group-of-controls-visible-hidden-or-enabled-disabled.293412/ Templete For Notes Field - Hide on empty and display only when there is text. Filename with spaces running WScript.Shell how-pass-variable-one-form-another-form

Browse more snippets >>