A
Angel G
Hi!
I have tried many many ways but I just can't get it to work so any ideas are
welcomed. I have a Tests database that has a Form with a subform in it.
I am trying to search for "Fail" value in a control named "PASS_FAIL" in the
subform named "AMC_ResultsB" . If it finds the control value to be "Fail"
then it should set the value of another control "OverAllPassFail" to "Fail"
(this control is in the main form). This way I ensure that if any test
results failed I can Flag the whole test header as Failed.
Here is the code
OverAllPassFail.Value = "Pass"
Dim cCont As Control
For Each cCont In Me.AMC_ResultsB.Controls
If TypeName(cCont) = "PASS_FAIL" Then
If cCont = "Fail" Then
Me.OverAllPassFail.Value = "Fail"
End If
End If
Next cCont
Perhaps there is a better way to acomplish this?
Thanks in advance!
I have tried many many ways but I just can't get it to work so any ideas are
welcomed. I have a Tests database that has a Form with a subform in it.
I am trying to search for "Fail" value in a control named "PASS_FAIL" in the
subform named "AMC_ResultsB" . If it finds the control value to be "Fail"
then it should set the value of another control "OverAllPassFail" to "Fail"
(this control is in the main form). This way I ensure that if any test
results failed I can Flag the whole test header as Failed.
Here is the code
OverAllPassFail.Value = "Pass"
Dim cCont As Control
For Each cCont In Me.AMC_ResultsB.Controls
If TypeName(cCont) = "PASS_FAIL" Then
If cCont = "Fail" Then
Me.OverAllPassFail.Value = "Fail"
End If
End If
Next cCont
Perhaps there is a better way to acomplish this?
Thanks in advance!