recset.Filter = "TITLE = '" & strVar & "'"
if strVar has a ' or a " it bombs out. Is there a way around this, other than physicaly taking the 's and "s out of the string? (if I do that the filter won't filter properly!!)
Printable View
recset.Filter = "TITLE = '" & strVar & "'"
if strVar has a ' or a " it bombs out. Is there a way around this, other than physicaly taking the 's and "s out of the string? (if I do that the filter won't filter properly!!)
Before setting your filter, put strVar through a procedure such as ...
Hope this helps :)Code:Public Sub InsertSingleQuote(SourceString As String)
'***************************************************************************
'Purpose: Replaces single single quotes with double single quotes.
'Parameters: SourceString - String to be formatted.
'Returns: None.
'***************************************************************************
On Error GoTo ErrorHandler
SourceString = Replace(SourceString, "'", "''")
Procedure_Exit:
Exit Sub
ErrorHandler:
Select Case Err.Number
Case Else
GlobalErr Err.Number, Err.Description, "basUtilities - InsertSingleQuote"
Resume Procedure_Exit
Resume
End Select
End Sub
rs.Filter = "Field = '" & Replace(strVar,"'","''") & "'"
This should work