Access VBA Syntax Error 1

[renigar]

I'm sure this is easy but I've been staring at it for to long. I get the following error message in this line of code.

DoCmd.OpenReport "Evaluation Due Dates R", acViewNormal, , "Division = " & rs.Fields("Division"), acHidden

Can somebody open my eyes.
Thanks

 

[Kennelbloke]

Can you share the SQL behind the report?

 

[jedraw]

Try "Division ='" & rs.Fields("Division") & "'"
rather than
"Division = " & rs.Fields("Division")

 

[SoftwareRT]

I think jedraw is correct.
"Division = '" & rs.Fields("Division") & "'"
Adding single quotes around rs.Fields("Division") ensures the value is treated as a text string in the SQL filter.

 

[renigar]

Thanks jedraw,
That did the trick. I don't think I would have got that on my own.

 

[Andrzejek]

I would suggest this approach, so you can see what's going on:

Dim strWhere As String
...
strWhere = "Division = '" & rs.Fields("Division") & "'"
Debug.Print strWhere
DoCmd.OpenReport "Evaluation Due Dates R", acViewNormal, , strWhere, acHidden