Splash Form

[CLOS]

I need some help or suggestions!

I have 50-plus queries that makes tables. What I want to do is run these queries when the application first open up, but put out a message to the user saying that "The user tables are being loaded". Then display the splash form. How do I handle this action? I need an expert to help me on this one, thanks.

 

[papparuff]

When I do this, I like the user to know how the process is going. I create a splash screen and place a textbox on it. This textbox will display a message on how the process is running. In the Splash Screen's On Open Event I would have the following code:

Private Sub Form_Open(Cancel As Integer)

Dim intCount As Integer
Dim intTotalCount As Integer

intTotalCount = 50

intCount = 1
txtMsg = "Creating Table " & intCount & " of " & intTotalCount
DoEvents
DoCmd.OpenQuery ("qryMakeTable1&quot

intCount = intCount + 1
txtMsg = "Creating Table " & intCount & " of " & intTotalCount
DoEvents
DoCmd.OpenQuery ("qryMakeTable2&quot

intCount = intCount + 1
txtMsg = "Creating Table " & intCount & " of " & intTotalCount
DoEvents
DoCmd.OpenQuery ("qryMakeTable3&quot

' and so forth for all the tables being made

End Sub
John Ruff - The Eternal Optimist

 

[CLOS]

John Ruff,

Thank you for this information, it is very useful and it works. Thanks so much.