Filtering Records Using the Filter Property : Recordset Filter « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. Recordset Filter

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








Related examples in the same category

1.Use Recordset filter
2.Get result set by column name
3.Filtering Records with an SQL Clause
4.Get the number of recorders which meet the criteria
5.Filtering a Recordset
6.Filtering a Recordset by using the Date type field