Creat a SQL statement and append parameter as ceriteria : SQL Parameter « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. SQL Parameter

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








Related examples in the same category

1.Creating a Parameter Query
2.Build the SQL statement dynamically
3.Running Parameter Queries
4.Executing a SQL Statement Containing Parameters
5.User InputBox to read SQL statement parameter