Convert lower-case letter to upper-case letter

[vagelisr]

Accept only upper-case letter

Hi to all

I want when the user type lower-case letters convert to upper-case letters

After some dig in the internet i found this KeyAscii = Asc(UCase(Chr(KeyAscii))) on the keypress event where it works great for English characters BUT when i type Greek characters they show me runtime error 5

Any idea???

 

[Ranman256]

do it AFTER they type it all in. Then you only need 1 line in the Afterupdate event.

sub textBox_Afterupdate()
    textBox = ucase(textBox)
end sub

 

[vagelisr]

First of all thanks Ranman256 for your time.

Yes i know this but the point is i don't want the user be able to press a lower case character.....

PS You give me a correct answer. I had write wrong subject......

 

[Ranman256]

You are missing the point.

 

[CJ_London]

alternatively, investigate the use of setting the caps lock on - see this link to get you started

http://windowssecrets.com/forums/showthread.php/60550-Turn-on-the-Caps-Lock-key-in-VBA-(Access-2003)

 

[sneuberg]

You could use AscW and ChrW in place of Asc and Chr like:

KeyAscii = AscW(UCase(ChrW(KeyAscii)))

 

[static]

Private Sub Text0_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case 97 To 122: KeyAscii = KeyAscii - 32
    End Select
End Sub

 

[vagelisr]

First of all thanks for your time.
sneeuberg the code you send work like a charm!!!!!
static to be absolutely honest i dont even try your code