If Statement to validate Field on a Form

[ETCallHome]

Hi,

Bit dumbstruck here, cannot understand why I get the negative result when I am validating an input field. In form1 I call form 2 with an openargs. In openargs I insert "|" & "Enquire" & "|" and in Form2 on the OPEN event, I split the Openargs by "|" and place the value in a string fielda. Then I validate if fielda = "Enquire" and if true I set Form2 control properties, i.e

If fielda = "Enquire" Then
allowadditions = false
else
allowaddition = true
end if

I placed a msgbox to display fielda and it contains "Enquire", however, it still tells me that fielda is not equal to "Enquire"

Am I misunderstanding the concept of the if statement or can you only validate for Numerics and True/False values.

Please help because I am really beginning to get frustrated and beginning to code things that does not make logical sense, i.e. in the above code, I swap my allowadditions around, i.e. if true, make false and if false, make true... very confusing if someone else had to maintain the program code at a later stage.

Thanks
Earl

[pbaldy]

You can certainly test string values. I'd disambiguate by explicitly referring to the control:

If Me.fielda = "Enquire" Then

where fielda is the control you want to test. If that doesn't work, have you tried setting a breakpoint to see what Access thinks is there?

[ETCallHome]

Hi Paul,

Basically, on Form 2 I have an array field defined as a string that occurs 1 to 3, in each occurence I place a value, i.e. Enquire - (1), Modify - (2), Delete - (3). I then Split the me.OpenArgs by "|" into a variant field and move the 1st occurence of the variant into fielda defined as string. So the comparison is between 2 string fields, i.e. the array and fielda. Before doing the If Statement... I put a msgbox displaying both fields and they are equal in string value, yet it does not fall into the condition it should meet, see actual code below:

If strFunction = arrFunction(1) Then
MsgBox " Equal - " & strFunction & "/" & arrFunction(1)
ElseIf strFunction <> arrFunction(1) Then
MsgBox " Not Equal - " & strFunction & "/" & arrFunction(1)
End if

The msgbox displays "Not Equal - Enquire/Enquire". Surely this can also be considered a break to check the value of the fields in question.

Being novice... you may need to guide me thru the breakpoint setting process and syntax.

Thanks
Earl

[ETCallHome]

Hi Paul,

Thanks for the advise, I changed my if statement to a int = strComp(Fielda, Fieldb, Compare) and put a break point on the line of the strComp and displayed int which display -1, i.e. fielda less then fieldb, on closer inspection, I found that fielda was " Enquire " and fieldb was "Enquire". Fielda had a space before and after the work Enquire, while fieldb had no spaces.

Does this mean the split method puts spaces before and after the variant field you insert the split data in all instances for a string field?

Thanks ....

[pbaldy]

The Split() function shouldn't add any spaces. What's the code that creates the string and splits it back apart?