Elseif Problem

[bradjerome]

Function never gets past the condition in the first elseif. Wont test for one empty and one 0 unless I put those conditions in the initial if or elseif. Any suggestions????

Function form1_OnSubmit()

form1_OnSubmit = False
Set theForm = Document.form1

If Len(Trim(theForm.MACONHAND.Value)) = 0 and Len(Trim(theForm.WINONHAND.Value)) = 0 Then
MsgBox "You must enter a valid quantity for the batch.", vbCritical, "Need Input"
elseif Trim(theForm.MACONHAND.Value) < 1 and Trim(theForm.WINONHAND.Value) < 1 Then MsgBox "You must enter a valid quantity for the batch.", vbCritical, "Need Input"
elseif Trim(theForm.MACONHAND.Value) < 1 and Len(Trim(theForm.WINONHAND.Value)) = 0 Then MsgBox "You must enter a valid quantity for the batch.", vbCritical, "Need Input"
elseif Len(Trim(theForm.MACONHAND.Value)) = 0 and Trim(theForm.WINONHAND.Value) < 1 Then MsgBox "You must enter a valid quantity for the batch.", vbCritical, "Need Input"
else
form1_OnSubmit = True
End If

End Function

[ALL]

from what i gather, "theForm.WINONHAND.Value" is a string, but you are comparing it as if it is a string and a numeric type, you should never do this, especially in VB because it hates when you do it.

right here: "Len(Trim(theForm.MACONHAND.Value))" you are acting like it's a string, but right here "Trim(theForm.MACONHAND.Value) < 1" you are acting like it's a numerical type, which makes no sense, you probably want to shell it in a Len() function.

unless you zip the project and upload it there is not muche else i can do,
-ALL