Changing case

[linanderson]

Rather than use an input mask, does anyone have any code which can convert text entered so that the first letter is in capitals and the remainder is however entered by the user. Where would this be placed - 'upon update'?
Many thanks for any help.

 

[Rich]

Function ProperWord(N)
'
' Assumes N contains a single word
' N: can be null
'
ProperWord = UCase(left(Trim(N), 1)) & LCase(Mid(Trim(N), 2))
End Function