I have what I think is an easy one, but yet the solution fails me. I
have three textboxes, 1, 2, 3. Textbox3 is set in the propteries as
visible = false. The code I wrote is quite basic:

if textbox2.value < textbox1.value then
Textbox3.visible = True
Else
if textbox2.value textbox1.value then
textbox3.visible = false
End if
End if


I've tried other variations but nothing seems to work, work
consistantly that is. The code in within a Sub...end sub where based
on the entry, t1 and t2 is populated with their values. I've also
tried having the code in a commandbutton. Still, same result,
sometimes it works, some times it does not. Text1 and Text2 are both
dollar amounts, and text3 is text...'the total amount is less than the
subtotal amount...'


Thanks...

Textbox3.Visible = Val(Textbox2.Text) < Val(Textbox1.Text)

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Gimp" wrote in message
oups.com...
I have what I think is an easy one, but yet the solution fails me. I
have three textboxes, 1, 2, 3. Textbox3 is set in the propteries as
visible = false. The code I wrote is quite basic:

if textbox2.value < textbox1.value then
Textbox3.visible = True
Else
if textbox2.value textbox1.value then
textbox3.visible = false
End if
End if


I've tried other variations but nothing seems to work, work
consistantly that is. The code in within a Sub...end sub where based
on the entry, t1 and t2 is populated with their values. I've also
tried having the code in a commandbutton. Still, same result,
sometimes it works, some times it does not. Text1 and Text2 are both
dollar amounts, and text3 is text...'the total amount is less than the
subtotal amount...'


Thanks...

Not sure of your goal, but deleting the 3rd line and one of the End If
lines might achieve it. (If textbox2.value = textbox1.value, then
textbox3 will be invisible.)

Merjet

Try with just this

Private Sub TextBox1_Change()
If TextBox2.Value < TextBox1.Value Then
TextBox3.Visible = True
Else: TextBox3.Visible = False

End If

End Sub

--
--
-John
Please rate when your question is answered to help us and others know what
is helpful.

"Gimp" wrote in message
oups.com...
I have what I think is an easy one, but yet the solution fails me. I
have three textboxes, 1, 2, 3. Textbox3 is set in the propteries as
visible = false. The code I wrote is quite basic:

if textbox2.value < textbox1.value then
Textbox3.visible = True
Else
if textbox2.value textbox1.value then
textbox3.visible = false
End if
End if


I've tried other variations but nothing seems to work, work
consistantly that is. The code in within a Sub...end sub where based
on the entry, t1 and t2 is populated with their values. I've also
tried having the code in a commandbutton. Still, same result,
sometimes it works, some times it does not. Text1 and Text2 are both
dollar amounts, and text3 is text...'the total amount is less than the
subtotal amount...'


Thanks...

Thanks Bob

Your suggestion lead me to this:

If CDbl(TextBox34.Text) < CDbl(TextBox30.Text) Then
TextBox44.Visible = True

Works like a champ!!


Bob Phillips wrote:
Textbox3.Visible = Val(Textbox2.Text) < Val(Textbox1.Text)

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Gimp" wrote in message
oups.com...
I have what I think is an easy one, but yet the solution fails me. I
have three textboxes, 1, 2, 3. Textbox3 is set in the propteries as
visible = false. The code I wrote is quite basic:

if textbox2.value < textbox1.value then
Textbox3.visible = True
Else
if textbox2.value textbox1.value then
textbox3.visible = false
End if
End if


I've tried other variations but nothing seems to work, work
consistantly that is. The code in within a Sub...end sub where based
on the entry, t1 and t2 is populated with their values. I've also
tried having the code in a commandbutton. Still, same result,
sometimes it works, some times it does not. Text1 and Text2 are both
dollar amounts, and text3 is text...'the total amount is less than the
subtotal amount...'


Thanks...