Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help Sales Tax drop down on existing Form 1

Status
Not open for further replies.

CK8

Technical User
Nov 5, 2001
15
US
QUESTION: How would I edit blow event to include an IF order date is < than 01/01/02 then calc rate at 7.5 percent
but if order date is >12/31/01 then calc at 8.0 percent?


private Sub cmbSave_Click()
If Me.ChurchState = &quot;ca&quot; Then
Me.SalesTax = 0.0775 * Me.CalcSubTotal
Me.SalesTax.Requery
End If

Me.SubTotal = Me.CalcSubTotal
Me.ShipCharges = Me.CalShipTotal
Me.PaymentAmount = Me.CalcTotalPayments
Me.TotalAmountDue = Me.calcTotalDue
Me.OrderBalance = Me.calcBalanceDue
'Forms!frmContacts.PastAmountDue = Me.OrderBalance
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


Do you think this might work? Then I could keep original sales tax text box, old records remain intake, etc...

Thanks for your input
CK8
 
If you still want to keep the state logic, try something like this:

private Sub cmbSave_Click()
If Me.ChurchState = &quot;ca&quot; Then
If Me.OrderDate < #1/1/02# Then
Me.SalesTax = 0.075 * Me.CalcSubTotal
Else
Me.SalesTax = 0.08 * Me.CalcSubTotal
End If

Me.SalesTax.Requery
End If
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top