Bagaimana mendeteksi waktu Idle pengguna atau tidak aktif di Access 2000

Kembali ke atas

Cara membuat bentuk DetectIdleTime

1. Membuat bentuk kosong yang tidak didasarkan pada meja atau permintaan dan nama DetectIdleTime.
2. Mengatur properti formulir berikut:

      OnTimer: [Event Procedure]
      TimerInterval: 1000
   						

   CATATAN: The TimerInterval pengaturan menunjukkan seberapa sering (dalam milidetik) aplikasi cek untuk pengguna tidak aktif. Pengaturan 1000 sama dengan 1 detik.
3. Menetapkan OnTimer properti untuk acara prosedur berikut:

   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. Membuat prosedur berikut dalam formulir modul:

   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
   
   					

Kembali ke atas

Cara menggunakan formulir 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
				

Kembali ke atas