Problems with an apostrophe

[priapus]

I have a form that contains a combo box. the control source of this combo box is a query of companies, and when you choose one it takes you to that record for the form. yada yada, easy peasy. the problem is that one of the companies (so far) contains an apostrophe, so in the after_update code (which was simply created by the wizard) for the combo box the line:

rs.FindFirst "[companyname] = '" & Me![Combo47] & "'"

fails. What's the best way to get around this?

 

[jes]

The best way I have found is to scan data on entry and replace any apostrophe ( ' ) with a ( ` ).

This problem has been aired many times on other forums and can go on for ages with people whinging about altering user entry, but for a quick fix with fairly innocuous intrusion this does it for me.

 

[JohnYingling]

Only do this when you are making the data part of the SQL statement. You don't have to do it to data you are going to store.
= Replace(Me![Combo47] ,"'","''&quot ' Double-up apostrophe

http://WWW.VBCompare.Com

 

[JohnYingling]

If Replace is part of VBA. It is in VB and VBScript.

http://WWW.VBCompare.Com