Welcome Message? (1 Viewer)

[connordrew]

I have created a form which I want to use as a welcome message.

It is simply called form 1 and if the database is opened, I want form1 to be displayed for about 10seconds.

Thanx

 

[llkhoutx]

The form Timer Interval (thousanths of a second) property and OnTimer event is what you want.

For an open form (whether hidden or not) the OnTimer event is executed at each occurrence of the Timer Interval.

 

[a.sinatra]

Private Sub Form_Load()
    Me.TimerInterval = 3200
    DoCmd.Hourglass True
End Sub

Private Sub Form_Timer()

    If Me.TimerInterval <> 0 Then
        Me.TimerInterval = 0
    End If
    
    DoCmd.Hourglass False
    DoCmd.Close
    DoCmd.OpenForm "frmMain"
End Sub

________
THINKMILL