Displaying Message While Form Loads

[zevw]

This form that I"m loading takes 15 to 30 seconds to load, I am looking for a way to display a message to the user while its loading like every 5 second like this!

"Have Patience ... this will take a moment to load!"

The msgbox is not appropriate because it waits for user input what can I do to display something that will open and close every 5 seconds without user input?

Private Sub OpenRmPlan_Click()
On Error GoTo Err_OpenRmPlan_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    If Nz(Me!RoomNo, 0) = 0 Then
        Exit Sub
    End If
    
    DoCmd.RunCommand acCmdSaveRecord
    
    stDocName = "RoomPlan"
    
    stLinkCriteria = "[RoomNo]=" & Me![RoomNo]
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , Me.RoomNo

    MsgBox "Have Patience ... this will take a moment to load! click OK when you are ready.", vbOKOnly, "Patience ....."

Exit_OpenRmPlan_Click:
    Exit Sub

Err_OpenRmPlan_Click:
    MsgBox Err.Description
    Resume Exit_OpenRmPlan_Click
    
End Sub

 

[Andrzejek]

If that's the very first Form,
use Splash Form

Else
Create another small Form and display it before you show the other Form.

Have fun.

---- Andy

 

[zevw]

Thanks!

It works great!