Hello everyone,
I want to perform the following function
Like i have a value on my Base price text box i.e 2500
I have a value in my Tax amount i.e 2%
Now i want my Total textbox to print the value of ((2500 + (2500*2/100))
How do i do it..?
Please Help
I tried something but its now happening
Thank you in advance
My Code is
I want to perform the following function
Like i have a value on my Base price text box i.e 2500
I have a value in my Tax amount i.e 2%
Now i want my Total textbox to print the value of ((2500 + (2500*2/100))
How do i do it..?
Please Help
I tried something but its now happening
Thank you in advance
My Code is
Code:
Private Sub Textbaseprice_Change()
End Sub
Private Sub Texttaxamount_Change()
End Sub
Private Sub Texttaxes_Change()
If Me.Texttaxes = "CST" Then Me.Texttaxamount = "2%" Else Me.Texttaxamount = "15.6%"
End Sub
Sub GetSum()
On Error Resume Next
Me.Texttotal = (IIf(Me.Textbaseprice = "", 0, Me.Textbaseprice) + 0) + (IIf(Me.Texttaxamount = "", 0, Me.Texttaxamount) + 0)
End Sub
Private Sub Texttotal_Change()
If Me.Texttaxeamount = "" Then Me.Textttotal = "" Else Me.Texttotal = "Call Totalin"
End Sub
Sub Totalin()
Dim total As Double
total = Val(Textbaseprice.Value) + (Val(Textbaseprice.Value) * Val(Texttaxamount.Value) / 100)
Me.Textbaseprice.Value = ""
Me.Texttotal.Value = total
End Sub