I have also taken your example and ammended.
Now this does not flag up any debugs. But does not calculate the renew year once install year entered.
As per below
Code:
Private Sub SecondaryHeatingInstallYear_AfterUpdate()
Select Case Me.SecondaryHeating
Case Is = "Electric Fire(10)"
Me.[SecondaryHeatingRenewYear] = Me.[SecondaryHeatingInstallYear] + 10
If Me.[SecondaryHeatingRenewYear] <= Format(Date, "yyyy") Then
Me.[SecondaryHeatingRenewYear] = Format(Date, "yyyy")
End If
Case Is = "Gas Fire(15)"
Me.[SecondaryHeatingRenewYear] = Me.[SecondaryHeatingInstallYear] + 15
If Me.[SecondaryHeatingRenewYear] <= Format(Date, "yyyy") Then
Me.[SecondaryHeatingRenewYear] = Format(Date, "yyyy")
End If
Case Is = "Tenants Own Gas"
Me.[SecondaryHeatingRenewYear] = Me.[SecondaryHeatingInstallYear] + 15
If Me.[SecondaryHeatingRenewYear] <= Format(Date, "yyyy") Then
Me.[SecondaryHeatingRenewYear] = Format(Date, "yyyy")
End If
Case Is = "Tenants Own Electric"
Me.[SecondaryHeatingRenewYear] = Me.[SecondaryHeatingInstallYear] + 10
If Me.[SecondaryHeatingRenewYear] <= Format(Date, "yyyy") Then
Me.[SecondaryHeatingRenewYear] = Format(Date, "yyyy")
End If
Case Is = "None"
Me.[SecondaryHeatingRenewYear.Value] = 0 And Me.[SecondaryHeatingInstallYear.Value] = 0
End Select
End Sub