Idle Time fix

[rosscortb]

Database20.zip



Hi

I am trying to do the instructions in the following link which is close the database after idle. I think it might be the module part i have wrong as I am not confident with them. http://msdn.microsoft.com/en-us/libr...ice.12%29.aspx

I have attached what I have done so far. Would someone mind having a quick look to see what I'm doing wrong. This is a sample database before input on my real one.

Thanks in advanced.

Ross

[ranman256]

This example they gave assumes you are only using 1 form. If your app uses more than 1 form, leaving the timer form will continue to countdown, even tho the user is not idle.

So, You would need a global variables
public const gkIDLEMINUTES = 5
public gvElapsed

then you wiould need a public ResetTime() function to reset the elapsed time for:
every mouse move event
every keydown event
on every form
to reset the elapsed time.

When all forms are idle, and global gvElapsed = gkIDLEMINUTES then docmd.quit

[ssanfu]

There were a couple of errors....
The top two lines of every module should be:
Option Compare Database
Option Explicit ' << this line was missing

Did you try doing a Debug/Compile? You had two "End Subs" in the timer code.
The code in Module1 should have been in the form module.


I changed the elapsed time from 5 minutes to 1 minute - I didn't want to wait that long.

[rosscortb]

Thanks Steve for your help.

Sorry to be pain. Do you know how to automatically log them out becase is just shows the message and until OK is pressed then the DB will remain open.
Regards

Ross

[ssanfu]

Don't use the built in message box command.

You could make your own message box: create a form, set the form properties (Modal, color, size, etc), add a text box for the message, start another timer (in the message box form), close Access (move the Docmd.Quit command into the new message box code).