opening form code where the name contains an apostrophe

[JimO]

This code works fine unless the stadium name contains an apostophe. I have so far been less than successful in adding a "wild card (*)".

DoCmd.OpenForm "ProStadiumListF", acNormal, , "[Stadium]=" & "'" & [Stadium] & "'"

Any help would be appreciated.



Thanks
Jim O

[June7]

One way is to escape the embedded apostrophe by doubling it in the parameter.

DoCmd.OpenForm "ProStadiumListF", acNormal, , "[Stadium]='" & Replace([Stadium], "'", "''") & "'"

[JimO]

Thanks much that get the job done.

Jim O

[June7]

Another approach is to use doubled quotes instead of apostrophe:

DoCmd.OpenForm "ProStadiumListF", acNormal, , "[Stadium]=""" & [Stadium] & """"