How to make a txtbox not visible

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jennifer - 29 Nov 2007 06:25 GMT

Hello Hello,
How do i make a textbox only visible if the label has a value in it. Example
might be in vba there are 10 labels and 10 textboxes. When i activate the
form and i have it only three labels fill with information i only want to see
txtboxes 1,2,3, to be visible. Need lots of direction . . . thanks.

Signature

Thank you,

Jennifer

Reply to this Message

Nigel - 29 Nov 2007 07:01 GMT

Something like....

If Len(Trim(Label1.Caption)) > 0 then
TextBox1.Visible = True
Else
TextBox1.Visible = False
Endif

Signature

Cheers
Nigel

> Hello Hello,
> How do i make a textbox only visible if the label has a value in it.
[quoted text clipped - 3 lines]
> see
> txtboxes 1,2,3, to be visible. Need lots of direction . . . thanks.

Reply to this Message

Jennifer - 29 Nov 2007 07:14 GMT

Nigal almost . . . it doesn't recognize the label with text in it. Can you
direct me a bit more. Sorry

Signature

Thank you,

Jennifer

> Something like....
>
[quoted text clipped - 11 lines]
> > see
> > txtboxes 1,2,3, to be visible. Need lots of direction . . . thanks.

Reply to this Message

Jennifer - 29 Nov 2007 07:22 GMT

Ok my reply wasn't total right. If i put text in the label properties
(caption) it works . . . but (there is always a but) when i use this code to
fill the labels it doesn't work. Hmmm

Private Sub cmdSelect_Click()
Dim i As Long
Dim SelCount As Long

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
SelCount = SelCount + 1
UserForm1.Controls("Label" & SelCount).Caption = .List(i)
End If
Next
End With

UserForm1.Show
Unload Me

Signature

Thank you,

Jennifer

> Something like....
>
[quoted text clipped - 11 lines]
> > see
> > txtboxes 1,2,3, to be visible. Need lots of direction . . . thanks.

Reply to this Message

Rick Rothstein (MVP - VB) - 29 Nov 2007 09:02 GMT

This is a top of the head guess (I'm about to go to sleep, so I didn't test
it); try replacing your With/End With block of code with this instead and
see if it works for you...

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
SelCount = SelCount + 1
UserForm1.Controls("Label" & SelCount).Caption = .List(i)
UserForm1.Controls("TextBox" & _
CStr(SelCount)).Visible = True
End If
Next
For i = SelCount + 1 To 10
UserForm1.Controls("TextBox" & CStr(i)).Visible = False
Next
End With

Rick

> Ok my reply wasn't total right. If i put text in the label properties
> (caption) it works . . . but (there is always a but) when i use this code
[quoted text clipped - 34 lines]
>> > see
>> > txtboxes 1,2,3, to be visible. Need lots of direction . . . thanks.

Reply to this Message

Jennifer - 29 Nov 2007 17:07 GMT

Thanks Rick but it is getting stopped at
UserForm1.Controls("TextBox" & CStr(i)).Visible = False
then highlights the whole line.

When i put my curser over the CStr(i)). it reads i=9

Anymore ideas

Signature

Thank you,

Jennifer

> This is a top of the head guess (I'm about to go to sleep, so I didn't test
> it); try replacing your With/End With block of code with this instead and
[quoted text clipped - 54 lines]
> >> > see
> >> > txtboxes 1,2,3, to be visible. Need lots of direction . . . thanks.

Reply to this Message

Rick Rothstein (MVP - VB) - 29 Nov 2007 19:11 GMT

Are you getting any error message when it stops? If so, what does it say? Do
you, in fact, have a text box named TextBox9 (as opposed to one named
TextBox09 for example)?

Rick

> Thanks Rick but it is getting stopped at
> UserForm1.Controls("TextBox" & CStr(i)).Visible = False
[quoted text clipped - 66 lines]
>> >> > see
>> >> > txtboxes 1,2,3, to be visible. Need lots of direction . . . thanks.

Reply to this Message

Jennifer - 29 Nov 2007 21:41 GMT

Your the bomb! Yep i only had 8. Thank you very much.

How about having the form auto size to the number of visible txtboxes? this
stuff is so addicting. Do you ever really finish a project!

Signature

Thank you,

Jennifer

> Are you getting any error message when it stops? If so, what does it say? Do
> you, in fact, have a text box named TextBox9 (as opposed to one named
[quoted text clipped - 72 lines]
> >> >> > see
> >> >> > txtboxes 1,2,3, to be visible. Need lots of direction . . . thanks.

Reply to this Message