Zeitscript

[Steffen]

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

[Viennamade]

Hallo!

Do While (AktuelleZeit <> Zielzeit)

Also ich hielte anstatt des <> ein <= angebrachter.

Beste Grüße
Viennamade