Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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