Automatically turn to capitals for each control 1

[daveonion]

Hi, i have a few controls which on input i want the letters to be capitals, i know i could insert the code in each control on key press but i believe this to be a long winded way, is there any way i could place the code once to format all controls, i have some code inserted below which i believe could work although its untested,

Dim strCharacter As String
Dim ctl As Control
For Each ctl In Forms![main input].Controls
If Right(ctl.Name, 4) = "main" Then
strCharacter = Chr(keyascii)
keyascii = Asc(UCase(strCharacter))
End If
Next ctl

any help once again would be appreciated
Dave

 

[DavenMoyra]

I have done this in the past by writing a function that takes the text box as a parameter and returns the amended ASCII character. Call the function on the keypress event for each text box. I also passed a boolean to determine whether upper or lower case would be returned.

 

[daveonion]

Hi DavenMoyra, i don't suppose you have any examples of code to do this

Thanks

Dave

 

[Maquis]

There is an easier way. Just type > in the format property of each text box that you need in upper case.

Maq
<insert witty signature here>

 

[daveonion]

thanks