Two Counters Limit Total

[Nikki]

Hi

I have two incremental counters on a form where users can enter two
scores (home and away). I want to limit the total of the two scores to
100. I'm thinking of two options and would appreciate any help with
how to do it.

Let's assume the total of the two scores is currently 100 and the user
clicks on the up arrow to increase the home score by 1, the options
are:

1. The home score doesn't change and an error message appears asking
the user to reduce the away score first.
[On this one I don't know how to stop the home score increasing. The
score continues to increase within its own parameters.]

or

2. The home counter increases as the user clicks the up arrow but the
away score decreases to maintain a maximum total of 100.

Win2K XL2K

Many thanks
Nikki

 

[Bob Phillips]

Assuming the values go to textboxes, this stps the counter going above 100

Private Sub SpinButton1_SpinUp()
With TextBox1
.Value = .Value + 1
If .Value > 100 Then
.Value = 100
End If
End With
End Sub

This shows how to increment one, decrement the other

Private Sub SpinButton1_SpinUp()
With TextBox1
.Text = .Text + 1
If .Text > 100 Then
If TextBox2.Text > 0 Then
TextBox2.Text = TextBox2.Text - 1
Else
.Text = .Text - 1
End If
End If
End With
End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Paul Robinson]

Hi
I'd go with option 2 every time.
Double click ComboBox1 in the VB editor and use

Private Sub ComboBox1_Change()
ComboBox2.Value = 100 - ComboBox1.Value
End Sub

You could allow edit in both boxes by doing the same sub for ComboBox2.

regards
Paul

If they are combobox1 and combobox2 then