Comment faire pour détecter les temps d'inactivité utilisateur ou d'inactivité dans Access 2000

Retour au début

Comment faire pour créer le formulaire DetectIdleTime

1. Créer un formulaire vide qui n'est pas basé sur n'importe quelle table ou requête et nommez-la DetectIdleTime.
2. Définissez les propriétés de formulaire suivantes :

      OnTimer: [Event Procedure]
      TimerInterval: 1000
   						

   Remarque : le paramètre TimerInterval indique la fréquence (en millisecondes) l'application vérifie l'inactivité de l'utilisateur. Une valeur de 1 000 est égale à 1 seconde.
3. Définissez la propriété OnTimer sur la procédure événementielle suivante :

   Sub Form_Timer()
      ' IDLEMINUTES determines how much idle time to wait for before
      ' running the IdleTimeDetected subroutine.
      Const IDLEMINUTES = 1
   
      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
   End Sub
   
   
   					

4. Créez la procédure suivante dans le module de formulaire :

   Sub IdleTimeDetected (ExpiredMinutes)
      Dim Msg As String
      Msg = "No user activity detected in the last "
      Msg = Msg & ExpiredMinutes & " minute(s)!"
      MsgBox Msg, 48
   End Sub
   
   					

Retour au début

Comment faire pour utiliser le formulaire DetectIdleTime

   Macro Name   Action
   ----------------------------
   AutoExec     OpenForm


   AutoExec Action Arguments
   ----------------------------
   OpenForm
   Form Name: DetectIdleTime
   View: Form
   Filter Name:
   Where Condition:
   Data Mode: Edit
   Window Mode: Hidden
				

Sub IdleTimeDetected (ExpiredMinutes)
   Application.Quit acSaveYes
End Sub
				

Retour au début