Caps

[DANY]

Hello to all,

I want to capitalize the first letter of every word. The problem is if some fields are null, it fails.

example

Private Sub Name()
Dim strFullName As String
 
strFullName = IIf(Not IsNull(rstLast).Value, Cap(Trim(rstLast).Value, "") _
              & ", " & IIf(Not IsNull(rstFirst).Value), _
              Cap(Trim(rstFirst).Value), "") _
              & " - " & IIf(Not IsNull(rstTitle).Value, _
              Cap(Trim(rstTitle).Value), "")
 
End Sub

thanks

[MartinLiss]

Do it in two steps. First create the string, then do

strFullName = strConv(strFullName, vbProperCase)