Capitalization

[asmall]

Is there any way to force caps in the textboxes. I know you can go to the properties and use the ">" sign. But is there a way in code to force text to be capitalized while entering data?

 

[chirpyform]

use the > for the input mask then use
sub text_OnChangement
Me!text = UCase(Me!text)
end sub

 

[asmall]

I tried the code but I'm not able to type anything!
Am I doing it right?

This is what I have:

Private Sub txtFirstName_Change()

Me!txtFirstName = UCase(Me!txtFirstName)

End Sub

 

[chirpyform]

the mask should be

>aaaaaaaa 'the number of a's is the number of letters you want them to enter

 

[PaulF]

I always place that in the AfterUpdate Event not the change event

PaulF

 

[Dre313]

On the field.. goto property
then "on key press"

put this code in...

KeyAscii = Asc(UCase$(Chr$(KeyAscii)))
If Chr(KeyAscii) = "" Then
KeyAscii = 0
End If

hope this helps

 

[asmall]

Thanks Dre313. That works perfectly!!!!

 

[Gazonice]

You can use this code on the afterupdate event:

(example text box is called Text87)

Me.Text87.Value = StrConv([Text87], vbProperCase)

There is also vbUpperCase, vbLowerCase and a few others...

Garry