Idle user detect form

  • Thread starter Thread starter John V
  • Start date Start date
J

John V

I'm having problems with an idle user detect for.
I created an unbound blank form and set the form properties to:
On Timer.... [Event Procedure]
Timer Interval....1000
with the following code for the event procedure:

Option Compare Database

Private Sub Form_Timer()
'IDLEMINUTES determines how much time to wait before
'running the IdleTimeDetected subroutine.
Const IDLEMINUTES = 1

Static PervControlName As String
Static PrevFormName As String
Static ExpiredTime

Dim ActiveFormName As String

Dim ActiveControlName As String
Dim ExpiredMinutes

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
Else
'...otherwise the user was idle during the time 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

'...if so, then reset the expired time to zero...
ExpiredTime = 0
'... and call the IdleTimeDetected subroutine.
IdleTimeDetected ExpiredMinutes
End If
End Sub

Private Sub IdleTimeDetected(ExpiredMinutes)

Application.Quit acQuitSaveAll

End Sub

The problem is that it doesn't close access if the user is idle.
The form is set to open in an autoexec macro in edit and hidden modes.
Any idea on where I may have went wrong?

John V
 
I think you are making it a little harder than it needs to be.
I also think this line is causing the problem:
ExpiredMinutes = (ExpiredTime / 1000) / 60

Try this version:

Private Sub Form_Timer()
'IDLEMINUTES determines how much time to wait before
'running the IdleTimeDetected subroutine.
Const IDLEMINUTES As Long = 1

Static PervControlName As String
Static PrevFormName As String
Static ExpiredTime As Long

Dim ActiveFormName As String
Dim ActiveControlName As String

On Error Resume Next

'Get the active form and control name.

ActiveFormName = Screen.ActiveForm.Name
ActiveControlName = Screen.ActiveControl.Name

If ActiveFormName <> PrevFormName Or _
ActiveControlName <> PrevControlName Then
PrevControlName = ActiveControlName
PrevFormName = ActiveFormName
ExpiredTime = 0
Else
'...otherwise the user was idle during the time interval, so
'increment the total expired time.
ExpiredTime = ExpiredTime + 1
End If

'Does the total expired time exceed the IDLEMINUTES?
If ExpiredTime >= IDLEMINUTES Then
Docmd.Quit
End If
End Sub




--
Dave Hargis, Microsoft Access MVP


John V said:
I'm having problems with an idle user detect for.
I created an unbound blank form and set the form properties to:
On Timer.... [Event Procedure]
Timer Interval....1000
with the following code for the event procedure:

Option Compare Database

Private Sub Form_Timer()
'IDLEMINUTES determines how much time to wait before
'running the IdleTimeDetected subroutine.
Const IDLEMINUTES = 1

Static PervControlName As String
Static PrevFormName As String
Static ExpiredTime

Dim ActiveFormName As String

Dim ActiveControlName As String
Dim ExpiredMinutes

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
Else
'...otherwise the user was idle during the time 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

'...if so, then reset the expired time to zero...
ExpiredTime = 0
'... and call the IdleTimeDetected subroutine.
IdleTimeDetected ExpiredMinutes
End If
End Sub

Private Sub IdleTimeDetected(ExpiredMinutes)

Application.Quit acQuitSaveAll

End Sub

The problem is that it doesn't close access if the user is idle.
The form is set to open in an autoexec macro in edit and hidden modes.
Any idea on where I may have went wrong?

John V
Click to expand...
 
I tried your code and it didn't work either.
Does the form need to have a text box in it to record the expired time to?
 
You do not need a a check box. A static variable will suffice.
Describe "does not work"
 
I just added the code to my test database and got it working. There was one
syntax error. The Dim statement for ??? had a typo. Also, the time is
adding seconds and the constant was looking at minutes, so I changed it to
look at seconds. In the code as is, it is set to 60 (1 minute), so if you
want to give them 30 minutes, it would needa value of 1800. Here is the
corrected version:

'IDLESECONDS determines how much time to wait before
'running the IdleTimeDetected subroutine.
Const IDLESECONDS As Long = 60

Static PrevControlName As String
Static PrevFormName As String
Static ExpiredTime As Long

Dim ActiveFormName As String
Dim ActiveControlName As String

On Error Resume Next

'Get the active form and control name.

ActiveFormName = Screen.ActiveForm.Name
ActiveControlName = Screen.ActiveControl.Name

If ActiveFormName <> PrevFormName Or _
ActiveControlName <> PrevControlName Then
PrevControlName = ActiveControlName
PrevFormName = ActiveFormName
ExpiredTime = 0
Else
'...otherwise the user was idle during the time interval, so
'increment the total expired time.
ExpiredTime = ExpiredTime + 1
End If

'Does the total expired time exceed the IDLESECONDS?
If ExpiredTime >= IDLESECONDS Then
DoCmd.Quit
End If
 
It works now that I changed everything to reflect the time in seconds.
Thanks so much for your help

John
 
Back
Top