VBA click counter

[rapoza609]

I'm trying to do something that I feel should be rather easy to do, but simply isn't working.

I'm want to create multiple spin buttons to manually allow the user keep score of different things and to display the current count of each in separate text boxes. However I also want to display a total overall count of based on ALL spin button inputs.

I declared a total count variable as Long and it will change from 0 to 1 with the first click, but won't add any more with any additional clicks.

 

[LegendaryAxe]

Can you show the VBA code?

 

[myall_blues]

Something along these lines, assuming your buttons and textboxes are on a form?

Private Sub SpinButton1_Change()
SpinButton1.Min = 0
SpinButton1.Max = 50
SpinButton1.SmallChange = 1
TextBox1.Value = SpinButton1.Value
TextBoxTotal.Value = SpinButton1.Value + SpinButton2.Value + SpinButton3.Value
End Sub
Private Sub SpinButton2_Change()
SpinButton2.Min = 0
SpinButton2.Max = 20
SpinButton2.SmallChange = 1
TextBox2.Value = SpinButton2.Value
TextBoxTotal.Value = SpinButton1.Value + SpinButton2.Value + SpinButton3.Value
End Sub
Private Sub SpinButton3_Change()
SpinButton3.Min = 0
SpinButton3.Max = 20
SpinButton3.SmallChange = 1
TextBox3.Value = SpinButton3.Value
TextBoxTotal.Value = SpinButton1.Value + SpinButton2.Value + SpinButton3.Value
End Sub

 

[rapoza609]

Something along these lines, assuming your buttons and textboxes are on a form?

Private Sub SpinButton1_Change()
SpinButton1.Min = 0
SpinButton1.Max = 50
SpinButton1.SmallChange = 1
TextBox1.Value = SpinButton1.Value
TextBoxTotal.Value = SpinButton1.Value + SpinButton2.Value + SpinButton3.Value
End Sub
Private Sub SpinButton2_Change()
SpinButton2.Min = 0
SpinButton2.Max = 20
SpinButton2.SmallChange = 1
TextBox2.Value = SpinButton2.Value
TextBoxTotal.Value = SpinButton1.Value + SpinButton2.Value + SpinButton3.Value
End Sub
Private Sub SpinButton3_Change()
SpinButton3.Min = 0
SpinButton3.Max = 20
SpinButton3.SmallChange = 1
TextBox3.Value = SpinButton3.Value
TextBoxTotal.Value = SpinButton1.Value + SpinButton2.Value + SpinButton3.Value
End Sub

This works, but the initial count goes from "0" to "2" and skips 1. How would I fix this? Thank you very much, by the way.

 

[myall_blues]

Hard to say without seeing your code. Can you post your code?