Label Expression to not label if...

DonovanCameron

I am wondering how to get my label expression to not label a field if certain other fields are found.
Below is my expression.

Function FindLabel ( [LTSA_LOT] , [LTSA_BLOCK] , [LTSA_PA4] , [LTSA_PLAN] , [LAND_AC6] )
 if ( Len ([LTSA_LOT]) <> 0) then 
  str1 = [LTSA_LOT] & " - "
 end if
 if ( Len ( [LTSA_BLOCK] )  <> 0) then
  str2 =  [LTSA_BLOCK] & " - "
 end if
 if ( Len ( [LTSA_PA4] )  <> 0) then
  str3 =  [LTSA_PA4] & " - "
 end if
 if ( Len( [LTSA_PLAN] ) <> 0) then
  str4 =  [LTSA_PLAN]
end if
 if ( Len( [LAND_AC6] ) <> 0) then
  str5 =  [LAND_AC6]
end if
 FindLabel = str1 & str2 & str3 & str4 & VBNewLine & str5
End Function

I would like the label to not label Str5, if labels are found for str1-4.

Appreciate your time to help me with this.

DonovanCameron

What would the expression be if I wanted to label both fields but tell it not to label second field if values are the same?

I went over a way how to compare two fields for matching values in a label expression over on the Cartotalk.

There is another method mentioned in there, but using the StrComp function you would need to make a small change to the expression:

Function FindLabel ( [F1], [F2]  )
    intComp = StrComp( [F1], [F2], vbTextCompare )
      if intComp = -1 Then 
          FindLabel = [F1] & " - " & [F2] 
        Else
          FindLabel = [F1]
    End if
End Function

Results:
[ATTACH]7784[/ATTACH]

label_2fields.png