Ucase the start of each word after update 1

[eon5]

Good day,

I got this code in the search files from “TheIceMan1” and it’s working very good to change All text immediately to Ucase.

Private Sub CompCat_KeyPress(KeyAscii As Integer)
If KeyAscii > 96 And KeyAscii < 123 Then
KeyAscii = (KeyAscii And 223)
End If
End Sub

I’m using this code in my forms but would also like to know if there is any way of changing only the 1st word to Ucase,

alminium side strip 20mm

“After Update”

Alminium Side Strip 20mm

Theuns

 

[PHV]

Have a look at the StrConv function and its vbProperCase parameter.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886