Force Upper/Lower case on Month

D

Dwight

How can I force the first letter entered in a textbox to be upper case and
all subsequent letters be lower case?

The textbox is for the 3 character month.
I need the data to be stored in upper/lower case.

I have used the following code on the key press event for other entries.

KeyAscii = Asc(UCase(Chr(KeyAscii)))

Is there something that can be added to above to make this happen?

Thanks in advance!

Dwight
 
S

Steve Schapel

Dwight,

I suggest using code like this on the After Update event of the textbox...

Me.NameOfTextbox = StrConv(Me.NameOfTextbox, 3)
 
D

Dwight

Steve,
Thank you!
I decided that the best way to do this would to use drop down listboxes with
the control source set the associated data field.

Thanks again!

Dwight
 
Top