Solved

# counter increment

Posted on 2011-02-27
362 Views
I have a global counter that is increased from 0 to 50 by a plus and a minus button.

I would like the incrementation to scale so fom 0 to 5 or 5 to 0 in steps of 1 and from 5 to 50 in steps of 5 or -5 if decreasing

my current code works but only in steps of 1 which is a lot of clicks

I tried a case with 0 to 4 with increments of 1
then 5 to 49 with increments of 5
but the counts go beyond 50 my upper limit so it all falls apart
``````Private Sub BtnVCCPlus_Click()
Select Case vCCCount
Case 0
vCCCount = vCCCount + 1
Case 1 To 49
vCCCount = vCCCount + 1
Case 50

End Select
LblVCCCount.Caption = vCCCount
End Sub
Private Sub BtnVCCMinus_Click()
Select Case vCCCount

Case 0

Case 1 To 49
vCCCount = vCCCount - 1
Case 50
vCCCount = vCCCount - 1

End Select
LblVCCCount.Caption = vCCCount
End Sub
``````
0
Question by:PeterBaileyUk
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 2

Author Comment

ID: 34994865
I have almost got there the decrement works but the increment gets to 4 then jumps straight to 10
``````Private Sub BtnVCCPlus_Click()

If vCCCount >= 0 And vCCCount <= 4 Then vCCCount = vCCCount + 1
If vCCCount >= 5 And vCCCount <= 49 Then vCCCount = vCCCount + 5

LblVCCCount.Caption = vCCCount
End Sub
Private Sub BtnVCCMinus_Click()

If vCCCount >= 1 And vCCCount <= 5 Then vCCCount = vCCCount - 1
If vCCCount >= 6 And vCCCount <= 49 Then vCCCount = vCCCount - 5
If vCCCount = 50 Then vCCCount = vCCCount - 5

LblVCCCount.Caption = vCCCount
End Sub
``````
0

LVL 77

Accepted Solution

peter57r earned 500 total points
ID: 34994878
up...

Select Case vCCCount
Case 0 to 4
vCCCount = vCCCount + 1
Case 5 To 45
vCCCount = vCCCount + 5
Case else
' do nothing

End Select

and down...

Select Case vCCCount

Case 1 to 5
vCCCount = vCCCount -1
Case 10 To 50
vCCCount = vCCCount - 5
Case else
' do nothing
End Select

End Select
0

Author Closing Comment

ID: 34994892
just couldnt get my head around that one thank you
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
In Part II of this series, I will discuss how to identify all open instances of Excel and enumerate the workbooks, spreadsheets, and named ranges within each of those instances.
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
In Microsoft Access, learn the trick to repeating sub-report headings at the top of each page. The problem with sub-reports and headings: Add a dummy group to the sub report using the expression =1: Set the “Repeat Section” property of the dummy…
###### Suggested Courses
Course of the Month6 days, 9 hours left to enroll