arnelgp
..forever waiting... waiting for jellybean!
- Local time
- Tomorrow, 05:41
- Joined
- May 7, 2009
- Messages
- 20,361
Private Sub Form_Current()
Dim dWait As Variant
DoCmd.OpenForm "frmSplashScreen"
dWait = DateAdd("s", 10, Time())
While Time() < dWait
DoEvents
Wend
DoCmd.Close acForm, "frmSplashScreen"
DoCmd.OpenForm "frmMenu"
End Sub
why do you want it run in the Form's current event?
Dim dWait As Variant
DoCmd.OpenForm "frmSplashScreen"
dWait = DateAdd("s", 10, Time())
While Time() < dWait
DoEvents
Wend
DoCmd.Close acForm, "frmSplashScreen"
DoCmd.OpenForm "frmMenu"
End Sub
why do you want it run in the Form's current event?
