Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Force Text Case
- Thread starter wizcow
- Start date
Hi,
I created a function that may help:
Public Function PCase(strName As String) As String
Dim strWork
strWork = Trim(strName)
If strWork <> "" then
strWork = UCase(Left(strWork, 1)) & _
LCase(Right(strWork, Len(strWork) - 1))
End If
PCase = strWork
End Function
Good Luck
- DCD
I created a function that may help:
Public Function PCase(strName As String) As String
Dim strWork
strWork = Trim(strName)
If strWork <> "" then
strWork = UCase(Left(strWork, 1)) & _
LCase(Right(strWork, Len(strWork) - 1))
End If
PCase = strWork
End Function
Good Luck
- DCD
- Status
Similar threads
- Locked
- Question