Global Keypress Function

[Which1]

Hi, I want to write a function that will capture every keystroke that I type
and capitalize it? I already do do this in certian text boxes.

Private Sub AdditionalEasementsCoOwnerFirstName_KeyPress(KeyAscii As Integer)
Char = Chr(KeyAscii)
KeyAscii = Asc(UCase(Char))
End Sub

But I have many other text boxes and do not really want to input this code
to all of them. Just seems like there should be an easier way to do this.

Thanks.

 

[Alex Dybenko]

Hi,
you can you form's KeyPress event, plus you can set Key Preview property of
the form to True

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com