I'm having problems with an idle user detect for.
I created an unbound blank form and set the form properties to:
On Timer.... [Event Procedure]
Timer Interval....1000
with the following code for the event procedure:

Option Compare Database

Private Sub Form_Timer()
   'IDLEMINUTES determines how much time to wait before
   'running the IdleTimeDetected subroutine.
   Const IDLEMINUTES = 1
   
   Static PervControlName 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
   If ExpiredMinutes >= IDLEMINUTES Then
       
       '...if so, then reset the expired time to zero...
       ExpiredTime = 0
       '... and call the IdleTimeDetected subroutine.
       IdleTimeDetected ExpiredMinutes
   End If
End Sub

Private Sub IdleTimeDetected(ExpiredMinutes)

Application.Quit acQuitSaveAll

End Sub

The problem is that it doesn't close access if the user is idle.
The form is set to open in an autoexec macro in edit and hidden modes.
Any idea on where I may have went wrong?

John V