Private Sub Form_Load()
Call CalcMoneyPercentage
End Sub
Private Sub SA_CDI_Money_AfterUpdate()
Call CalcMoneyPercentage
End Sub
Private Sub Total_Actuals_AfterUpdate()
Call CalcMoneyPercentage
End Sub
Function CalcMoneyPercentage()
If Not IsNull(Me.Total_Actuals.Value) And Not IsNull(Me.SA_CDI_Money.Value) Then
Me.MoneyPercentage.Value = Me.Total_Actuals.Value / Me.SA_CDI_Money.Value
Else
'You can choose: You can show a text-value saying that there are missing value(s)
'or just show nothing
'Now it is set on showing a text-value...
'Show text
Me.MoneyPercentage.Value = "Missing Value(s)"
'Show nothing
'Me.MoneyPercentage.Value = ""
End If
End Function