Instead of forcing them to use Upper Case, you can use the UCASE function to
convert whatever they type into upper case. In the AfterUpdate event of
your textbox put:
Private Sub CustName_AfterUpdate()
Me.CustName= UCase(Me.CustName)
End Sub
Place this in the form behind all text fields, ADDRESS to
the name of the field you want to capitalize. This is
done on forms and it will save it as caps. I found it to
be better than uCase.
Private Sub ADDRESS_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
I have this in a detail document if you would like it
send me your e-mail address to the address listed above
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.