Thanks Rick,

This is the code for the Endurance wich works (WarmUp and Cooldown is the same)

Private Sub EnduranceTraining()

    If EnduranceSec = "" Then
        MsgBox ("Enter a Number between 0 and 60")
    End If
    
    If EnduranceSec > 0 Then
        EnduranceSec = EnduranceSec - 1
    End If

    If EnduranceMin > 0 Then
        If EnduranceSec = 0 Then
                EnduranceMin = EnduranceMin - 1
                EnduranceSec = 59
        End If
    End If

    If EnduranceHrs > 0 Then
        If EnduranceMin = 0 Then
            If EnduranceSec = 0 Then
                EnduranceHrs = EnduranceHrs - 1
                EnduranceMin = 59
                EnduranceSec = 59
            End If
        End If
    End If
    
    If EnduranceSec = 0 Then
        If EnduranceMin = 0 Then
            If EnduranceHrs = 0 Then
                CoolDown
            End If
        End If
    End If

End Sub

For the Interval and Recover training the code should Loop First Interval then Recover and go back to Interval starting the next Loop.

In the Endurance the code forwards to Cooldown. in the Interval I tryed to do the same from within a "for next"; Interval to Recover and from Recover back to Interval. Which doesn't work.

Next I tryed Interval and Recover within one Private Sub but the code now runs simmaltanious (Interval and Recover counts down both at the same time).

Now I am out of options, guess your experience is not.

Many thanks
eddy

---

Reply from Richard Rost:

Your code above looks fine. I'd need to see the rest of your database to tell you for sure how to handle the different intervals. Like I said before, I'd just make a subtable with the type and duration, as I spelled out before. Run through a recordset, loading each one, and then when that's done MoveNext to the next one.