Hi Guy''s for the life of me, this should be simple but for some reason I can't get the correct answer, i am trying have a button to add 2.5% discount and each click increment by a further 2.5%
If txtDisc = "" the it wants to be 2.5
next click 5
next click 7.5
etc
I am trying to take that percentage from the total ?
Also have a button called cmdRight, this is to reverse the calculation
For the life of me I can't get the correct answer/formula
trying to get the txtNett to result in new value taking percentage from txtDisc
Code:
Private Sub cmdLeft_Click()Dim orgValue As Currency, disValue As Currency, newValue As Currency, myCalc As Currency
orgValue = Me.txtNett
If Me.txtDisc = "" Then
Me.txtDisc = 2.5
End If
If Me.txtDisc <> "" Then
Me.txtDisc = Me.txtDisc + 2.5
newValue = Me.txtDisc * orgValue
Me.txtNett = Me.txtNett / 100 * Me.txtDisc
Me.txtVat = Me.txtNett * 0.2
Me.txtTotal = Me.txtNett * 1.2
Me.txtDiscount = Me.txtDisc & "% Discounted"
End If
End Sub