Nasýl yapýlýr: Kullanýcý Zamaný, boþta kalma veya Faaliyetsizlik nedeni, Access 2000'de Algýla

Üste

DetectIdleTime formu oluþturma

1. Bir tablo veya sorguyu temel boþ bir form oluþturun ve bu DetectIdleTime adlandýrýn.
2. Aþaðýdaki form özelliklerini ayarlayýn:

      OnTimer: [Event Procedure]
      TimerInterval: 1000
   						

   Not:Timerýnterval ayarýný uygulama sýklýðý (milisaniye cinsinden) gösterir kullanýcý Faaliyetsizlik Nedeni için denetler. 1 Saniye ayarý, 1000'e eþittir.
3. Aþaðýdaki olay yordamýna OnTimer özelliðini ayarlayýn:

   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. Aþaðýdaki yordam formu modülünde oluþturmak:

   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
   
   					

Üste

DetectIdleTime formu nasýl kullanýlýr?

   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
				

Üste