syntax help needed - value found -value not found

[tracey]

Hi, I wonder if anyone can help me.   This code defaults to value found.

If foundVal = MultiValue.FindValue(MultiValue.List("DoorLowerC"), "=", Parameter("Door_Lower"))
    MessageBox.Show("Door Lower C Value found", "Value found", MessageBoxButtons.OK)
Else
    foundVal = MultiValue.FindValue(MultiValue.List("DoorLowerC"), "=", " ")
    MessageBox.Show("No value found", "No Match", MessageBoxButtons.OK)
End If

 I am trying to say:  if  a value in list DoorLowerC matches the parameter Door_Lower then msg box, value found but if a matching value cannot be found, then msg box, not found.

Please help if you can

Many thanks

[bradeneuropeArthur]

You need to add the "unit" string (mm deg ul etc..)

If foundVal = MultiValue.FindValue(MultiValue.List("DoorLowerC"), "=", Parameter("Door_Lower")&"mm")
    MessageBox.Show("Door Lower C Value found", "Value found", MessageBoxButtons.OK)
Else
    foundVal = MultiValue.FindValue(MultiValue.List("DoorLowerC"), "=", "" )
    MessageBox.Show("No value found", "No Match", MessageBoxButtons.OK)
End If

[bradeneuropeArthur]

your search string should be exactly like in the multi-value list.

like:

1mm

or 

1 mm

or 

1deg

or

1 deg

[tracey]

Thank you for your help.  Very appreciated.  Actually, I think I have this wrong by putting text at the end.  It doesn't stop the rule running though and my problem is that both text boxes show ' as found' when only A should give this result. 

Any ideas on what I am doing wrong?

I have posted the code here:

MultiValue.SetValueOptions(True, DefaultIndex := 0)
Dim Door_Lower As String
'current value KK
Dim Door_Upper As String
'current value L
MultiValue.SetList("Door", "DoorA_E6Both","DoorB_E2E4Both","DoorC_E6Lower","DoorD_E6Upper")
MultiValue.SetList("DoorA_E6Both",  "AA", "BB", "CC", "DD", "EE", "FF", "GG", "HH", "II", "JJ", "KK", "LL", "MM", "NN", "OO", "PP", "QQ")
MultiValue.SetList("DoorB_E2E4Both",  "GG", "HH", "MM", "NN", "G", "H", "M", "N")
MultiValue.SetList("DoorC_E6Lower",  "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P")
MultiValue.SetList("DoorD_E6Upper",  "A", "B", "C", "D", "E", "F", "I", "J", "K", "L", "O", "P", "GG", "HH", "MM", "NN")

'[
 If foundVal = MultiValue.FindValue(MultiValue.List("DoorA_E6Both"), "=", Parameter("Door_Lower")&"Text") Then
    MessageBox.Show("Door Lower A Value found", "Value found", MessageBoxButtons.OK)
Else
    foundVal = MultiValue.FindValue(MultiValue.List("DoorLowerC"), "<>",Parameter("Door_Lower")&"Text")
    MessageBox.Show("No value found", "No Match", MessageBoxButtons.OK)
End If 

If foundVal = MultiValue.FindValue(MultiValue.List("DoorC_E6Lower"), "=", Parameter("Door_Lower")&"Text") Then
    MessageBox.Show("Door Lower C Value found", "Value found", MessageBoxButtons.OK)
Else
    foundVal = MultiValue.FindValue(MultiValue.List("DoorLowerC"), "<>",Parameter("Door_Lower")&"Text")
    MessageBox.Show("No value found", "No Match", MessageBoxButtons.OK)
End If 
 

[dusan.naus.trz]

I would also like to know where the mistake is. I think the functionality doesn't support text.

[JelteDeJong]

It works for strings. There is another problem here. The variable "foundVal"(1) is "Nothing" because it was never set. The function "MultiValue.FindValue()"(2) will return "Nothing" or the found value. So if the value is not found it will return Nothing and that is compared with the other Nothing. So that evaluates to True. On the other hand, if the value is found it returns the value and that is compared with the Nothing. That evaluates to False.

[dusan.naus.trz]

here are more usage examples from JelteDeJong

https://forums.autodesk.com/t5/inventor-ilogic-api-vba-forum/ilogic-multivalue-findvalue-for-text/m-...