Related To Microsoft Visual Basic

Question

0.00/5 (No votes)

See more:

VB

Dim rs As Object
Set rs = Me.Recordset.Clone

    rs.FindFirst "[Name] = '" & Me![Combo81] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

The above code is used to check for the combo box to search
for name without any quotes .

I need to have a conditon weather the name has apostrophe,quotes or not .

1)How do I check weather the name has any sort of quotes or not ?

2)How can I write the above code for the same ,if the name conatins
->single quotes ('')
->double quotes ("")
->apostrophe(')

Thanks

Posted 23-May-12 23:39pm

mmsgk251804

Updated 29-May-12 1:46am

v4

Add a Solution

Comments

OriginalGriff 24-May-12 5:42am

DON'T SHOUT. Using all capitals is considered shouting on the internet, and rude (using all lower case is considered childish). Use proper capitalisation if you want to be taken seriously.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Jim Jos · Accepted Answer · 2012-05-24T00:14:00

Refer this link.. It is dealing with the situation you are asking for.. I all also put an updated solution once I get the code working

http://support.microsoft.com/kb/113955

Here is the code

First write two small helper functions to replace the single quote and double quote with chr(39) and chr(34)

VB

Function DoParseQuote(ByVal sString As String) As String
    Dim sTemp As String
    sTemp = Replace(sString, "'", "' & Chr(39) & '")
    DoParseQuote = sTemp
End Function

Function DoParseDoubleQuote(ByVal sString As String) As String
    Dim sTemp As String
    sTemp = Replace(sString, """", "' & Chr(34) & '")
    DoParseDoubleQuote = sTemp
End Function

Then call the function from search

VB

str = "EmpName = '" & DoParseQuote("Don't") & "'"
str = "EmpName = '" & DoParseDoubleQuote("Milka ""speedy"" singh") & "'"

rs.FindFirst str