Mega Code Archive
Filtering Records Using the Filter Property
'In the Code window, enter the FltrRecords procedure as shown below.
Sub FltrRecords()
Dim conn As ADODB.Connection
Dim myRecordset As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"
Set myRecordset = New ADODB.Recordset
With myRecordset
.Open "Customers", conn, adOpenKeyset, adLockOptimistic
.Filter = "City='Madrid' and Country='Spain'"
End With
myRecordset.Filter = adFilterNone
MsgBox "Filter was removed. The table contains " & myRecordset.RecordCount & " records."
myRecordset.Close
Set myRecordset = Nothing
conn.Close
Set conn = Nothing
End Sub