Hi
I have created an vba form with a number of text boxes and check boxes. The number of lines in the user form can vary depending on an email name been selected and the form works ok for this.
However if the the number of lines is above 35 it does not appear on the form.
i am thinking a multi page form may be the solution to this , however I do not know how I am going to code so the form is still dynamic and only shows the relevant number of lines
eg if > 35 Lines then textboxes show in Page 2 otherwise only show textboxes in page 1
My code for currently updating the text boxes is below
thanks
Kind Regards
ken
'Line 1
Set tbox = Controls.Add("Forms.textbox.1")
With tbox
.Name = i
.Left = 10
.Height = 20
.Top = i * 20
.Width = 75
.Font.Size = 8
.Locked = True
.Value = Sheet2.Cells(i, 3)
.BackColor = &H80&
.BorderColor = &H80&
.ForeColor = &HFFFFFF
End With
'Line 2
Set tbox = Controls.Add("Forms.textbox.1")
With tbox
.Name = i
.Left = 100
.Height = 20
.Top = i * 20
.Width = 40
.Font.Size = 8
.Locked = True
.Value = Sheet2.Cells(i, 4)
.BackColor = &H80&
.BorderColor = &H80&
.ForeColor = &HFFFFFF
End With
I have created an vba form with a number of text boxes and check boxes. The number of lines in the user form can vary depending on an email name been selected and the form works ok for this.
However if the the number of lines is above 35 it does not appear on the form.
i am thinking a multi page form may be the solution to this , however I do not know how I am going to code so the form is still dynamic and only shows the relevant number of lines
eg if > 35 Lines then textboxes show in Page 2 otherwise only show textboxes in page 1
My code for currently updating the text boxes is below
thanks
Kind Regards
ken
'Line 1
Set tbox = Controls.Add("Forms.textbox.1")
With tbox
.Name = i
.Left = 10
.Height = 20
.Top = i * 20
.Width = 75
.Font.Size = 8
.Locked = True
.Value = Sheet2.Cells(i, 3)
.BackColor = &H80&
.BorderColor = &H80&
.ForeColor = &HFFFFFF
End With
'Line 2
Set tbox = Controls.Add("Forms.textbox.1")
With tbox
.Name = i
.Left = 100
.Height = 20
.Top = i * 20
.Width = 40
.Font.Size = 8
.Locked = True
.Value = Sheet2.Cells(i, 4)
.BackColor = &H80&
.BorderColor = &H80&
.ForeColor = &HFFFFFF
End With