Originally posted by Sylvia
I need to know the library for Proper Case
tmphold = Proper(RecSet!LastName)
Seems that the tools/References does not have the proper library cheked off. Can anyone help please.
Stick this in one of your Modules.
Function Proper(fld As String) As String
fld = Trim(fld)
fld = UCase(Left(fld, 1)) & LCase(Mid(fld, 2))
If InStr(fld, " ") Then
For z% = 2 To Len(fld)
If Asc(Mid(fld, z%, 1)) = 32 Then
fld = Left(fld, z%) + UCase(Mid(fld, z% + 1, 1)) + Mid(fld, z% + 2)
Proper = fld