Get the number of recorders which meet the criteria : Recordset Filter « Access « VBA / Excel / Access / Word






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

Get the number of recorders which meet the criteria

 
'
Sub recordCountCriteria()
   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'"
      MsgBox .RecordCount & " records meet the criteria.", _
          vbInformation, "Customers in Madrid (Spain)"
   End With

   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 Using the Filter Property
4.Filtering Records with an SQL Clause
5.Filtering a Recordset
6.Filtering a Recordset by using the Date type field