Hello.
I have the following code which works great (with the help of jzwp11).
However I want to hide fields upon two options in the combo box. hence the same code but two different Combobox IFs.
I have tried to use one lot of code and saying "None" or "Instantaneous from main boiler" but it debugs. But this one at the minute only works when you select "Instantaneous from boiler option not "None"
Code:
If Me.WaterHeatingSystem = "None" Then
Me.WaterHeatingSystemInstallYear.Visible = False
Me.WaterHeatingSystemRenewYear.Visible = False
Me.WaterHeatingControls.Visible = False
Me.Hotwatercylindersize.Visible = False
Me.Hotwatercylinderinsulation.Visible = False
Me.Coldwaterstoragetank.Visible = False
Me.Heatingheadertank.Visible = False
Me.whsPlease.Visible = True
Else
Me.WaterHeatingSystemInstallYear.Visible = True
Me.WaterHeatingSystemRenewYear.Visible = True
Me.WaterHeatingControls.Visible = True
Me.Hotwatercylindersize.Visible = True
Me.Hotwatercylinderinsulation.Visible = True
Me.Coldwaterstoragetank.Visible = True
Me.Heatingheadertank.Visible = True
Me.whsPlease.Visible = False
End If
If Me.NewRecord Then
Me.WaterHeatingSystemInstallYear.Visible = False
Me.WaterHeatingSystemRenewYear.Visible = False
Me.WaterHeatingControls.Visible = False
Me.Hotwatercylindersize.Visible = False
Me.Hotwatercylinderinsulation.Visible = False
Me.Coldwaterstoragetank.Visible = False
Me.Heatingheadertank.Visible = False
Me.whsPlease.Visible = True
End If
If Me.WaterHeatingSystem = "Instantaneous from main boiler" Then
Me.WaterHeatingSystemInstallYear.Visible = False
Me.WaterHeatingSystemRenewYear.Visible = False
Me.WaterHeatingControls.Visible = False
Me.Hotwatercylindersize.Visible = False
Me.Hotwatercylinderinsulation.Visible = False
Me.Coldwaterstoragetank.Visible = False
Me.Heatingheadertank.Visible = False
Else
Me.WaterHeatingSystemInstallYear.Visible = True
Me.WaterHeatingSystemRenewYear.Visible = True
Me.WaterHeatingControls.Visible = True
Me.Hotwatercylindersize.Visible = True
Me.Hotwatercylinderinsulation.Visible = True
Me.Coldwaterstoragetank.Visible = True
Me.Heatingheadertank.Visible = True
End If
If Me.NewRecord Then
Me.WaterHeatingSystemInstallYear.Visible = False
Me.WaterHeatingSystemRenewYear.Visible = False
Me.WaterHeatingControls.Visible = False
Me.Hotwatercylindersize.Visible = False
Me.Hotwatercylinderinsulation.Visible = False
Me.Coldwaterstoragetank.Visible = False
Me.Heatingheadertank.Visible = False
End If