How to change the caption on a dynamically created userform label?

[KurtEdw]

Hi There,

I have a userform where i have a selected number of entries. In the picture attached its 8 but it can be 5,6,7 etc.

I have created a loop to create 8 entries, each with two labels and one textbox.

Once i start the program the numbers are going to rotate, and to do this the easiest way will be to just change the caption on these labels. However i am struggling to find the correct syntax to reference and change these dynamically created labels.

Any help would be appreciated with how to update these caption names multiple times once the label has been created.

Bonus points for the code to track when a number is entered and how to match it up to its correct entry (that will rotate).

Thanks Kurt

Code:

Private Sub UserForm_Initialize()

Call UserboxSetup

End Sub


Private Sub UserboxSetup()
NoEntry = 8
UserForm2.Height = 48 + (NoEntry + 1) * (24 + 6)


For i = 1 To NoEntry

RLabel = "Forms.Label.Runner." & CStr(i)
RNumber = Sheets("MAIN_Results").Cells(5 + i, 14).Value
RName = Sheets("MAIN_Results").Cells(5 + i, 15).Value
'NumberLabel = "Label"

'Label = "LabelNo" & CStr(i)
Set Label = UserForm2.Controls.Add("Forms.Label.1", "No" & CStr(i), True)
With Label
.Name = "LabelNo" & CStr(i)
.Caption = CStr(RNumber)
.Left = 18
.Width = 24
.Top = 48 + (i - 1) * 30
.Height = 24
End With


Set Label = UserForm2.Controls.Add("Forms.Label.1", "Testsdfsdf" & i, True)
With Label
.Caption = CStr(RName)
.Left = 60
.Width = 120
.Top = 48 + (i - 1) * 30
.Height = 24
End With
'MsgBox (Label.Name)

Set Label = UserForm2.Controls.Add("Forms.TextBox.1", "Testsdfsdf" & i, True)
With Label
.Left = 198
.Width = 54
.Top = 48 + (i - 1) * 30
.Height = 24
End With


Next i
'


End Sub

 

[Anthony47]

When you create those controls you assign them names from LabelNo1 to LabelNo8 (1st column), Testsdfsdf1 to Testsdfsdf8 (2nd column of labels), and Testsdfsdf1 to Testsdfsdf8 (textboxes)

You would be able to addres them using the syntax

Me.Controls("Name").TheProperty = Value

"TheProperty" depends on control type and action to perform (eg: Caption for a Label; Text for a Textbox)

However you assign the same names both to the second column of label and the textbox, thus you will not be able to address the Textbox as the name first refers to the label.

Then, my suggestion:
A) modify the way you assign names to the controls. For example:

Set Label = UserForm2.Controls.Add("Forms.Label.1", "LabelA" & CStr(i), True)   'First label
' !!! Also remove the line .Name = "LabelNo" & CStr(i) from the code

Set Label = UserForm2.Controls.Add("Forms.Label.1", "LabelB" & i, True)         'Second label


Set Label = UserForm2.Controls.Add("Forms.TextBox.1", "TBox" & i, True)         'Textbox

B) at this point you can address labels and textbox using Controls("ControlName&Number"); eg:

Me.Controls("LabelB7").Caption = "Label text"

Me.Controls("TBox5").Text = "Set Value"       'set a text
myVar = Me.Controls("TBox5").Text             'read the text

Use "Me" if the code is within the userform code module; use "UserForm2" if the code is hosted by any othe vba module

Bye

 

[KurtEdw]

Perfect thankyou Anthony!

I wasted 3 hours just trying to figure out the syntax.

Thankyou very much!