Cmd Open Form syntax error

[Nai]

The following error comes up when I click the command button. I am confused
as I created using the wizard

Syntax error (missing operator) in query expression '[Employer]'=' x '

Code is
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Survey responses"

stLinkCriteria = "'[Employer]'=" & "'" & Me '[Employer]' & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdopenform_contact_to_suvey_result:
Exit Sub

Err_cmdopenform_contact_to_suvey_results_Click:
MsgBox Err.Description
Resume Exit_cmdopenform_contact_to_suvey_result

End Sub

 

[Denny]

Hi Nai,

I think your problem is in the stLinkCriteria assignment. There are
definitely extra apostrophies and a missing !

Try this sample below


stLinkCriteria = "[Employer]=" & "'" & Me![Employer] & "'"

 

[Brian Bastl]

Nai,

stLinkCriteria = "[Employer]='" & Me![Employer] & "'"

HTH,
Brian

 

[Nai]

That has worked. Thank you!

Hi Nai,

I think your problem is in the stLinkCriteria assignment. There are
definitely extra apostrophies and a missing !

Try this sample below


stLinkCriteria = "[Employer]=" & "'" & Me![Employer] & "'"

The following error comes up when I click the command button. I am confused
as I created using the wizard

Syntax error (missing operator) in query expression '[Employer]'=' x '

Code is
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Survey responses"

stLinkCriteria = "'[Employer]'=" & "'" & Me '[Employer]' & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdopenform_contact_to_suvey_result:
Exit Sub

Err_cmdopenform_contact_to_suvey_results_Click:
MsgBox Err.Description
Resume Exit_cmdopenform_contact_to_suvey_result

End Sub