Populate formula results in Text Box based on Selection in Combo box

[tmdrake]

My form includes a combo box where you select what type of test you ran. Based on that selection and the information entered into two additional text boxes, I need to populate a text box on the same form with the results.

Here is the code I came up with so far:

Private Sub Text25_Click()
If Me.Action = "NegativeTabWeld" Then
If Me.PullForce >= 15 And Me.Nuggets >= 5 Then Me.Text25 = "Failed"
If Me.PullForce <= 14 And Me.Nuggets <= 4 Then Me.Text25 = "Passed"
Else
If Me.Action = "PositiveTabWeld" Then
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 If
End Sub

Help would be greatly appreciated.

Toni

[Rabbit]

Please use code tags when posting code.

I'm not sure what your question is. Are you saying your code isn't working? What's wrong with it? Are you getting error messages? What are they?

[tmdrake]

I'm not sure what you mean by code tags. No my code is not working,and I am getting the error message "Compile error: Block If without End If.

Thanks

[Seth Schrock]

The way that you have your code makes it tough to see, but you are missing an End If

Private Sub Text25_Click()
If Me.Action = "NegativeTabWeld" Then
	If Me.PullForce >= 15 And Me.Nuggets >= 5 Then Me.Text25 = "Failed"
	If Me.PullForce <= 14 And Me.Nuggets <= 4 Then Me.Text25 = "Passed"
Else
	If Me.Action = "PositiveTabWeld" Then
		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 If

End Sub

You need to add an End If in line 10. However, I think it would be eaiser to see the logic of the code if you would use a Select Case statement instead of nested If-Then-Else statements, like this:

Private Sub Text25_Click()
Select Case Me.Action
	Case "NegativeTabWeld"
		If Me.PullForce >= 15 And Me.Nuggets >= 5 Then Me.Text25 = "Failed"
		If Me.PullForce <= 14 And Me.Nuggets <= 4 Then Me.Text25 = "Passed"
	
	Case "PositiveTabWeld"
		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
End Sub

[Rabbit]

Please read the posting guidelines in our faq: http://bytes.com/faq.php?faq=posting...ask_a_question. It tells you how to use code tags.

[tmdrake]

Hi Seth,

Sorry for the delay in responding. I used the Select code, however, nothing happens when I click on the field, could it possibly me because I'm using an unbound test box? I can't figure out why it's not working.

Toni

[Seth Schrock]

Bound or unbound doesn't matter as you are just pulling the value that is in the control. Try putting a STOP right before your Select Case statement and then press Ctrl + G to open the Immediate window if it isn't already open. Then enter the following and tell us what the results are.

?Me.Action
?Me.PullForce
?Me.Nuggets

Then press F8 to step through the code one line at a time. It will tell you what path the code is going through.

[tmdrake]

Unfortunately, I am not getting anything is the window that appears when I use Ctrl + G.

[Seth Schrock]

So you aren't seeing the Immediate window at all? It should be at the bottom of the screen right below where you type in your code.

[tmdrake]

Thanks Seth, I was able to get it to work properly. I use the wrong Case "Name"

Toni

[Seth Schrock]

That would do it. Glad you got it to work.