Solved

counter increment

Posted on 2011-02-27
3
331 Views
Last Modified: 2012-05-11
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

Open in new window

0
Comment
Question by:PeterBaileyUk
  • 2
3 Comments
 

Author Comment

by:PeterBaileyUk
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

Open in new window

0
 
LVL 77

Accepted Solution

by:
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

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

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

In the previous article, Using a Critera Form to Filter Records (http://www.experts-exchange.com/A_6069.html), the form was basically a data container storing user input, which queries and other database objects could read. The form had to remain op…
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 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…
In Microsoft Access, when working with VBA, learn some techniques for writing readable and easily maintained code.

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now