Afterupdate: All text to uppercase in a text box

[morlan]

Hi,

I want to have all text trasformed to uppercase when a text field is updated. I know that =ProperCC() with put the first charecter of each word in uppercase but how to I make all text uppercase auatomatically?

 

[Rich]

=UCase([YourField])

 

[morlan]

=UCase([YourField])

I have put that into the AfterUpdate even for the text field but is doesnt seem to have any effect

 

[IMO]

Copy the code below to a new module

Public Sub ALLUPPERCASE()
If IsNull(Screen.ActiveControl)=False Then
Screen.Activecontrol = StrConv(Screen.ActiveControl, vbUpperCase)
End If
End Sub


On the after_Update of the Textbox type the code

ALLUPPERCASE

This will force all input text to uppercase

IMO