Art-
Like this:
strFilter = strFilter & "LastName = '" & Replace(Me.cboLastName, "'", "''")
& "'"
John Viescas, author
Microsoft Office Access 2010 Inside Out
Microsoft Office Access 2007 Inside Out
Building Microsoft Access Applications
Microsoft Office Access 2003 Inside Out
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)
-----Original Message-----
From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of Art
Sent: Tuesday, August 21, 2012 6:39 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Issue with a string search
I have the folling search code:
Dim strFilter As String
Dim bFilter As Boolean
bFilter = False
strFilter = ""
Private Sub RunFilter()
If Nz(Me.cboLastName, "<All>") > "<All>" Then 'LastName
If Len(Nz(strFilter)) > 0 Then strFilter = strFilter & " And "
strFilter = strFilter & "LastName = '" & Me.cboLastName & "'"
bFilter = True
End If
If Nz(Me.cboFirstName, "<All>") > "<All>" Then 'LastName
If Len(Nz(strFilter)) > 0 Then strFilter = strFilter & " And "
strFilter = strFilter & "FirstName = '" & Me.cboFirstName & "'"
bFilter = True
End If
If bFilter Then
Me.sfrmClientList.Form.OrderBy = ""
Me.sfrmClientList.Form.Filter = strFilter
Me.sfrmClientList.Form.FilterOn = True
Else
Me.sfrmClientList.Form.FilterOn = False
End If
End Sub
The issue is when the name contains a single quote it throws an error otherwise
it works fine. Can you give me an idea of the issue?
Thanks
Art Lorenzini
Sioux Falls, SD
------------------------------------
Yahoo! Groups Links
Selasa, 21 Agustus 2012
RE: [MS_AccessPros] Issue with a string search
__._,_.___
.
__,_._,___
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar