User Idle Time Form (2nd post) WestWingFan 12/26/2008 5:33:01 PM Sorry, my computer cannot find my original post on this. So, here goes again. I have a form to detect user idle time - adopted from 'from http://support.microsoft.com/?id=210297. It works just fine. My only problem is that I have users that are in one form and often using the same control for more than 20 minutes. The record should be changing. I tried to adapt the code (below) to set a bookmark on the record, in the same way it is setting the "active" form. To no avail. Any ideas? Thanks in advance! Private Sub Form_Timer() ' IDLEMINUTES determines how much idle time to wait for before ' running the IdleTimeDetected subroutine. Const IDLEMINUTES = 20 Static PrevControlName 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 'from http://support.microsoft.com/?id=210297 End Sub

Re: User Idle Time Form (2nd post) Tom van Stiphout <tom7744.no.spam[ at ]cox.net> 12/26/2008 6:15:37 PM On Fri, 26 Dec 2008 09:33:01 -0800, WestWingFan <WestWingFan[ at ]discussions.microsoft.com> wrote: I wouldn't use the Bookmark, but the value of the PK field. So to the static variables add one for the Pk Value, and compare it with the current value. -Tom. Microsoft Access MVP [Quoted Text] >Sorry, my computer cannot find my original post on this. So, here goes again. > >I have a form to detect user idle time - adopted from 'from >http://support.microsoft.com/?id=210297. It works just fine. My only problem >is that I have users that are in one form and often using the same control >for more than 20 minutes. The record should be changing. I tried to adapt the >code (below) to set a bookmark on the record, in the same way it is setting >the "active" form. To no avail. Any ideas? > >Thanks in advance! > <clip>