change label on multipage
your code worked fine for me:
Private Sub cboTestType_Click()
If MultiPage1.Pages(0).cboTestType.Value = "Groove Weld" Then
MultiPage1.Pages(1).lblWeldType.Caption = "Groove Weld"
Else
MultiPage1.Pages(1).lblWeldType.Caption = "Fillet Weld"
End If
End Sub
Private Sub UserForm_Initialize()
cboTestType.AddItem "Groove Weld"
cboTestType.AddItem "Fillet Weld"
End Sub
--
Regards,
Tom Ogilvy
wrote in message
oups.com...
I have a Userform with a Multipage on it. On the first page of the
Multipage I have a combobox. What I would like to do is based upon the
value of the combobox on the 1st page change the text of a label on
Page 2.
Is this possible, and if so how, I have tried to Code below but it does
not work.
If MultiPage1.Pages(0).cboTestType.Value = "Groove Weld" then
MultiPage1.Pages(1).lblWeldType.Caption = "Groove Weld"
else
MultiPage1.Pages(1).lblWeldType.Caption = "Fillet Weld"
End if
Regards
Martin
|