xxxxxxxxxx
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
xxxxxxxxxx
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
xxxxxxxxxx
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
xxxxxxxxxx
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