Using 'Tickboxes' to count 1

[lamaar]

I have 5 fields which are labelled at 'tickboxes'.&nbsp;&nbsp;When the boxes are ticked, I want a value (20) to be given to&nbsp;&nbsp;number field (total).&nbsp;&nbsp;When unticked, the value must fall by 20.&nbsp;&nbsp;I have tried to use an Even Procedure on the 'On Click' option within Properties but I still cannot get it to work, any ideas?<br><br>Thanks

 

[Julio]

I think you should use the After_Update Event and write something similar to this:<br><br>If me!TickBoxName.Value = True then<br>&nbsp;&nbsp;&nbsp;&nbsp;me!FieldName.Value = me!FieldName.Value * 1.2<br>else<br>&nbsp;&nbsp;&nbsp;&nbsp;me!FieldName.Value = me!FieldName.Value / 1.2<br>end if<br><br>HTH<br><br>Julio

 

[jimmythegeek]

Julio's will work if you are adding or subtracting <b>20%</b>, but if you are adding or subtracting a <b>VALUE</b> of 20, then use the following:<br><br><br>Add this sub to the code on your form, changing the bolded areas to match your field:<br><br>=====<br><br>Private Sub AdjustNumber(checked As Boolean)<br>&nbsp;&nbsp;&nbsp;&nbsp;If IsNull(Me.<b>txtTotal</b>) Then Me.<b>txtTotal</b> = 0<br>&nbsp;&nbsp;&nbsp;&nbsp;If checked Then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Me.<b>txtTotal</b> = Me.<b>txtTotal</b> + 20<br>&nbsp;&nbsp;&nbsp;&nbsp;Else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Me.<b>txtTotal</b> = Me.<b>txtTotal</b> - 20<br>&nbsp;&nbsp;&nbsp;&nbsp;End If<br>End Sub<br><br>=====<br><br>Then put this this line on the Click Event of each check box, changing the &quot;chk1&quot; to the name of each check box.<br><br>Call AdjustNumber(Me.<b>chk1</b>) <br><br><br>This will work, already tried it. <p>Jim Lunde<br><a href=mailto:compugeeks@hotmail.com>compugeeks@hotmail.com</a><br><a href=

http://www.cgeek.com>CompuGEEKS</a><br>Custom

Application Development