Solved! Go to Solution.
This is what we have used in the past. But I either get "Carriage reurns are not allowed in simple expressions" or "This expression contains an error".
Function FindLabel ( [PartyName] )
Owner = [PartyName]
if InStr ( 1 , Owner , "," ) > 1 then
MyPos = InStr ( 1 , Owner , "," )
DisplayChars = Left ( Owner , MyPos + 2 )
FindLabel = DisplayChars
else
FindLabel = Left ( Owner , 13 )
end if
End Function
I am needing to label a map with owner names but I would like to trim the name to one character after a comma. I also have owner names that are not divided by a comma so I would like to trim them to a 13 characters. I am having trouble writing the expression for this. Any help would be great.
Function FindLabel ( [PartyName] ) if InStr( [PartyName] , ",") > 0 Then myArray = Split( [PartyName] , ",") FindLabel = myArray(0) & ", " & LEFT(Trim(myArray(1)), 1) & "." ElseIf Len( [PartyName] ) > 13 Then FindLabel = Left([PartyName], 13) Else FindLabel = [PartyName] End If End Function
This is what we have used in the past. But I either get "Carriage reurns are not allowed in simple expressions" or "This expression contains an error".
Function FindLabel ( [PartyName] )
Owner = [PartyName]
if InStr ( 1 , Owner , "," ) > 1 then
MyPos = InStr ( 1 , Owner , "," )
DisplayChars = Left ( Owner , MyPos + 2 )
FindLabel = DisplayChars
else
FindLabel = Left ( Owner , 13 )
end if
End Function
It worked! Thank you so much for your help!!! It is very much appreciated!