Time out due to inactivity

[WithoutPause]

http://support.microsoft.com/?kbid=210297



Here's the only real difference in my code compared to what they have.

Sub IdleTimeDetected(ExpiredMinutes)


    If Screen.ActiveForm.Dirty Then
        Screen.ActiveForm.Dirty = False
    End If
    
    DoCmd.OpenForm "frmLogin"
    DoCmd.Close acForm, Screen.ActiveForm
End Sub

I tried the code to close the application and that works. What I want to do is to see if the form that is being worked on has been idle for a period of time, save what work has been done if any, open the log in form, and close the current form.

[ItsMe]

So what is happening? When I look at your code, it seems you are opening and then closing the login form. Maybe you can retrieve the form name from the inactive form somewhere and use the form name in your docmd.close


dim strName as string

If Screen.ActiveForm.Dirty Then
Screen.ActiveForm.Dirty = False

strName = Screen.ActiveForm.name not sure .Name is the correct property, just guessing here...

End If

[WithoutPause]

Name works. I missed the fact that opening the log in form made it the active one.

[ItsMe]

Sometimes all you need is a second set of eyes.