My form contains a combo box "Action" (the resource for the combo box is a table) where the user can select the type of test is being performed. Then there are two text boxes "Pull Force" and Nuggets" where the user enters certain parameters regarding the test. Now based on the selection made in the combo box and the parameters enter into the text boxes, the results will automatically appear in a third text box named "TestResults".
This is the code I've come up with, however the results are not showing.''
Any help in figuring out why the results are not showing, would be greatly appreciated.
This is the code I've come up with, however the results are not showing.''
Code:
[COLOR=black][FONT=Times New Roman][SIZE=3][FONT=Times New Roman]Private Sub Text25_Click()
Select Case Me.Action
Case "NegativePullTest"
If Me.PullForce >= 15 And Me.Nuggets >= 5 Then Me.Text25 = "Passed"
If Me.PullForce <= 14 And Me.Nuggets <= 4 Then Me.Text25 = "Failed"
If Me.PullForce >= 15 And Me.Nuggets <= 4 Then Me.Text25 = "Failed"
If Me.PullForce <= 14 And Me.Nuggets >= 5 Then Me.Text25 = "Failed"
Case "PositivePullTest"
If Me.PullForce >= 8 And Me.Nuggets >= 5 Then Me.Text25 = "failed"
If Me.PullForce <= 7 And Me.Nuggets <= 4 Then Me.Text25 = "Passed"
End Select
If Me.Text25 = "Failed" Then
MsgBox "Test Failed, Input cell with pass pop and then retest"
End If
End Sub[/FONT][/SIZE][/FONT][/COLOR]
Any help in figuring out why the results are not showing, would be greatly appreciated.