-
Hi!,
On my form I have text1(0). When the user clicks a command button, another textbox is loaded below it. The code I use for this is:
Private Sub Command1_Click()
Static Index As Integer
Index = Index + 1
Load Text1(Index)
Text1(Index).Visible = True
Text1(Index).Move Text1(Index - 1).Left, Text1(Index - 1).Top + Text1(Index - 1).Height
End Sub
The user can create as many text boxes as they want.
Now my problem is when the user clicks on a 'Showform2' button. I also have a textbox array, text2(0), on form2. I want the same number of textboxes to load on form2 as are on form1, and the contents of the textboxes on form2 to be the same as those on form1.
The code I use at present, on the form2_load() event, is:
Private Sub Form_Load()
For Index = 0 To Form1.Text1().Count - 1
Text2(Index)= Form1.Text1(Index)
Next Index
End Sub
But this gives me an error: 'Control array element '1' doesn't exist'. if I create more than 1 textbox on form1.
How can I load the same number of boxes on form2 as form1?
Thanks for any help!
-
You were almost there!
Code:
Private Sub Form_Load()
Dim index As Integer
Text1(0) = Form1.Text1(0)
For index = 1 To Form1.Text1.UBound
Load Text1(index)
Text1(index).Visible = True
Text1(index).Move Text1(index - 1).Left, Text1(index - 1).Top + Text1(index - 1).Height
Text1(index) = Form1.Text1(index)
Next index
End Sub
