I have created an on timer event that mimics the MKB article found here: The only difference is that I changed the IDLEMINUTES to 20. Also, I added in the following event procedure to the module:
Application.Quit acSaveYes
So, the full module is this:
Sub IdleTimeDetected (ExpiredMinutes)
Dim Msg As String
Msg = "No user activity detected in the last "
Msg = Msg & ExpiredMinutes & " minutes. Access will now save and exit."
MsgBox Msg, 48
Application.Quit acSaveYes
End Sub
Currently, after 20 minutes of idle time, a user gets a message stating that they have been idle for 20 minutes and Access will save and exit. They can only click OK and be logged out. I have been asked to modify the procedure in two ways. One, when the msgbox appears, they want to be able to have an option to either exit or stay logged in, so a Yes No option. Also, if no response is given to the message within 5 minutes, then I'd like Access to automatically exit.
Any assistance is greatly appreciated!!!!
Application.Quit acSaveYes
So, the full module is this:
Sub IdleTimeDetected (ExpiredMinutes)
Dim Msg As String
Msg = "No user activity detected in the last "
Msg = Msg & ExpiredMinutes & " minutes. Access will now save and exit."
MsgBox Msg, 48
Application.Quit acSaveYes
End Sub
Currently, after 20 minutes of idle time, a user gets a message stating that they have been idle for 20 minutes and Access will save and exit. They can only click OK and be logged out. I have been asked to modify the procedure in two ways. One, when the msgbox appears, they want to be able to have an option to either exit or stay logged in, so a Yes No option. Also, if no response is given to the message within 5 minutes, then I'd like Access to automatically exit.
Any assistance is greatly appreciated!!!!