[RESOLVED] Help with eratic loop counter in a timer

[isnoend07]

This counter keeps starting over for some reason.(miCounter)
i have changed the name of the counter in case it was referenced elsewhere in my code
sometimes it gets to 10 and starts over other times 11
The code;

Form level variable: Dim miCounter As Integer

Private Sub Timer1_Timer()
Dim bFinished As Boolean
Debug.Print "mcurCurWinPlusBonus " & mcurCurWinPlusBonus       
         
          If mintCreditMode = 1 Then 'currency
            lblCredit.Caption = CCur(lblCredit.Caption) + mdblDecimalPart 'WinAmount
            lblCredit.Caption = Format(lblCredit.Caption, "currency")
            lblWinThisRun.Caption = lblWinThisRun.Caption + 1
            miCounter = miCounter + 1
             Debug.Print "miCounter " & miCounter & " lblCredit.Caption " & lblCredit.Caption
          Else
              lblWinThisRun.Caption = lblWinThisRun.Caption + 1 '3rd
              lblCredit.Caption = Val(lblCredit.Caption) + 1
'             miCounter = miCounter + 1
          End If
     
    If miCounter >= mcurCurWinPlusBonus Then 'mlngCreditsWon Then '4
        Debug.Print "end Run"
           
         End If
 Loop
           
            Timer1.Enabled = False           
            UpdatePerformanceGridsWin
End Sub

Debug results:
mcurCurWinPlusBonus 110
miCounter 1 lblCredit.Caption $0.51
miCounter 2 lblCredit.Caption $0.52
miCounter 3 lblCredit.Caption $0.53
miCounter 4 lblCredit.Caption $0.54
miCounter 5 lblCredit.Caption $0.55
miCounter 6 lblCredit.Caption $0.56
miCounter 7 lblCredit.Caption $0.57
miCounter 8 lblCredit.Caption $0.58
miCounter 9 lblCredit.Caption $0.59
miCounter 10 lblCredit.Caption $0.60
miCounter 1 lblCredit.Caption $0.61
miCounter 2 lblCredit.Caption $0.62
miCounter 3 lblCredit.Caption $0.63
miCounter 4 lblCredit.Caption $0.64
miCounter 5 lblCredit.Caption $0.65
miCounter 6 lblCredit.Caption $0.66
miCounter 7 lblCredit.Caption $0.67
miCounter 8 lblCredit.Caption $0.68
miCounter 9 lblCredit.Caption $0.69
miCounter 10 lblCredit.Caption $0.70
miCounter 11 lblCredit.Caption $0.71
miCounter 1 lblCredit.Caption $0.72
miCounter 2 lblCredit.Caption $0.73
miCounter 3 lblCredit.Caption $0.74
miCounter 4 lblCredit.Caption $0.75
miCounter 5 lblCredit.Caption $0.76
miCounter 6 lblCredit.Caption $0.77
miCounter 7 lblCredit.Caption $0.78
miCounter 8 lblCredit.Caption $0.79
miCounter 9 lblCredit.Caption $0.80
miCounter 10 lblCredit.Caption $0.81
miCounter 11 lblCredit.Caption $0.82
miCounter 1 lblCredit.Caption $0.83
miCounter 2 lblCredit.Caption $0.84
miCounter 3 lblCredit.Caption $0.85
miCounter 4 lblCredit.Caption $0.86
miCounter 5 lblCredit.Caption $0.87
miCounter 6 lblCredit.Caption $0.88
miCounter 7 lblCredit.Caption $0.89
miCounter 8 lblCredit.Caption $0.90
miCounter 9 lblCredit.Caption $0.91
miCounter 10 lblCredit.Caption $0.92
miCounter 11 lblCredit.Caption $0.93
miCounter 12 lblCredit.Caption $0.94
miCounter 13 lblCredit.Caption $0.95
miCounter 14 lblCredit.Caption $0.96
miCounter 15 lblCredit.Caption $0.97
miCounter 16 lblCredit.Caption $0.98
miCounter 17 lblCredit.Caption $0.99
miCounter 18 lblCredit.Caption $1.00
miCounter 19 lblCredit.Caption $1.01
miCounter 20 lblCredit.Caption $1.02
miCounter 21 lblCredit.Caption $1.03
miCounter 22 lblCredit.Caption $1.04
miCounter 23 lblCredit.Caption $1.05
miCounter 24 lblCredit.Caption $1.06
miCounter 25 lblCredit.Caption $1.07
miCounter 26 lblCredit.Caption $1.08
miCounter 27 lblCredit.Caption $1.09
miCounter 28 lblCredit.Caption $1.10
miCounter 29 lblCredit.Caption $1.11
miCounter 30 lblCredit.Caption $1.12
miCounter 31 lblCredit.Caption $1.13
miCounter 32 lblCredit.Caption $1.14
miCounter 33 lblCredit.Caption $1.15
miCounter 34 lblCredit.Caption $1.16
miCounter 35 lblCredit.Caption $1.17
miCounter 36 lblCredit.Caption $1.18
miCounter 37 lblCredit.Caption $1.19
miCounter 38 lblCredit.Caption $1.20
miCounter 39 lblCredit.Caption $1.21
miCounter 40 lblCredit.Caption $1.22
miCounter 41 lblCredit.Caption $1.23
miCounter 42 lblCredit.Caption $1.24
miCounter 43 lblCredit.Caption $1.25
miCounter 44 lblCredit.Caption $1.26
miCounter 45 lblCredit.Caption $1.27
miCounter 46 lblCredit.Caption $1.28
miCounter 47 lblCredit.Caption $1.29
miCounter 48 lblCredit.Caption $1.30
miCounter 49 lblCredit.Caption $1.31
miCounter 50 lblCredit.Caption $1.32
miCounter 51 lblCredit.Caption $1.33
miCounter 52 lblCredit.Caption $1.34
miCounter 53 lblCredit.Caption $1.35
miCounter 54 lblCredit.Caption $1.36
miCounter 55 lblCredit.Caption $1.37
miCounter 56 lblCredit.Caption $1.38
miCounter 57 lblCredit.Caption $1.39
miCounter 58 lblCredit.Caption $1.40
miCounter 59 lblCredit.Caption $1.41
miCounter 60 lblCredit.Caption $1.42
miCounter 61 lblCredit.Caption $1.43
miCounter 62 lblCredit.Caption $1.44
miCounter 63 lblCredit.Caption $1.45
miCounter 64 lblCredit.Caption $1.46
miCounter 65 lblCredit.Caption $1.47
miCounter 66 lblCredit.Caption $1.48
miCounter 67 lblCredit.Caption $1.49
miCounter 68 lblCredit.Caption $1.50
miCounter 69 lblCredit.Caption $1.51
miCounter 70 lblCredit.Caption $1.52
miCounter 71 lblCredit.Caption $1.53
miCounter 72 lblCredit.Caption $1.54
miCounter 73 lblCredit.Caption $1.55
miCounter 74 lblCredit.Caption $1.56
miCounter 75 lblCredit.Caption $1.57
miCounter 76 lblCredit.Caption $1.58
miCounter 77 lblCredit.Caption $1.59
miCounter 78 lblCredit.Caption $1.60
miCounter 79 lblCredit.Caption $1.61
miCounter 80 lblCredit.Caption $1.62
miCounter 81 lblCredit.Caption $1.63
miCounter 82 lblCredit.Caption $1.64
miCounter 83 lblCredit.Caption $1.65
miCounter 84 lblCredit.Caption $1.66
miCounter 85 lblCredit.Caption $1.67
miCounter 86 lblCredit.Caption $1.68
miCounter 87 lblCredit.Caption $1.69
miCounter 88 lblCredit.Caption $1.70
miCounter 89 lblCredit.Caption $1.71
miCounter 90 lblCredit.Caption $1.72
miCounter 91 lblCredit.Caption $1.73
miCounter 92 lblCredit.Caption $1.74
miCounter 93 lblCredit.Caption $1.75
miCounter 94 lblCredit.Caption $1.76
miCounter 95 lblCredit.Caption $1.77
miCounter 96 lblCredit.Caption $1.78
miCounter 97 lblCredit.Caption $1.79
miCounter 98 lblCredit.Caption $1.80
miCounter 99 lblCredit.Caption $1.81
miCounter 100 lblCredit.Caption $1.82
miCounter 101 lblCredit.Caption $1.83
miCounter 102 lblCredit.Caption $1.84
miCounter 103 lblCredit.Caption $1.85
miCounter 104 lblCredit.Caption $1.86
miCounter 105 lblCredit.Caption $1.87
miCounter 106 lblCredit.Caption $1.88
miCounter 107 lblCredit.Caption $1.89
miCounter 108 lblCredit.Caption $1.90
miCounter 109 lblCredit.Caption $1.91
miCounter 110 lblCredit.Caption $1.92
End Run
Why is this happening ?

[SamOscarBrown]

does this give you a clue?

Option Explicit
Dim miCounter As Integer
Dim mcurCurWinPlusBonus As Integer

Private Sub Command1_Click()
miCounter = 0
mcurCurWinPlusBonus = 110
Debug.Print "Start"
Debug.Print "mcurCurWinPlusBonus " & mcurCurWinPlusBonus
Timer1.Enabled = True
End Sub


Private Sub Timer1_Timer()
'Dim bFinished As Boolean
'          If mintCreditMode = 1 Then 'currency
'            lblCredit.Caption = CCur(lblCredit.Caption) + mdblDecimalPart 'WinAmount
'            lblCredit.Caption = Format(lblCredit.Caption, "currency")
'            lblWinThisRun.Caption = lblWinThisRun.Caption + 1
            miCounter = miCounter + 1
             Debug.Print "miCounter " & miCounter
'              lblWinThisRun.Caption = lblWinThisRun.Caption + 1 '3rd
'              lblCredit.Caption = Val(lblCredit.Caption) + 1
'             miCounter = miCounter + 1
'          End If
     
    If miCounter >= mcurCurWinPlusBonus Then 'mlngCreditsWon Then '4
        Debug.Print "end Run"
            Timer1.Enabled = False
         End If
' Loop
           
           
'            UpdatePerformanceGridsWin
End Sub

[isnoend07]

Found the problem
The timer was being called again while running reseting to miCounter = 0