Arthur Fuller
fuller.artful at gmail.com
Thu Apr 16 22:33:53 CDT 2009
Wrap your strings in the following function:
<vba>
Public Function q(str As String) As String
q = Chr(39) & str & Chr(39)
End Function
</vba>
IOW, instead of refering a string head-on, which may contain quotes, use
q(FieldName) instead. Depending on circumstances, you may also need:
<vba>
Public Function qq(str As String) As String
qq = Chr(34) & str & Chr(34)
End Function
</vba>
Just wrap your column refs in a call to these functions instead of direct
references and you're guaranteed safety (from these boogers at least).
e.g.
Debug.Print q("Patty O'Furniture")
--> 'Patty O'Furniture'
hth,
Arthur