Case Format VBA

[Aviles]

Hello,

I'm using a form where users can enter a code in a text box. I would like this code (can be letters or numbers, or both) to be in Upper Case only. I'm using the below code at the moment:

If txtNewPortfolio.Value = LCase(txtNewPortfolio.Text) Then
frmError.Show

I've found that this code only works where the code is completely in Lower case (eg. "code"), but does not work when any letter is in Upper case (eg. "Code").

How can I manipulate this code to run form "frmError" if any letter enetered is in Lower case?

Thanks.

 

[wigi]

If [B]LCase[/B](txtNewPortfolio.Value) = LCase(txtNewPortfolio.Text) Then
frmError.Show

 

[Aviles]

Thanks wigi, but now it's bringing up the form for either Upper and Lower case letters.

 

[wigi]

Then, please give a better explanation about:

- the 2 parts in the IF (which is the "code", what is the other (is that a range on a sheet?)
- the exact logic for the UF to show.

 

[Aviles]

Sorry, let me try and explain it better.

Quite simply... if any letter enter by the user in the text box (txtNewPortfolio) is in Lower case, then show the user form (frmError).

Right now, the code that I have...

If txtNewPortfolio.Value = LCase(txtNewPortfolio.Text) Then
frmError.Show

...will not show the form (frmError) as long as there is at least one Upper Case letter present (eg. Test).

I would like the form to show if any letter entered by the user is in Lower Case.

 

[wigi]

If txtNewPortfolio.Text <> UCase(txtNewPortfolio.Text) Then frmError.Show

 

[Aviles]

That's perfect wigi, thank you.