comma's are messing up my .Filter!

[bboht]

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!!)

[Stevie]

Before setting your filter, put strVar through a procedure such as ...


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


Hope this helps :)

[Pedro de la Lastra]

rs.Filter = "Field = '" & Replace(strVar,"'","''") & "'"

This should work