error in code

[peljo via AccessMonster.com]

I have a perfectly normal query giving the right results. but when i copy it
and try to use it as sql i get red letters.May be i will have to change the
commas or something ?

strsql = " SELECT products1.Productid, DLookUp("grade","products","productid
= " & [productid]) AS Expr1, products1.items4, products1.branch4 FROM
products1 WHERE (((products1.items4)>0))"

 

[Jeanette Cunningham]

Peljo,
http://www.allenbrowne.com/ser-71.html
there is all the information you need to easily copy and paste queries into
the code window.

Jeanette Cunningham

 

[Marshall Barton]

I have a perfectly normal query giving the right results. but when i copy it
and try to use it as sql i get red letters.May be i will have to change the
commas or something ?

strsql = " SELECT products1.Productid, DLookUp("grade","products","productid
= " & [productid]) AS Expr1, products1.items4, products1.branch4 FROM
products1 WHERE (((products1.items4)>0))"

The interior quotes are wrong and I can't tell if it was all
on one line or you did not use proper line continuations.

I would write it more like:

trsql = "SELECT Productid, " _
& "DLookUp(""grade"",""products"", " _
& """productid = " & productid & """") AS Expr1, " _
& "items4, branch4 " _
& "FROM products1 " _
& "WHERE items4 > 0"

 

[peljo via AccessMonster.com]

I have a perfectly normal query giving the right results. but when i copy it
and try to use it as sql i get red letters.May be i will have to change the

[quoted text clipped - 3 lines]

= " & [productid]) AS Expr1, products1.items4, products1.branch4 FROM
products1 WHERE (((products1.items4)>0))"

The interior quotes are wrong and I can't tell if it was all
on one line or you did not use proper line continuations.

I would write it more like:

trsql = "SELECT Productid, " _
& "DLookUp(""grade"",""products"", " _
& """productid = " & productid & """") AS Expr1, " _
& "items4, branch4 " _
& "FROM products1 " _
& "WHERE items4 > 0"

Thank you so much !