ACC: 如何检测用户空闲时间或 $ 不活动状态

文章翻译 文章翻译
文章编号: 128814 - 查看本文应用于的产品
中等: 要求基本的宏、 编码,和互操作技能。
展开全部 | 关闭全部

本文内容

概要

本文介绍如何创建一个过程,如果 Microsoft Access 应用程序在一段指定的时间内未检测到任何用户输入,将运行该过程。

本文假定您熟悉 Visual Basic 应用程序的使用和创建 Access 应用程序使用提供的 Microsoft Access 的编程工具。有关 Visual Basic 应用程序的详细信息,请参阅建立应用程序手册。

注: 为应用程序 (在 Microsoft Access 7.0 和 Microsoft Access 97 中使用) 的 Visual Basic 称为访问基本 2.0 版中。

注: 本文介绍一种 FrmSampl.exe (对于 Windows 95 7.0 版的 Microsoft Access) 和 (对于 Microsoft Access 97) FrmSmp97.exe 示例文件中所述的技术。有关如何获得这些示例文件,请参阅下列文章 Microsoft 知识库中相应的信息:
150895ACC95: Microsoft Access 示例表单可用在下载中心
175066ACC97: Microsoft Access 97 示例表单可用在下载中心

更多信息

如何创建 DetectIdleTime 窗体

  1. 创建不基于任何表或查询的一个空白窗体并将其命名 DetectIdleTime。
  2. 设置以下窗体属性,请执行下列操作:
    OnTimer: [事件过程]
    TimerInterval: 1000年
    注: 用户处于非活动状态的应用程序检查的 TimerInterval 设置表示时间间隔 (以毫秒为单位)。设置为 1000年等于 1 秒。
  3. 为 OnTimer 属性的事件过程中输入下面的代码:

    注: 下面的示例代码在行尾处的下划线 (_) 用作行继续符。重新创建此代码中访问基本时,请从行的末尾中移除下划线。
          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
    
             ' 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. 在窗体模块中创建以下过程:
           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
    						

如何使用 DetectIdleTime 窗体

若要打开应用程序时,请隐藏 DetectIdleTime 窗体,创建以下 AutoExec 宏:
   Macro Name   Action
   ---------------------
   AutoExec     OpenForm

   AutoExec Actions
   ----------------------------
   OpenForm:
      Form Name: DetectIdleTime
      View: Form
      Filter Name:
      Where Condition:
      Data Mode: Edit
      Window Mode: Hidden
				
可以将代码添加到 IdleTimeDetected 过程中,以使该过程运行,如果没有用户活动的 IDLEMINUTES 常量值中指定的时间量。例如对于您可能具有与以下事件过程中退出 Microsoft Access:

在 Microsoft Access 7.0 和 97:
   Sub IdleTimeDetected (ExpiredMinutes)
      Application.Quit acSaveYes
   End Sub
				
在 Microsoft Access 2.0:
   Sub IdleTimeDetected (ExpiredMinutes)
      Application.Quit A_SAVE
   End Sub
				
此过程使 Microsoft Access 以退出应用程序而不会显示一个对话框,保存所有对象。

参考

有关计时器事件的详细信息,搜索 Timer 事件 在帮助目录。

属性

文章编号: 128814 - 最后修改: 2007年1月19日 - 修订: 2.3
这篇文章中的信息适用于:
  • Microsoft Access 2.0 标准版
  • Microsoft Access 95 标准版
  • Microsoft Access 97 标准版
关键字:?
kbmt kbhowto kbprogramming kbusage KB128814 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 128814
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
不再更新的 KB 内容免责声明
本文介绍那些 Microsoft 不再提供支持的产品。因此本文按“原样”提供,并且不再更新。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com