Das Automatische Schließen Von Formular Nach Einer Bestimmten Idle-Zeit

Ich habe ein bisschen Probleme auf meinem access-Formular.

Ich habe 2 Formulare:

  • Menü-form
  • Eingabe-Formular

Nach Eingabe-Formular wurde im Leerlauf für eine minute, ich möchte, um es zu schließen und gehen Sie zurück zu dem Menü-form.

Dies ist mein code, der nicht funktioniert.

Public ExpireTime    As Date  'expiration time-date value

Sub ResetExpiration()             

    If ExpireTime <> 0 And ExpireTime > Now Then
        Application.OnTime ExpireTime, "FormExpire", schedule:=False
    End If

    ExpireTime = Now + 1 / 1440#    

    Application.OnTime ExpireTime, "FormExpire", schedule:=True

End Sub

Ich auch ein makro erstellt, mit diesem an.

Sub FormExpire()
   Unload input-form
End Sub
InformationsquelleAutor jake | 2014-05-30
  1. 1

    Müssen Sie die form.Timer auf 60000 (1 minute) dann auf OnTimer Ereignis, um zu überprüfen, ob einige Eigenschaften geändert haben. Unten habe ich schnell etwas schrieb, um Ihnen eine Idee geben, aber es ist nicht abgeschlossen, noch getestet. 

    Option Compare Database
Option Explicit

Dim isIdle As Boolean


Private Sub Form_LostFocus()
    'you can use this event also
End Sub


Private Sub Form_Timer()
    Dim ctlName As String, wasDirty As Boolean
    If ctlName = vbNullString Then ctlName = Me.ActiveControl.Name
    If Me.ActiveControl <> ctlName Then isIdle = False
    If wasDirty <> Me.Dirty Then isIdle = False
    'more checks....
    If isIdle Then DoCmd.Close acForm, Me.Name
End Sub
    InformationsquelleAutor Patrick Honorez
  2. 0

    Hast du ein paar potenzielle Probleme hier.
    In Erster Linie, das ist nicht, wie Sie ein Formular schließen.

    Diese:

    Sub FormExpire()
   Unload input-form
End Sub

    Aussehen sollte so etwas wie dieses:

    Sub FormExpire()
    DoCmd.Close acform, Me.Name
    DoCmd.OpenForm "menu-form"
End Sub

    Ihre zweite Problem ist, dass ich glaube nicht, dass die Application.Ontime Methode ist von Access. MSDN sagt, es ist eine Excel-Funktion, und ich kann ihn nicht finden in der Access-Dokumentation. Ich würde persönlich interessieren, sehen Sie Ihre Methode der Arbeit mit den Access-Formular ein Timer-Ereignis.

    Ich bin nicht sicher, ob es eine Rolle spielt, aber ich denke, das ist, was Sie versuchen zu tun. 

    Public ExpireTime    As Date  'expiration time-date value

Private Sub InputForm_Timer()             

    If ExpireTime <> 0 And ExpireTime > Now Then
        Call FormExpired
    Else
        ' reset timer
        ExpireTime = Now + 1 / 1440#             
    End If

End Sub

    Ich bin nicht sicher, ob diese Methode funktionieren würde, ohne auch @iDevelop ist Antwort. Ich wollte nur helfen, zu klären, wo Sie waren, die falsch gehen.

    InformationsquelleAutor RubberDuck
Schreibe einen Kommentar