Automatically Log off idle users

[NewtoAccess]

Hi,
We have a shared Access 2000 database shared among many users within the company I work for.

many times, users open up the shared database and forget to close it.
So I cant even make modifications to it after work hours since users are logged in.

Is there a way to log off users after a long period of inactivity?

Let me know, thanks

[puppydogbuddy]

Hi,
We have a shared Access 2000 database shared among many users within the company I work for.

many times, users open up the shared database and forget to close it.
So I cant even make modifications to it after work hours since users are logged in.

Is there a way to log off users after a long period of inactivity?

Let me know, thanks

Yes, but there is debate on the best way to accomplish it. Here is a link to Microsoft's way:

ACC: How to Detect User Idle Time or Inactivity
http://support.microsoft.com/?id=128814

[Rabbit]

Hi,
We have a shared Access 2000 database shared among many users within the company I work for.

many times, users open up the shared database and forget to close it.
So I cant even make modifications to it after work hours since users are logged in.

Is there a way to log off users after a long period of inactivity?

Let me know, thanks

Is there a form that will always be open? Use a global variable and public functions with the Timer, Mouse Move, and Key Press events on every form to track how long a person has been idle.

[NewtoAccess]

I'll check out the website.
I do have a Mainform that links to other forms. Mainform always remains open even if other forms are being worked on.

I think I should put a timer on the MAINFORM. And then have countdown which alerts the user and gives them the option to reset timer or not.

How could I code this? And where on form should it be added? 'on current' ?

[Rabbit]

I'll check out the website.
I do have a Mainform that links to other forms. Mainform always remains open even if other forms are being worked on.

I think I should put a timer on the MAINFORM. And then have countdown which alerts the user and gives them the option to reset timer or not.

How could I code this? And where on form should it be added? 'on current' ?

The link provides you with everything you need to implement one way of checking to see if someone's idle.Let us know if you have any touble.

[NewtoAccess]

Thanks for the link. I added the forms as mentioned on the microsoft site, only problem is an option whether or not to continue working did not appear.
It just closed right away.

I want to give the user a warning before closing by checking yes/no. if nothing is selected then it should proceed with quiting app.

[NewtoAccess]

This is what i have so far for sub routine action:

Sub IdleTimeDetecte d(ExpiredMinute s)
Dim Msg As String
strMsg = ""
strMsg = strMsg & "Applicatio n will CLOSE_"
strMsg = strMsg & "Click YES to continue working. Click NO to exit"
If MsgBox(strMsg, vbQuestion + vbYesNo, "No Activity detected") = vbYes Then
DoCmd.DoMenuIte m acFormBar, acRecordsMenu, 5, , acMenuVer70
Else
Application.Qui t A_SAVE
delayTimer = 10000
Application.Qui t A_SAVE
End If

MsgBox Msg, 48
End Sub

[puppydogbuddy]

This is what i have so far for sub routine action:

Sub IdleTimeDetecte d(ExpiredMinute s)
Dim Msg As String
strMsg = ""
strMsg = strMsg & "Applicatio n will CLOSE_"
strMsg = strMsg & "Click YES to continue working. Click NO to exit"
If MsgBox(strMsg, vbQuestion + vbYesNo, "No Activity detected") = vbYes Then
DoCmd.DoMenuIte m acFormBar, acRecordsMenu, 5, , acMenuVer70
Else
Application.Qui t A_SAVE
delayTimer = 10000
Application.Qui t A_SAVE
End If

MsgBox Msg, 48
End Sub

Change this:

           Else
               Application.Quit A_SAVE
        delayTimer = 10000
        Application.Quit A_SAVE
            End If

To this:

           Else
      Application.Quit acSaveYes
       delayTimer = 10000
       End If
 

You copied "Application.Qu it A_SAVE" from Access 2.0 code. Access 2.0 is not Access 2000, rather it is the version that existed pre97.

[NewtoAccess]

OK. I'll update the commands.
Still though, I want application to autoclose.

So if VBYesNo no button selected within 10 seconds, then I want app to proceed with closing anyway.

How can this be accomplished?

[puppydogbuddy]

OK. I'll update the commands.
Still though, I want application to autoclose.

So if VBYesNo no button selected within 10 seconds, then I want app to proceed with closing anyway.

How can this be accomplished?

You did not post all of your code, so you may need to replace object names in the code below with the appropriate object names from your code.

Else
       idleTime = 0                          'reset counters 
       delayTimer = 10000
       Do Until idleTime = 10000
             'Hang loose
             idleTime = idleTime + ElapsedTime
             If idleTime = 10000 Then
                Exit Do
             End If
       Loop
       delayTimer = 0
       Application.Quit acSaveYes
End If