This little code snippit converts all letters to upper case as they are entered. I like this one because it doesn't matter if the user has caps on or off. Upper case characters can promote better legibility in the application.
Sub txtData_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.