no matter how a dice this i cant get it right it just keeps saying 'else wihout if'...... any help appreciated!
Private Sub VAT()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
a = Me.Sales_Price
b = Me.VAT_Percentage
d = Me.Qty
If IsNull(Me.VAT_Percentage) Then End
Else: Me.VAT_Amount = (b / 100 * a) * d
' Me.VAT_Amount = c
End If
End Sub
Many Thanks,
Private Sub VAT()
Dim a As Single
Dim b As Single
Dim c As Single
Dim d As Single
a = Me.Sales_Price
b = Me.VAT_Percentage
d = Me.Qty
If IsNull(Me.VAT_Percentage) Then End
Else: Me.VAT_Amount = (b / 100 * a) * d
' Me.VAT_Amount = c
End If
End Sub
Many Thanks,