Relace Function with case sensitive

[deen]

The Replace Function did not return the result with the case sensitive.
Example if I set the Replace Function like :

Replace(me.text1,"hotel","motel")

the result will be = "motel"

even if the word inside the me.text1 is "Hotel".

please help me.

 

[mahenkj2]

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

May be helpful.

 

[mahenkj2]

Try,

First strComp() two strings and return binary result and if statement for matching results to use replace function. Does this sound doable for you.

 

[John Big Booty]

Have a look at the StrConv() function also.

 

[deen]

Sorry. I don't get it.
How would I use this function with the Replace function.

Thanks.

 

[ypma]

Re: Relace Function with case sensitiveoo

If you just want to replace data in more than one record ie all records currently loaded, would not the Find and Replace Dialog box do the trick?. In your scenario highlight Text1 then press Ctl + H. enter hotel in the [find what ]box and Motel in the [replace with box]. in the [look in] box drop down, click text1. which will be there if you have highliglhted it ,You then have the option to replace the word Motel in all or just the current record .
If you have already considered this, sorry to have wasted your time.

 

[mahenkj2]

Post little bit further your requirement and some sample result.

 

[Ari]

Hi

try

replace(me.text1,"hotel","motel",,,vbBinaryCompare)

 

[deen]

I post my mdb sample

 

[mahenkj2]

What you now need in this. It is doing what you wanted in your first post.

 

[deen]

Actually there are more than one "hotel" words in my textbox. What I need is to make every word replace with same case. Example :

"hotel" to "motel"
"Hotel" to "Motel"
"HOTEL" to "MOTEL"

I try the "replace(me.text1,"hotel","motel",,,vbBinaryCompare )" but not working.

I don't know how to use "strConv" or "strComp" with the Replace function and I hope somebody will show me how to do it.

 

[Ari]

Hi

Try

lResult = Replace(Me.Text1, "hotel", "motel", , , vbBinaryCompare)
lResult = Replace(lResult, "Hotel", "Motel", , , vbBinaryCompare)
lResult = Replace(lResult, "HOTEL", "MOTEL", , , vbBinaryCompare)
Me.Text1 = lResult

 

[deen]

This code working good :

lResult = Replace(Me.Text1, "hotel", "motel", , , vbBinaryCompare)
lResult = Replace(lResult, "Hotel", "Motel", , , vbBinaryCompare)
lResult = Replace(lResult, "HOTEL", "MOTEL", , , vbBinaryCompare)
Me.Text1 = lResult

Thanks Ari for your help.