I'm running Access 2002, and some of my users are running 2007. (The following errors, once accepted do not seem to impede any functioning in the database.)
They are experiencing a new behavior when they open the front end I send them, and that is the popup of several error messages on the order of:
...missing or broken reference to the file 'gwdpk.ocx'
and a complaint about the On Timer property I have in a "dummy" form that loads and manages activity. The code called from that property (Timer Interval is set to 1000) is:
Any idea what's going on and how I can fix it? I don't have access to 2007 for my development/testing (no 2002 users get these errors), so I'm sort of in the dark with this.
They are experiencing a new behavior when they open the front end I send them, and that is the popup of several error messages on the order of:
...missing or broken reference to the file 'gwdpk.ocx'
and a complaint about the On Timer property I have in a "dummy" form that loads and manages activity. The code called from that property (Timer Interval is set to 1000) is:
Code:
Sub Form_Timer()
' IDLEMINUTES determines how much idle time to wait for before
' running the IdleTimeDetected subroutine.
Const IDLEMINUTES = 5
Static PrevControlName As String
Static PrevFormName As String
Static ExpiredTime
Dim ActiveFormName As String
Dim ActiveControlName As String
Dim ExpiredMinutes
On Error Resume Next
' Check for activity only after the work day is over
If Time > #5:00:00 PM# Then
' 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 If
End Sub
Comment