Need help changing a result in a Text Box!

--
After searching Google.groups.com and finding no answer, Bob Vance asked:

I have three boxes on a form
(a) Shows a percentage e.g. 12.5% (tbRate)
(b) Enter a figure 1000.00 (tbWithOutGST)
(c) Shows result a*b 1250.00(tbWithGST)

But want the result to be (a minus b) result to be 888.89
So Basically i want it in reverse enter with GST and get result minus GST

How would I go about changing this, Please

Thanks in advance.........Bob Vance

"Bob" wrote in message ...


--
After searching Google.groups.com and finding no answer, Bob Vance asked:

I have three boxes on a form
(a) Shows a percentage e.g. 12.5% (tbRate)
(b) Enter a figure 1000.00 (tbWithOutGST)
(c) Shows result a*b 1250.00(tbWithGST)

But want the result to be (a minus b) result to be 888.89
So Basically i want it in reverse enter with GST and get result minus GST

How would I go about changing this, Please

Thanks in advance.........Bob Vance

This formula will do that calculation:

c = b / (1 + (a / 100))

or it can be rewritten:

c = b * 100 / (100 + a)

HTH,
Randy

Where would I find the formula to change it, Thanks

"Randy Harris" wrote in message
...
"Bob" wrote in message ...


--
After searching Google.groups.com and finding no answer, Bob Vance asked:

I have three boxes on a form
(a) Shows a percentage e.g. 12.5% (tbRate)
(b) Enter a figure 1000.00 (tbWithOutGST)
(c) Shows result a*b 1250.00(tbWithGST)

But want the result to be (a minus b) result to be 888.89
So Basically i want it in reverse enter with GST and get result minus GST

How would I go about changing this, Please

Thanks in advance.........Bob Vance

This formula will do that calculation:

c = b / (1 + (a / 100))

or it can be rewritten:

c = b * 100 / (100 + a)

HTH,
Randy

"Bob" wrote in message ...
Where would I find the formula to change it, Thanks

It could be in a number of different places. Perhaps the most likely is in
the code behind that form. Check the AfterUpdate event for tbWithOutGST.
You might get a clue by watching the form to see what specific event causes
a value to appear in tbWithGST.

Found it how would I change it. Thanks Bob

"Randy Harris" wrote in message
...
"Bob" wrote in message ...
Where would I find the formula to change it, Thanks

It could be in a number of different places. Perhaps the most likely is
in
the code behind that form. Check the AfterUpdate event for tbWithOutGST.
You might get a clue by watching the form to see what specific event
causes
a value to appear in tbWithGST.

Sorry here it is:
Private Sub tbWithoutGST_AfterUpdate()
tbWithGST.value = funCalGST
End Sub

"Bob" wrote in message ...
Found it how would I change it. Thanks Bob

"Randy Harris" wrote in message
...
"Bob" wrote in message ...
Where would I find the formula to change it, Thanks

It could be in a number of different places. Perhaps the most likely is
in
the code behind that form. Check the AfterUpdate event for tbWithOutGST.
You might get a clue by watching the form to see what specific event
causes
a value to appear in tbWithGST.

"Bob" wrote in message ...
Sorry here it is:
Private Sub tbWithoutGST_AfterUpdate()
tbWithGST.value = funCalGST
End Sub

Bob, it's getting its data from that function (funCalGST). Do a search for
that, then post the function.

Randy


"Bob" wrote in message ...
Found it how would I change it. Thanks Bob

"Randy Harris" wrote in message
...
"Bob" wrote in message ...
Where would I find the formula to change it, Thanks

It could be in a number of different places. Perhaps the most likely
is
in
the code behind that form. Check the AfterUpdate event for
tbWithOutGST.
You might get a clue by watching the form to see what specific event
causes
a value to appear in tbWithGST.

Found it but it is being used for something else:
Can a new script be written?

Function funCalGST() As Currency
Dim sngGstPercentage As Single, recGSTOptions As ADODB.Recordset
Set recGSTOptions = New ADODB.Recordset
recGSTOptions.Open "SELECT * FROM tblGSTOptions WHERE GSTOptionsText
LIKE '" _
& cbGSTOptions.value & "'", cnnStableAccount, adOpenDynamic,
adLockOptimistic

If recGSTOptions.EOF = True And recGSTOptions.BOF = True Then
MsgBox "Invalid GSTOption.", vbApplicationModal + vbInformation +
vbOKOnly
'Exit Sub
End If

sngGstPercentage = CSng(Nz(recGSTOptions.Fields("GSTPercentage"), 0))
tbRate.value = sngGstPercentage * 100
funCalGST = (Nz(tbWithoutGST.value, 0) * Nz(tbRate.value, 0) / 100) +
Nz(tbWithoutGST.value, 0)
End Function
"Randy Harris" wrote in message
...
"Bob" wrote in message ...
Sorry here it is:
Private Sub tbWithoutGST_AfterUpdate()
tbWithGST.value = funCalGST
End Sub

Bob, it's getting its data from that function (funCalGST). Do a search
for
that, then post the function.

Randy


"Bob" wrote in message ...
Found it how would I change it. Thanks Bob

"Randy Harris" wrote in message
...
"Bob" wrote in message
...
Where would I find the formula to change it, Thanks

It could be in a number of different places. Perhaps the most likely
is
in
the code behind that form. Check the AfterUpdate event for
tbWithOutGST.
You might get a clue by watching the form to see what specific event
causes
a value to appear in tbWithGST.

"Bob" wrote in message ...
Found it but it is being used for something else:
Can a new script be written?

Function funCalGST() As Currency
Dim sngGstPercentage As Single, recGSTOptions As ADODB.Recordset
Set recGSTOptions = New ADODB.Recordset
recGSTOptions.Open "SELECT * FROM tblGSTOptions WHERE GSTOptionsText
LIKE '" _
& cbGSTOptions.value & "'", cnnStableAccount, adOpenDynamic,
adLockOptimistic

If recGSTOptions.EOF = True And recGSTOptions.BOF = True Then
MsgBox "Invalid GSTOption.", vbApplicationModal + vbInformation +
vbOKOnly
'Exit Sub
End If

sngGstPercentage = CSng(Nz(recGSTOptions.Fields("GSTPercentage"), 0))
tbRate.value = sngGstPercentage * 100
funCalGST = (Nz(tbWithoutGST.value, 0) * Nz(tbRate.value, 0) / 100) +
Nz(tbWithoutGST.value, 0)
End Function

This function is designed to get the GST percent rate from a table, rather
than the text box control - tbRate. It has some serious problems, however.
Rather than risk using an obviously defective function, or attempting to fix
it, let's simply go back to the After update event and enter the proper
calculation there.

Change this:

Private Sub tbWithoutGST_AfterUpdate()
tbWithGST.value = funCalGST
End Sub

To:

Private Sub tbWithoutGST_AfterUpdate()
Me.tbWithGST = Me.tbWithOutGST / (1 + (Me.tbRate / 100))
End Sub

See if that doesn't get you the result that you want. BTW - assuming this
gets you the desired result, you might want to put the identical same
calculation in the AfterUpdate event for tbRate. That way, if someone
enters a value in tbWithoutGST before entering a GST rate, the calculation
will still be done.

Randy


"Randy Harris" wrote in message
...
"Bob" wrote in message ...
Sorry here it is:
Private Sub tbWithoutGST_AfterUpdate()
tbWithGST.value = funCalGST
End Sub

Bob, it's getting its data from that function (funCalGST). Do a search
for
that, then post the function.

Randy


"Bob" wrote in message ...
Found it how would I change it. Thanks Bob

"Randy Harris" wrote in message
...
"Bob" wrote in message
...
Where would I find the formula to change it, Thanks

It could be in a number of different places. Perhaps the most
likely
is
in
the code behind that form. Check the AfterUpdate event for
tbWithOutGST.
You might get a clue by watching the form to see what specific event
causes
a value to appear in tbWithGST.

Randy that worked fine but, If I change the tax rate on front form 12.5 to
10 the text box next to withgst and withoutgst dose not alter so i can not
get a 10% caluclation, Regards Bob

"Randy Harris" wrote in message
...
"Bob" wrote in message ...
Found it but it is being used for something else:
Can a new script be written?

Function funCalGST() As Currency
Dim sngGstPercentage As Single, recGSTOptions As ADODB.Recordset
Set recGSTOptions = New ADODB.Recordset
recGSTOptions.Open "SELECT * FROM tblGSTOptions WHERE GSTOptionsText
LIKE '" _
& cbGSTOptions.value & "'", cnnStableAccount, adOpenDynamic,
adLockOptimistic

If recGSTOptions.EOF = True And recGSTOptions.BOF = True Then
MsgBox "Invalid GSTOption.", vbApplicationModal + vbInformation +
vbOKOnly
'Exit Sub
End If

sngGstPercentage = CSng(Nz(recGSTOptions.Fields("GSTPercentage"), 0))
tbRate.value = sngGstPercentage * 100
funCalGST = (Nz(tbWithoutGST.value, 0) * Nz(tbRate.value, 0) / 100) +
Nz(tbWithoutGST.value, 0)
End Function

This function is designed to get the GST percent rate from a table, rather
than the text box control - tbRate. It has some serious problems,
however.
Rather than risk using an obviously defective function, or attempting to
fix
it, let's simply go back to the After update event and enter the proper
calculation there.

Change this:

Private Sub tbWithoutGST_AfterUpdate()
tbWithGST.value = funCalGST
End Sub

To:

Private Sub tbWithoutGST_AfterUpdate()
Me.tbWithGST = Me.tbWithOutGST / (1 + (Me.tbRate / 100))
End Sub

See if that doesn't get you the result that you want. BTW - assuming this
gets you the desired result, you might want to put the identical same
calculation in the AfterUpdate event for tbRate. That way, if someone
enters a value in tbWithoutGST before entering a GST rate, the calculation
will still be done.

Randy


"Randy Harris" wrote in message
...
"Bob" wrote in message ...
Sorry here it is:
Private Sub tbWithoutGST_AfterUpdate()
tbWithGST.value = funCalGST
End Sub

Bob, it's getting its data from that function (funCalGST). Do a search
for
that, then post the function.

Randy


"Bob" wrote in message
...
Found it how would I change it. Thanks Bob

"Randy Harris" wrote in message
...
"Bob" wrote in message
...
Where would I find the formula to change it, Thanks

It could be in a number of different places. Perhaps the most
likely
is
in
the code behind that form. Check the AfterUpdate event for
tbWithOutGST.
You might get a clue by watching the form to see what specific
event
causes
a value to appear in tbWithGST.