Check box help

[GLEberts]

Could someone help me with the code for a calculation
When I click on a check box I want to be able to insert a answer for state sales tax in a text box (txtSt1)

Check Box = (ckst1)
Text Box to calculate sales tax = (txtSt1) Pa state sales tax (.06)
Text Box that has total to be calculated = (txtTotalCost1)

NOTE: don't know if this makes a difference but (txttotalcost1) is a unbound calcuation not a bound source

thanks
Gary

[ADezii]

@GLEberts
In the AfterUpdate() Event of your Check Box:

Private Sub ckst1_AfterUpdate()
Dim txtTC As TextBox
 
Set txtTC = Me![txtTotalCost1]
 
'If the Check Box is Checked, and txtTotalCost contains a Value'
'And the Value in txtTotalCost is a Number, then proceed
If Me![ckst1] And Not IsNull(txtTC) And IsNumeric(txtTC) Then
  Me![txtSt1] = FormatNumber((txtTC * 0.06), 2)
End If
End Sub

[GLEberts]

thank you very much - worked like a champ!

i should of posted what i was using - would of won the most embarrassing code award. - although could of given you a chuckle. (smile)

thanks again
Gary

[ADezii]

@GLEberts
Always glad to help out, Gary.