record set base on two criteria

[wassimdaccache]

Hello Everybody

I'm using this code to set a record set with 1 criteria .. It is working

Dim mysql As String
mysql = "SELECT * FROM [Invoiceoutdetail]" _
& "WHERE([customerID])= " & [custID] & ""

Set db = CurrentDb()
Set rst = db.OpenRecordset(mysql, dbOpenDynaset)

what I'm trying to do is to replace mysql by this code to use 2 criterias ..
Dim mysql As String
mysql = "SELECT * FROM [Invoiceoutdetail]" _
& "WHERE([customerID])= " & [custID] & ""_
& And "[Barecodedetail]='" & [Barecodedetail] & "')"

I always have an error ...

Does someone Know How we can use double criterias for a record set ?

[theaybaras]

Try declaring a separate sql string:

Dim SQLStr as string
SQLStr = "Select * from tblInvoiceoutdetail & WHERE customerID = " & custID 
SQLStr = SQLStr & " AND Barecodedetail = " & Barecodedetail
 
.. And if MySQL then
SQLStr = SQLStr & ";"
then
SetRS = CurrentDb.Openrecordset (SQLStr)
 
 

if this doesn't work... I'm not sure how to proceed... took me awhile to find this solution.

theAybaras

[JConsulting]

Hello Everybody

I'm using this code to set a record set with 1 criteria .. It is working

Dim mysql As String
mysql = "SELECT * FROM [Invoiceoutdetail]" _
& "WHERE([customerID])= " & [custID] & ""

Set db = CurrentDb()
Set rst = db.OpenRecordset(mysql, dbOpenDynaset)

what I'm trying to do is to replace mysql by this code to use 2 criterias ..
Dim mysql As String
mysql = "SELECT * FROM [Invoiceoutdetail]" _
& "WHERE([customerID])= " & [custID] & ""_
& And "[Barecodedetail]='" & [Barecodedetail] & "')"

I always have an error ...

Does someone Know How we can use double criterias for a record set ?

Dim mysql As String
mysql = "SELECT * FROM [Invoiceoutdetail] WHERE" & _
" [customerID]= " & me.[custID] & " And '" [Barecodedetail]='" & me.[Barecodedetail] & "';"

[wassimdaccache]

Both worked ThanK you ...