Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Creat a SQL statement and append parameter as ceriteria

Sub FindByPrice2(curPrice As Currency)     Dim db As Database     Dim rec As Recordset     Dim strSQL As String     Dim strMatches As String     Dim intCounter As Integer     strSQL = "SELECT * FROM tblSales WHERE AmountPaid = " & curPrice     Set db = CurrentDb()     Set rec = db.OpenRecordset(strSQL, dbOpenSnapshot)     Do Until rec.EOF         Debug.Print rec!SalesID         rec.MoveNext     Loop     intCounter = rec.RecordCount     Debug.Print FormatCurrency(curPrice)     rec.Close End Sub