[Webinar] Streamline your web hosting managementRegister Today


checkbox to switch between discount and no discount on form

Posted on 2004-10-22
Medium Priority
Last Modified: 2012-05-05
I am very very new to access and have bludgeoned my way through making an invoiceing system for our workshop but cannot work out how to do this last bit which I assume would be in vb in the way of an IF statement.
On the form there are 5 text boxes:

Total (Ex-Tax): =OrdersSF.Form!txtTotal
              GST:  =[txtTotal]*0.1
   Order Total:  =[txtSalesTax]+[txtTotal]
Discount 10%:
 Invoice Total:  =[txtOrderTotal]-[txtDiscount]

On the form beside the Discount 10% entry is a checkbox and I would like it to display a 10% discount from the order total when checked and retotal the amount to the Invoice total, and when unchecked put a 0 discount in the discount and display the order total in the invoice total without the discount removed.
As I said I am not really sure as to what needs to be done be it a new query or code but any help would be great.
I hope I have explained what I need well enough to get some help on this.

The Pro

Question by:The_Professional
  • 2

Accepted Solution

Bat17 earned 1000 total points
ID: 12382192
create you checkbox called chkDiscount and set its default value to False, create your txtDiscount and set it default value to 0
on the event for the checkboxs add this code:-

Private Sub chkDiscount_Click()
Dim curTax As Currency
Dim curTotal As Currency
If Me.chkDiscount = True Then
    curTax = Me.txtSalesTax
    curTotal = Me.txtTotal
    Me.txtDiscount = (curTax + curTotal) * 0.1
    Me.txtDiscount = 0
End If
End Sub



Author Comment

ID: 12390385
Thanx Peter worked perfectly your help is much appreciated.

The Pro

Expert Comment

ID: 12391873
Thanks for the Grade and points :-)

Featured Post

[Webinar] Kill tickets & tabs using PowerShell

Are you tired of cycling through the same browser tabs everyday to close the same repetitive tickets? In this webinar JumpCloud will show how you can leverage RESTful APIs to build your own PowerShell modules to kill tickets & tabs using the PowerShell command Invoke-RestMethod.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
Windows Explorer let you handle zip folders nearly as any other folder: Copy, move, change, and delete, etc. In VBA you can also handle normal files and folders, but zip folders takes a little more - and that you'll find here.
In Microsoft Access, learn how to use Dlookup and other domain aggregate functions and one method of specifying a string value within a string. Specify the first argument, which is the expression to be returned: Specify the second argument, which …
The Relationships Diagram is a good way to get an overall view of what a database is keeping track of. It is also where relationships are defined. A relationship specifies how two tables connect to each other. As you build tables in Microsoft Ac…
Suggested Courses

591 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question