Anmelden

Select the product you need help with

ACC: Wie Ermitteln von Benutzerleerlaufzeit oder Inaktivit�t

Artikel-ID: 128814 - Produkte anzeigen, auf die sich dieser Artikel bezieht

Hinweis: Dies ist ein maschinell �bersetzter Artikel.

Maschinell-�bersetzte und englische Version des Artikels nebenander anzeigen

Disclaimer zu nicht mehr gepflegten KB-Inhalten

Moderat: Erfordert grundlegende Kenntnisse in den Bereichen Makros, Programmierung und Interoperabilit�t.

Alles erweitern | Alles schlie�en

Dieser Artikel veranschaulicht eine Prozedur erstellen, die ausgef�hrt wird, wenn Microsoft Access-Anwendung Benutzereingaben f�r einen angegebenen Zeitraum nicht erkennen kann.

Dieser Artikel setzt voraus, dass Sie mit Visual Basic f�r Applikationen und mit dem Erstellen von Microsoft Access-Anwendungen mit Hilfe der in Microsoft Access enthaltenen Programmiertools vertraut sind. Weitere Informationen zu Visual Basic f�r Applikationen finden Sie im Handbuch "Building Applications".

Hinweis: Visual Basic f�r Applikationen (in Microsoft Access 7.0 und Microsoft Access 97 verwendet) wird Access Basic in Version 2.0 bezeichnet.

Hinweis: Dieser Artikel erkl�rt eine Technik, die in den Beispieldateien FrmSampl.exe (f�r Microsoft Access f�r Windows 95 Version 7.0) und FrmSmp97.exe (f�r Microsoft Access 97). Informationen dazu, wie Sie diese Beispieldateien erhalten finden Sie unter die folgenden Artikeln der Microsoft Knowledge Base:

150895

(http://support.microsoft.com/kb/150895/EN-US/ )

ACC95: Beispiel f�r Microsoft Access-Formulare im Download Center verf�gbar

175066

(http://support.microsoft.com/kb/175066/EN-US/ )

ACC97: Microsoft Access 97 Beispielformulare verf�gbar im Download Center

Zum Anfang | Ihr Feedback an uns

Weitere Informationen

So erstellen Sie das Formular DetectIdleTime

Erstellen Sie ein leeres Formular, das nicht auf einer Tabelle oder Abfrage basiert und nennen Sie es DetectIdleTime.
Legen Sie die folgenden Formulareigenschaften:
OnTimer: [Ereignisprozedur]
TimerInterval: 1000
Hinweis: Die TimerInterval Einstellung H�ufigkeit gibt (in Millisekunden) an, �berpr�ft die Anwendung f�r Inaktivit�t von Benutzern. Eine Einstellung von 1000 entspricht 1 Sekunde.

Geben Sie folgenden Code f�r die OnTimer-Eigenschaft-Ereignisprozedur:

Hinweis: In den folgenden Beispielcode wird ein Unterstrich (_) am Ende einer Zeile als ein Zeilenfortsetzungszeichen verwendet. Entfernen Sie den Unterstrich vom Ende der Zeile, wenn Sie diesen Code in Access Basic neu erstellen.

      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

Die folgende Prozedur im Modul Formulars zu erstellen:

       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

So verwenden Sie das Formular DetectIdleTime

Erstellen Sie DetectIdleTime Formular ausblenden, wenn die Anwendung �ffnet, das folgende AutoExec-Makro:

   Macro Name   Action
   ---------------------
   AutoExec     OpenForm

   AutoExec Actions
   ----------------------------
   OpenForm:
      Form Name: DetectIdleTime
      View: Form
      Filter Name:
      Where Condition:
      Data Mode: Edit
      Window Mode: Hidden

Sie k�nnen die IdleTimeDetected Prozedur so, dass die Prozedur ausgef�hrt, wird ist keine Benutzeraktivit�t des Zeitraums in der Konstante Wert IDLEMINUTES angegebenen Code hinzuf�gen. Angenommen, Sie verf�gen �ber Microsoft Access die folgende Ereignisprozedur zu beenden:

In Microsoft Access 7.0 und 97:

   Sub IdleTimeDetected (ExpiredMinutes)
      Application.Quit acSaveYes
   End Sub

In Microsoft Access 2.0:

   Sub IdleTimeDetected (ExpiredMinutes)
      Application.Quit A_SAVE
   End Sub

diese Prozedur bewirkt, dass Microsoft Access die Anwendung, speichern alle Objekte ohne Anzeigen eines Dialogfelds zu beenden.

Zum Anfang | Ihr Feedback an uns

Informationsquellen

Weitere Informationen �ber das Timer-Ereignis finden Sie in der Hilfe f�r Timer-Ereignis .

Zum Anfang | Ihr Feedback an uns

Eigenschaften

Artikel-ID: 128814 - Ge�ndert am: Freitag, 19. Januar 2007 - Version: 2.3

Die Informationen in diesem Artikel beziehen sich auf:

Microsoft Access 2.0 Standard Edition
Microsoft Access 95 Standard Edition
Microsoft Access 97 Standard Edition

kbmt kbhowto kbprogramming kbusage KB128814 KbMtde

Maschinell �bersetzter Artikel

Wichtig: Dieser Artikel wurde maschinell und nicht von einem Menschen �bersetzt. Die Microsoft Knowledge Base ist sehr umfangreich und ihre Inhalte werden st�ndig erg�nzt beziehungsweise �berarbeitet. Um Ihnen dennoch alle Inhalte auf Deutsch anbieten zu k�nnen, werden viele Artikel nicht von Menschen, sondern von �bersetzungsprogrammen �bersetzt, die kontinuierlich optimiert werden. Doch noch sind maschinell �bersetzte Texte in der Regel nicht perfekt, insbesondere hinsichtlich Grammatik und des Einsatzes von Fremdw�rtern sowie Fachbegriffen. Microsoft �bernimmt keine Gew�hr f�r die sprachliche Qualit�t oder die technische Richtigkeit der �bersetzungen und ist nicht f�r Probleme haftbar, die direkt oder indirekt durch �bersetzungsfehler oder die Verwendung der �bersetzten Inhalte durch Kunden entstehen k�nnten.

Den englischen Originalartikel k�nnen Sie �ber folgenden Link abrufen: 128814

(http://support.microsoft.com/kb/128814/en-us/ )

Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verf�gung. Microsoft �bernimmt keinerlei Gew�hrleistung daf�r, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erw�nschten Ergebnisse erzielen. Die Entscheidung dar�ber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung f�r Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.

Disclaimer zu nicht mehr gepflegten KB-Inhalten

Dieser Artikel wurde f�r Produkte verfasst, f�r die Microsoft keinen Support mehr anbietet. Der Artikel wird deshalb in der vorliegenden Form bereitgestellt und nicht mehr weiter aktualisiert.

Zum Anfang | Ihr Feedback an uns