Run time error 3075 - help please

[Phil Hood]

When I run the following code (bottom), I get an error:

-------------------------
Run time error 3075
Syntax error (missing operator) in query expression
'((([ResultDescription.ResultDesc]) = First Place))'

Forms![Heat]![Results subform].Form![Result] contains a
string i.e. First Place
-------------------------

I can't work out what is wrong. Help please!


Dim strQuerySQL6 As String
Dim x As String

Set dbsCurrent = CurrentDb

strQuerySQL6 = "SELECT ResultDescription.* FROM
ResultDescription WHERE ((([ResultDescription.ResultDesc])
= " & Forms![Heat]![Results subform].Form![Result] & "));"

Set rstPoints = dbsCurrent.OpenRecordset(strQuerySQL6)

 

[PC Datasheet]

Strings must be enclosed in quotes. Change this line to:
= '" & Forms![Heat]![Results subform].Form![Result] & "'));"

 

[Phil Hood]

Thanks, it works now.

-----Original Message-----
Strings must be enclosed in quotes. Change this line to:
= '" & Forms![Heat]![Results subform].Form![Result] & "'));"


--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
(e-mail address removed)
www.pcdatasheet.com

When I run the following code (bottom), I get an error:

-------------------------
Run time error 3075
Syntax error (missing operator) in query expression
'((([ResultDescription.ResultDesc]) = First Place))'

Forms![Heat]![Results subform].Form![Result] contains a
string i.e. First Place
-------------------------

I can't work out what is wrong. Help please!


Dim strQuerySQL6 As String
Dim x As String

Set dbsCurrent = CurrentDb

strQuerySQL6 = "SELECT ResultDescription.* FROM
ResultDescription WHERE ((([ResultDescription.ResultDesc])
= " & Forms![Heat]![Results subform].Form![Result] & "));"

Set rstPoints = dbsCurrent.OpenRecordset(strQuerySQL6)

.