So klappt es auf einer einzelnen Form das z.B. wenn keine Eingabe mehr Erfolgt eine gewünschte Anweisung ausgeführt wird.
Wie kann ich das per Modul so erweitern dass das auch von der MDI Form mit mehreren Formen funktioniert.
Wenn ich das auf jeder Form habe dann gehts so nicht weil dann z.B die MDI nicht mehr aktiv ist usw.
Wer kann da mal aushelfen?
Gruß Harry
Option Explicit
Private Const GCmaxDuration = 3
Private GdateLastInput As Date
Private Sub Command1_Click()
GdateLastInput = Now
End Sub
Private Sub Form_Load()
Me.Timer1.Interval = 3000
Me.Timer1.Enabled = True
GdateLastInput = Now
End Sub
Private Sub Timer1_Timer()
If Now > DateAdd("s", GCmaxDuration, GdateLastInput) Then
MsgBox " hat zu lange gedauert"
End If
End Sub
