[rhodeskenneth]

I have a text box and want the text box 15 to be updated if the text box 12 have Q1, Q2, Q3, Q4 VALUES. I get the error messeage that an object is required. Thanks in advance for your help


Private Sub Text15_Click()
If TextBox.Text12 = "Q1" Then
TextBox.Text15 = "13"
ElseIf Text12 = "Q2" Then
TextBox.Text15 = "26"
ElseIf Text12 = "Q3" Then
TextBox.Text15 = "39"
ElseIf Text12 = "Q4" Then
TextBox.Text15 = "52"
End If
End Sub

[zhouma]

Hi rhodeskenneth,

Welcome!

The text box is on a form, right? If so, try the following and see if it works.

Private Sub Text15_Click()
If Me.Text12 = "Q1" Then
Me.Text15.value = "13"
ElseIf Me.Text12 = "Q2" Then
Me.Text15.value = "26"
ElseIf Me.Text12 = "Q3" Then
Me.Text15.value = "39"
ElseIf Me.Text12 = "Q4" Then
Me.Text15.value = "52"
End If
End Sub

I'm not to sure if you need more End If's at the end but I know that this will at least get you started.

Best,
Zhouma

[zhouma]

Hi rhodeskenneth,

How did the code I posted for you work out?

Best,
Zhouma

[JoshRod]

Mmm, working with RB here? Great programming language to use. Learning it currently in my school. Would you be able to tell me everything such as the text that you named your static text fields? The code you put down rhodeskenneth seems fairly right. As long as you have the static fields and whatever else you have in your program is labeled correctly, it should be fine. Tell me what you named your static text fields along with everything else that you have such as a PushButton, a Scrollbar, PopUp Menu, or whatever you have in your program, tell me and I'll see what I can do. Zhouma, only one End If is needed because when you put a then, the elseif is there to to back it up just in case the statement returns false.

[zhouma]

Originally Posted by JoshRod

Zhouma, only one End If is needed because when you put a then, the elseif is there to to back it up just in case the statement returns false.

Oh ok. Thanks, JoshRod for confirming re: the End If.

Best,
Zhouma