Developer Forum

1. text box insert in Excel - text box lines print on second copy

2. Make a text box visible if a different text box has text in it

Question for Marsh if possible.
I have a text box named P1Bill1Name and...
Another text box named P1Bill1Paid.
If P1Bill1Name has text in it I want P1Bill1Paid
to be visible. I can do it easily with a line of code.
.P1Bill1Name.SetFocus: If .P1Bill1Name.Text = "" Then .P1Bill1Paid.Visible =
False
The problem is I have 50 Paid textboxes. I want to use a function
with a variable for the Paid text box....

Public Function MakeVisible()
Dim ctlCurrentControl As Control
Dim ctlPaid As Control
Set ctlCurrentControl = Screen.ActiveControl
Set ctlPaid = TextBox
Select Case ctlCurrentControl.Text
Case Is <> ""
'ctlCurrentControl.Name = P1Bill1Name
ctlPaid = Left(ctlCurrentControl.Name, 7) + "Paid"
'ctlPaid.Name = P1Bill1Paid
Me(ctlPaid).Visible = True
Case Is = ""
Me(ctlPaid).Visible = False
End Select
End Function

The Screen.ActiveControl works great but the
ctlPaid doesn't seem to work. I get the error "Object Required."
What am I doing wrong?
Please Help!
--
Thanks,
Richard

3. How do I wrap text in a text box around another text box

4. Can I put text in a text box, but not show the text box?

5. Copy text from Text box to text box

6. Text from required text box to read-only text box

7. I TYPE IN A TEXT BOX AND IT COPIES THE TEXT TO OTHER TEXT BOXES

8. How do I get 1 text box to show the text of another text box

9. Auto fill text boxes from combo box *or* print report of one recor

10. AbiWord in RedHat 7.2 prints some lines of ...

11. Auto fill text boxes from combo box *or* print report of one r

12. Abiword-2.2.5 printing to Custom LPR not working

13. No reverse text in AbiWord

14. how can I print form check boxes and form text boxes in color?

15. Word XP not printing or displaying text boxes in print preview