A detectar o tempo de inactividade do utilizador ou de inactividade no Access 2000

Voltar ao topo

Como criar o formulário DetectIdleTime

1. Criar um formulário em branco que não seja baseado em qualquer tabela ou consulta e o nome DetectIdleTime.
2. Definir as seguintes propriedades de formulário:

      OnTimer: [Event Procedure]
      TimerInterval: 1000
   						

   NOTA: indica a definição TimerInterval frequência (em milissegundos) a aplicação verifica por inactividade do utilizador. Uma definição de 1000 é igual a 1 segundo.
3. Defina a propriedade OnTimer para o seguinte procedimento de evento:

   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. Crie o seguinte procedimento no módulo de formulário:

   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
   
   					

Voltar ao topo

Como utilizar o formulário 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
				

Voltar ao topo