I have put the private sub together to do input calculated values into fields (I'm not using calculated fields on purpose).
The VAT calculation works fine, and so does the "else" part of the IF statement. However, the first statement (immediately after THEN) is not working.
Below is the code:
Dim RedCost As Currency
RedCost = CostOption - 500
VAT = CostOption * 17.5 / 100
If CostOption > 500 Then
FundCont = (RedCost / 2) + 500 And CompCont = RedCost / 2
FundCont = 500 And CompCont = 0