Capitilization After Special Character

[JarekM]

Hi,

I have made a code where if I were to write out a name in a textbox the first letter will be capitalized. It also capitalizes the first letter whenever I add a space between names.
So, I am having this problem where whenever I put a special character or a number (For ex. !,@,#,$,%,&,*,.,/,1,2,3etc...) but no space after the special character, the first letter of the name or word isn't capitalized. I would like to have that first letter of the word capitalized.

Here is an example:

John Snow

The J in John will be capitalized and after the space the S in Snow will also be capitalized.


But if I were to add a special character or a number, like below:

2323 N.farvalley

The N will be capitalized, but the F in Farvalley won't because I didn't add a space.


I would also like this function to be a universal code and have it work for all textboxs and not just one.



Thank you in advance

 

[Norie]

How are you currently doing the capitalisation?

 

[JarekM]

Hi,

here is the code that i am using:

Private Sub TextBox1_Change()
TextBox1.Text = StrConv(TextBox1.Text, 3)
End Sub

Thanks

 

[Rick Rothstein]

Hi,

here is the code that i am using:

Private Sub TextBox1_Change()
  [B][COLOR="#FF0000"]TextBox1.Text = StrConv(TextBox1.Text, 3)[/COLOR][/B]
End Sub

Excel's PROPER function is much better than VB's... try it this way...

TextBox1.Text = Application.Proper(TextBox1.Text)

 

[JarekM]

Thank you!

It works wonderfully, but I have one more question.

How can I change the code, so every letter before a special character is capital?

Here is an example:
Kert2323

It originally capitalizes the K by default, but I would also like to have the code capitalize every other letter that is before the numbers and/or special character?

Thank you again

 

[Rick Rothstein]

THow can I change the code, so every letter before a special character is capital?

Here is an example:
Kert2323

It originally capitalizes the K by default, but I would also like to have the code capitalize every other letter that is before the numbers and/or special character?

Do you mean you want every letter capitalized? If so...

TextBox1.Text = UCase(TextBox1.Text)

If not, you will need to explain what you want in more detail (give examples of text that meet the criteria and text that does not meet the criteria).

 

[JarekM]

I want all of the letters before the special characters to be capitalized.

Example:
Kert-2323 Fly, Kert7683 Fly, Kert/9029 Fly


Instead of that I want this:
KERT-2323 Fly, KERT7683 Fly, KERT/9029 Fly

Every letter before the numbers and special characters are capitalized, but Fly stays the same, I don't want its letters capitalized.