I have an Array that I'm using to loop through some form fields. I need to test that there is something in at least one of the fields. The way I have thing right now, the loop stops as soon as it finds any empty field. I need it to check them all. Thanks for any help.
Dim myArray(15)
myArray(0) = old_1st
myArray(1) = old_2nd
myArray(2) = old_3rd
myArray(3) = old_4th
myArray(4) = new_1st
myArray(5) = new_2nd
myArray(6) = new_3rd
myArray(7) = new_4th
myArray(8) = benefits_1st
myArray(9) = benefits_2nd
myArray(10) = benefits_3rd
myArray(11) = benefits_4th
myArray(12) = cost_1st
myArray(13) = cost_2nd
myArray(14) = cost_3rd
myArray(15) = cost_4th
Sub describe()
For i = 0 TO 15
If(myArray(i) = "" Then
ErrorMsgText.Value = "Please enter some descriptions"
errorFlag.Value = "9"
NEXT_FORM.Value = "einstein_award_nomination.xft"
PREFERENCE.Value = "auto"
ACTION.Value = "0"
Exit Sub
End If
Next
End Sub
Dim myArray(15)
myArray(0) = old_1st
myArray(1) = old_2nd
myArray(2) = old_3rd
myArray(3) = old_4th
myArray(4) = new_1st
myArray(5) = new_2nd
myArray(6) = new_3rd
myArray(7) = new_4th
myArray(8) = benefits_1st
myArray(9) = benefits_2nd
myArray(10) = benefits_3rd
myArray(11) = benefits_4th
myArray(12) = cost_1st
myArray(13) = cost_2nd
myArray(14) = cost_3rd
myArray(15) = cost_4th
Sub describe()
For i = 0 TO 15
If(myArray(i) = "" Then
ErrorMsgText.Value = "Please enter some descriptions"
errorFlag.Value = "9"
NEXT_FORM.Value = "einstein_award_nomination.xft"
PREFERENCE.Value = "auto"
ACTION.Value = "0"
Exit Sub
End If
Next
End Sub