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 事件 在帮助目录。

警告:本文已自动翻译

属性

文章 ID:128814 - 上次审阅时间:12/04/2015 11:14:45 - 修订版本: 2.3

Microsoft Access 2.0 标准版, Microsoft Access 95 标准版, Microsoft Access 97 标准版

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming kbusage KB128814 KbMtzh
反馈