nicht angemeldet
Hi,
ich möchte etwa ein Formular 2 Sekunden erscheinen Lassen und danach wird dies geschlossen und ein neues geöffnet.
Habe das bisher so gelöst:
Private Sub Form_Current()
Dim AktuelleZeit As Date
Dim Zielzeit As Date
AktuelleZeit = Time
Zielzeit = AktuelleZeit + 0.00002314
Do While (AktuelleZeit <> Zielzeit)
AktuelleZeit = Time
If AktuelleZeit = Zielzeit Then
DoCmd.OpenForm "frm_Auswahl"
DoCmd.Close acForm, "frm_test"
End If
Loop
End Sub
So. Hab mir mal Zielzeit und AktuelleZeit ausgeben lassen. Es stimmt alles. Zielzeit ist genau um 2 Sekunden größer als AktuelleZeit. Wenn AktuelleZeit GENAU gleich ist wie Zielzeit wird trotzdem nich das formular geöffnet und das aktuelle geschlossen. Anstatt entsteht eine Endlosschleife ... warum? :(
mfg Steffen