Countdown Time Left before Idle Minutes Timeout

[time2hike]

I have used Microsoft's instructions https://support.microsoft.com/en-us/kb/128814 and your threads http://bytes.com/topic/access/answer...off-idle-users and http://bytes.com/topic/access/answer...ime-inactivity to create an Application Quit procedure that opens a warning form. The user has an option to reset the timer and continue working (command button) or to Exit the application (another command button). If they do nothing for 5 minutes the application quits. This all works fine. My issue is that I want to show the countdown of the minutes and seconds left before the application quits. I am getting 00:00 for the countdown. Could you please look at my code (line 57) and tell me what I am doing wrong? Thank you.

Private Sub Form_Timer()
    'IDLEMinutes determines how much idle time to wait before
    'running the IdleTimeDetected Subroutine.
    Const IDLEMINUTES = 1
 
    Static PrevControlName As String
    Static PrevFormName As String
    Static ExpiredTime
 
    Dim ActiveFormName As String
    Dim ActiveControlName As String
    Dim ExpiredMinutes
 
    On Error Resume Next
 
    'Get the active form and control name.
    ActiveFormName = Screen.ActiveForm.Name
    If Err Then
        ActiveFormName = "No Active Form"
        Err = 0
    End If
 
    ActiveControlName = Screen.ActiveControl.Name
    If Err Then
        ActiveControlName = "No Active Control"
        Err = 0
    End If
 
    ' Record the current active names and reset ExpiredTime if:
         '    1. They have not been recorded yet (code is running
         '       for the first time).
         '    2. The previous names are different than the current ones
         '       (the user has done something different during the timer
         '        interval).
    If (PrevControlName = "") Or (PrevFormName = "") _
        Or (ActiveFormName <> PrevFormName) _
        Or (ActiveControlName <> PrevControlName) Then
            PrevControlName = ActiveControlName
            PrevFormName = ActiveFormName
            ExpiredTime = 0
    Else
        ' ...otherwise the user was idle during the time interval, so
        ' increment the total expired time.
        ExpiredTime = ExpiredTime + Me.TimerInterval
    End If
 
    ' Does the total expired time exceed the IDLEMINUTES?
    ExpiredMinutes = (ExpiredTime / 1000) / 60
    Debug.Print "Warning Expired Minutes: " & Format(ExpiredMinutes, "hh:nn")
 
    If ExpiredMinutes >= IDLEMINUTES Then
        ' ...if so, then reset the expired time to zero...
        ExpiredTime = 0
        ' ...and call the IdleTimeDetected subroutine.
        IdleTimeDetected ExpiredMinutes
    Else
        Me.txtTimeLeft = Format((IDLEMINUTES - ExpiredMinutes) / 3600, "hh:nn")
        Debug.Print "Warning Time Left: " & Format((IDLEMINUTES - ExpiredMinutes) / 3600, "hh:nn")
    End If
 
End Sub

[jforbes]

Try using 1440 instead of 3600 on Line 57:
24 hours * 60 Minutes = 1440 minutes per day.

You also might want to use Minutes and Seconds in the Format string, like:

Me.txtTimeLeft = Format((IDLEMINUTES - ExpiredMinutes) / 1440, "nn:ss")

[Rabbit]

A couple of things wrong.

• The format string you are using is for datetime data types. What you have is a numeric data type.
• You are doing 1 - expired minutes. Then dividing the minutes by 3600. Which doesn't make any sense because according to your first post, expired minutes can't exceed 5. So what you have is a very small number divided by a very large number. Basically, zero.

[time2hike]

Thank you, jforbes. That did it.

[time2hike]

Rabbit, thank you for the explanation. I appreciate knowing the answer and understanding what I was doing wrong.