Hallo Zusammen,
folgendes Problem: Ich habe ein Formular, auf dem sich zwei Unterformulare befinden. Das Formular soll die ganze Zeit auf einem Bildschirm angezeigt werden und sich ca. aller 6 Sekunden aktualisieren (das erste Unterformular). Nach vielleicht fünf Minuten soll das erste UF ausgeblendet und das zweite UF für vielleicht 30 Sek. eingeblendet werden. Danach soll wieder das erste UF erscheinen. Wie kann ich das realisieren?
Viele Grüße von Beate
Hallo Beate,
folgendes Problem: Ich habe ein Formular, auf dem sich zwei
Unterformulare befinden. Das Formular soll die ganze Zeit auf
einem Bildschirm angezeigt werden und sich ca. aller 6
Sekunden aktualisieren (das erste Unterformular).
Hauptformular:
Ereignis -> Bei Zeitgeber: Ereignisprozedur erstellen:
z.B. Me.UFO1NAME.requery
Ereignis -> Zeitgeberintervall = 360 (6 Sekunden * 60 Millisekunden)
Nach vielleicht fünf Minuten soll das erste UF ausgeblendet und das
zweite UF für vielleicht 30 Sek. eingeblendet werden. Danach
soll wieder das erste UF erscheinen. Wie kann ich das
realisieren?
erstmal im Kopf der Prozedurliste folgendes eintragen:
Option Compare Database
Option Explicit
Public StartUFO1 'Variable über Funktionen/Prozeduren hinweg PUBLIC
Public StartUFO2 'Variable über Funktionen/Prozeduren hinweg PUBLIC
dann:
Private Sub Form_Load()
StartUFO1 = now 'Zeit vorbelegen
StartUFO2 = now 'Zeit vorbelegen
me.UFO1name.visible = TRUE ’ erst mal einschalten
me.UFO2name.visible = False ’ erst mal ausschalten
end sub
Private Sub Form_Timer() 'Timer steht ja auf 6 Sekunden
Me.UFO1NAME.requery 'UFO1 alle 6 Sekunden aktualisieren
if Me.UFO1name.Visible = True then
'gilt nur, wenn das Formular sichtbar ist
'wenn 5 Minuten um sind
If DateDiff(„n“, StartUFO1, Now, vbUseSystemDayOfWeek) > 5 Then
Me.UFO1name.Visible = flase 'UFO1 auschalten
Me.UFO2name.Visible = True 'UFO2 einschalten
StartUFO2 = now 'neu vorbelegen
End If
else
StartUFO1 = now 'neu vorbelegen
endif
End Sub
'###########################
'Im UFO2 bei Timer:
'###########################
Private Sub Form_Timer() 'Timerintervall auf 60 einstellen
if Me.UFO2name.Visible = True then
'gilt nur, wenn das Formular sichtbar ist
'wenn 30 Sekunden um sind
If DateDiff(„s“, StartUFO2, Now, vbUseSystemDayOfWeek) > 30 Then
Me.UFO1name.Visible = True 'UFO1 einchalten
Me.UFO2name.Visible = False 'UFO2 ausschalten
StartUFO1 = now 'neu vorbelegen
End If
else
StartUFO2 = now 'neu vorbelegen
endif
End Sub
Die Funktionen/Prozeduren sind nicht getestet, aber du hast jetzt schon mal den Ansatz, wie es funktionieren sollte.
Grüße aus Essen
Wolfgang