NoMatch property in Recordset : Recordset Find « Access « VBA / Excel / Access / Word

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

NoMatch property in Recordset

 

Sub SeekByPrice(curPrice As Currency)
  Dim db As Database
  Dim rec As Recordset
  Dim strSQL As String
  strSQL = "tblSales"
  Set db = CurrentDb()
  Set rec = db.OpenRecordset(strSQL)
  rec.Index = "AmountPaid"
  rec.Seek "=", curPrice
  
  If rec.NoMatch = True Then
    Debug.Print "No orders cost " & FormatCurrency(curPrice)
  Else
    Debug.Print "Order No. " & rec("SalesID") & " placed on " & _
         FormatDateTime(rec("DateOrdered"), vbLongDate) & _
         " cost " & FormatCurrency(rec("AmountPaid"))
  End If
  rec.Close
End Sub

 

Related examples in the same category