ProperCase problem

[Birgit via AccessMonster.com]

Hi!

I have a problem with ProperCase. My code is following:

Public Function Aa(strToChange As String) As String
Aa = StrConv(strToChange, vbProperCase)
End Function

This works properly with text in the text box but with no text the result is
#Error. Is there another way to convert text?

Thanks for advance
Birgit

 

[J_Goddard via AccessMonster.com]

If I understand you correctly, the problem is with blank or null textboxes.
Try using this:

Public Function Aa(strToChange As String) As String
Aa = StrConv(nz(strToChange," "), vbProperCase)
End Function

John

 

[Birgit via AccessMonster.com]

If I understand you correctly, the problem is with blank or null textboxes.
Try using this:

Public Function Aa(strToChange As String) As String
Aa = StrConv(nz(strToChange," "), vbProperCase)
End Function

John

Thanks!

A little modification and it works! I left the original VBA code as it is. I
put the Aa-function into the textbox an placed the Nz function in it:

=Aa(Nz([TextBoxName];" "))

Birgit