User Idle Time Form WestWingFan 12/26/2008 4:07:00 PM I've added the User Idle Time code and form from: http://support.microsoft.com/?id=210297. It works great, with one little problem. It is common for my users to have the same form and same control for a fair amount of time, but not the same record. Any ideas about how to do this? I tried adapting the code (shown below) to use the bookmark property to see if the user has changed records, but it is not working (when I change records and nothing else, the idletimedetected subroutine still fires. Any ideas? Thanks in advance for your help! Private Sub Form_Timer() ' IDLEMINUTES determines how much idle time to wait for before ' running the IdleTimeDetected subroutine. Const IDLEMINUTES = 1 Static PrevRecordNum As String Static PrevControlName As String Static PrevFormName As String Static ExpiredTime Dim ActiveFormName As String Dim ActiveControlName As String Dim ActiveRecordNum 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 ActiveRecordNum = Screen.ActiveForm.RecordsetClone.Bookmark If Err Then ActiveRecordNum = "No Active Record" 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) _ Or (ActiveRecordNum <> PrevRecordNum) Then PrevControlName = ActiveControlName PrevFormName = ActiveFormName PrevRecordNum = ActiveRecordNum 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 Tom van Stiphout <tom7744.no.spam[ at ]cox.net> 12/26/2008 4:36:42 PM On Fri, 26 Dec 2008 08:07:00 -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] >I've added the User Idle Time code and form from: >http://support.microsoft.com/?id=210297. It works great, with one little >problem. It is common for my users to have the same form and same control for >a fair amount of time, but not the same record. Any ideas about how to do >this? I tried adapting the code (shown below) to use the bookmark property to >see if the user has changed records, but it is not working (when I change >records and nothing else, the idletimedetected subroutine still fires. Any >ideas? > >Thanks in advance for your help! > >Private Sub Form_Timer() > ' IDLEMINUTES determines how much idle time to wait for before > ' running the IdleTimeDetected subroutine. > Const IDLEMINUTES = 1 > > Static PrevRecordNum As String > Static PrevControlName As String > Static PrevFormName As String > Static ExpiredTime > > Dim ActiveFormName As String > Dim ActiveControlName As String > Dim ActiveRecordNum 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 > > ActiveRecordNum = Screen.ActiveForm.RecordsetClone.Bookmark > If Err Then > ActiveRecordNum = "No Active Record" > 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) _ > Or (ActiveRecordNum <> PrevRecordNum) Then > PrevControlName = ActiveControlName > PrevFormName = ActiveFormName > PrevRecordNum = ActiveRecordNum > 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 WestWingFan 12/26/2008 8:56:00 PM Tom, Sorry for the delayed reply - computer is acting funny about my msgs. I'd considered using the PK field, but don't know how to get this form (which is running in the background) to pull it correctly. Sorry, I'm mostly self-taught coding so this may be completely obvious, but I don't know how to do it. Thanks! "Tom van Stiphout" wrote: [Quoted Text] > On Fri, 26 Dec 2008 08:07:00 -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 > > > >I've added the User Idle Time code and form from: > >http://support.microsoft.com/?id=210297. It works great, with one little > >problem. It is common for my users to have the same form and same control for > >a fair amount of time, but not the same record. Any ideas about how to do > >this? I tried adapting the code (shown below) to use the bookmark property to > >see if the user has changed records, but it is not working (when I change > >records and nothing else, the idletimedetected subroutine still fires. Any > >ideas? > > > >Thanks in advance for your help! > > > >Private Sub Form_Timer() > > ' IDLEMINUTES determines how much idle time to wait for before > > ' running the IdleTimeDetected subroutine. > > Const IDLEMINUTES = 1 > > > > Static PrevRecordNum As String > > Static PrevControlName As String > > Static PrevFormName As String > > Static ExpiredTime > > > > Dim ActiveFormName As String > > Dim ActiveControlName As String > > Dim ActiveRecordNum 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 > > > > ActiveRecordNum = Screen.ActiveForm.RecordsetClone.Bookmark > > If Err Then > > ActiveRecordNum = "No Active Record" > > 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) _ > > Or (ActiveRecordNum <> PrevRecordNum) Then > > PrevControlName = ActiveControlName > > PrevFormName = ActiveFormName > > PrevRecordNum = ActiveRecordNum > > 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 Tom van Stiphout <tom7744.no.spam[ at ]cox.net> 12/27/2008 2:40:38 AM On Fri, 26 Dec 2008 12:56:00 -0800, WestWingFan <WestWingFan[ at ]discussions.microsoft.com> wrote: I am assuming the form is bound to a query or a table, via the Form.RecordSource property. If so, you need to make sure the PK is part of the query (if you used a table it obviously already is), and then put that field on the form. -Tom. Microsoft Access MVP [Quoted Text] >Tom, > >Sorry for the delayed reply - computer is acting funny about my msgs. I'd >considered using the PK field, but don't know how to get this form (which is >running in the background) to pull it correctly. Sorry, I'm mostly >self-taught coding so this may be completely obvious, but I don't know how to >do it. > >Thanks! > <clip>

User Idle Time Form WestWingFan 12/29/2008 2:48:00 PM Tom, I hope this gets through. I've never had such trouble tracking down and replying to a post before. I do have a PK on the forms in question. The visible property is set to False on most of them, because the users don't need to change it. (I don't know if that's important or not, but figure it can't hurt to pass along.) What's the next step? Thanks for your help on this.