Answers for "DAO.Recordset & Filter"

Whatever

DAO.Recordset & Filter

Dim rs                    As DAO.Recordset
    Dim rsFiltered            As DAO.Recordset

    Set rs = Me.RecordsetClone
    rs.Filter = "[Active] = True"
    Set rsFiltered = rs.OpenRecordset
    With rsFiltered
        If .RecordCount <> 0 Then
            .MoveFirst
            Do While Not .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
    If Not rs Is Nothing Then Set rs = Nothing

Posted by: Guest on April-30-2022

Source

DAO.Recordset & Filter

Dim rs                    As DAO.Recordset
    Dim rsFiltered            As DAO.Recordset

    Set rs = Me.RecordsetClone
    rs.Filter = "[Active] = True"
    Set rsFiltered = rs.OpenRecordset
    With rsFiltered
        If .RecordCount <> 0 Then
            .MoveFirst
            Do While Not .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
    If Not rs Is Nothing Then Set rs = Nothing

Posted by: Guest on April-30-2022

Source

DAO.Recordset & Filter

Dim rs                    As DAO.Recordset
    Dim rsFiltered            As DAO.Recordset

    Set rs = Me.RecordsetClone
    rs.Filter = "[Active] = True"
    Set rsFiltered = rs.OpenRecordset
    With rsFiltered
        If .RecordCount <> 0 Then
            .MoveFirst
            Do While Not .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
    If Not rs Is Nothing Then Set rs = Nothing

Posted by: Guest on April-30-2022

Source

DAO.Recordset & Filter

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

Posted by: Guest on April-30-2022

Source

Code answers related to "DAO.Recordset & Filter"

Code answers related to "Whatever"

Browse Popular Code Answers by Language

Python

Javascript

Whatever

Shell/Bash

CSS

Html

PHP

SQL

Java

Answers for "DAO.Recordset & Filter"

Code answers related to "DAO.Recordset & Filter"

Code answers related to "Whatever"

Browse Popular Code Answers by Language

Popular Programming Languages

Advertisements

Company

Compilers

Help

Connect with us