Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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