Hi, I have the following code where I have a lot of objects (labels and combo boxes) on a userform which I want to make enable/disabled. My intial code is supposed to make them all diasbled... Here is the long way of doing it...
frmUW.lblnewlife.Enabled = False
frmUW.cbonewlife.Enabled = False
frmUW.lblnewlici.Enabled = False
frmUW.cbonewlici.Enabled = False
frmUW.lblnewci.Enabled = False
frmUW.cbonewci.Enabled = False
frmUW.lblnewip.Enabled = False
frmUW.cbonewip.Enabled = False
frmUW.lblnewtpd.Enabled = False
frmUW.cbonewtpd.Enabled = False
frmUW.lblnewwop.Enabled = False
frmUW.cbonewwop.Enabled = False
To help me with the further coding I have tried to do this as a loop but am struggling. Here is my broken code...
Dim ben As Object
Dim benefit As String
'Disable all lbl's and cbo's initially
'U/W Decision
x = 0
Do Until x = 6
Select Case x
Case 0
Set ben = frmUW.lblnewlife
benefit = "life"
Case 1
Set ben = frmUW.lblnewlici
Case 2
Set ben = frmUW.lblnewci
Case 3
Set ben = frmUW.lblnewip
Case 4
Set ben = frmUW.lblnewtpd
Case 5
Set ben = frmUW.lblnewwop
End Select
ben.Enabled = False
frmUW.lblnew" & benefit &".Enabled = False
frmUW.cbonew" & benefit &".Enabled = False
x = x + 1
Loop
As you can see I have 2 solutions within the same code I was testing
The ben variable stuff does seem to work but it is the benefit stuff I would really like to work. Is this kind of thing possible? i.e. frmUW.lblnew" & benefit &".Enabled = False
Many Thanks
Bookmarks