Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Time interval shutdown

Time interval shutdown

Time interval shutdown

I am looking for a way to use the time interval to automatically shut down a database after a period of inactivity.  It is health care related and HIPPA requirements dictate this.
Any thoughts on the code would be appreciated.
And where the code should be inserted- into the main data entry form?
I followed these instructions from Microsoft but not sure where to put this form

Private Sub Form_Timer()


Static PrevControlName As String
Static PrevFormName As String
Static ExpiredTime As Variant

Dim ActiveControlName As String
Dim ActiveFormName As String
Dim ExpiredMinutes As Variant

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
    'user was idle during 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
'reset expired time to zero
    ExpiredTime = 0
'and call the IdleTimeDetected sub
    IdleTimeDetected ExpiredMinutes
End If

End Sub

Sub IdleTimeDetected(ExpiredMinutes As Variant)
Dim Msg As String
Msg = "No user activity detected in the last "
Msg = Msg & ExpiredMinutes & " minutes!"
MsgBox Msg, 48
Application.Quit acSaveYes
End Sub

RE: Time interval shutdown

This looks like Access VBA which is covered better in forum705. This forum is for general database issues rather than specific coding for one particular database front end.

If you want to get the best response to a question, please check out FAQ222-2244 first
'If we're supposed to work in Hex, why have we only got A fingers?'
Essex Steam UK for steam enthusiasts

RE: Time interval shutdown

Shutdown the whole database after a period of Inactivity or a single users Session?   

On the other hand if your database only supports one user at a time I guess that is one in the same requirement.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close