编译错误：语法错误MS Access 2013

Question

I'm fairly new to Access and am attempting to make a searchable form, where the the form returns all entrees that meet all of the criteria in several text boxes. I found a code online that should do exactly what I need

http://www.allenbrowne.com/ser-62.html

http://www.allenbrowne.com/ser-62code.html

But I am running into errors when I try to run in for myself. I am currently just trying to link up one textbox before adding on several others. Here is my code thus far:

Private Sub SearchAll_Click()

If Not IsNull(Me.txtCityCounty) Then
    strWhere = strWhere & "([City/County] Like "" * " & Me.txtCityCounty & " * """)"

    End If

End Sub

When I try to run it, I get "Compile Error: Syntax Error" and the line "Private Sub SearchAll_Click()" is highlighted in yellow.

If it helps: "SearchAll" is my button, "txtCityCounty" is the textbox, "City/County" is the field name. I'm currently using Access 2013.

Any and all help is much appreciated, thank you.

Answer 1

The line in your code which says

strWhere = strWhere & "([City/County] Like "" * " & Me.txtCityCounty & " * """)"

should be shown in red, indicating that it is the line where the syntax error was detected.

If you look at that line you will notice that your double-quotation marks are not matched. I suspect you intended it to be:

strWhere = strWhere & "([City/County] Like "" * " & Me.txtCityCounty & " * "")"

or, maybe, just

strWhere = strWhere & "([City/County] Like ""*" & Me.txtCityCounty.Text & "*"")"

depending on how you want the wildcard to work. (I believe your current test will be for a space, followed by any number of characters, followed by a space, followed by your City/County textbox value, followed by a space, followed by any number of characters, followed by a space.)