close access application aftera specific time

[mana]

Hello,

i have an access application and i wnat that aftera specific time it would be closed automatically. I found the following code in timer event of a form that is hidden. but it takes long and i want that it works sooner than that. do you know where should i change the time?

i also have one other question. some pdf files will be opened from hyperlink of my app and when the app will be closed the pdf files are still open, is there a way that i can close all of the pdfs as well?

thank you for your help

Private Sub Form_Timer()
' IDLEMINUTES determines how much idle time to wait for 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
         If ExpiredMinutes >= IDLEMINUTES Then
            ' ...if so, then reset the expired time to zero...
            ExpiredTime = 0
             '...and call the IdleTimeDetected subroutine.
            
            IdleTimeDetected ExpiredMinutes
          End If
         
         
         'Dim dtTime As Date
'dtTime = TimeValue(Time)
'If dtTime >= #8:20:00 AM# Then
    'Application.Quit
'End If

End Sub