Hourglass

[Tieval]

I have a welcome form that closes on a timer event and then opens another form, prior to opening the form it has to run a very slow query.

Private Sub Form_Timer()
DoCmd.Close
DoCmd.OpenForm "Scan Data", acNormal, "", "", , acNormal

I would like to change the mouse or stick up a message whilst loading but cannot get anything to trigger right. For example:

Private Sub Form_Timer()
DoCmd.Close
DoCmd.HourGlass True
DoCmd.OpenForm "Scan Data", acNormal, "", "", , acNormal

Changes to an hourglass once the form has loaded.

Any suggestions would be greatly appreciated.

 

[isladogs]

Add the line DoEvents before the form open line

 

[missinglinq]

I would load DoCmd.OpenForm "Scan Data" first (letting it start loading its data) with its Visibility Property set to No/False, then open your splash screen, then set Visibility of "Scan Data" to Yes/True when you close the splash screen.

BTW, your last parameter

DoCmd.OpenForm "Scan Data", acNormal, "", "", , acNormal

is not a valid choice for this parameter. You mean, I suspect, acWindowNormal!

Linq ;0)>

 

[Tieval]

Many thanks missinglinq, you got me thinking.

I see now the simple logic of loading from the start but cannot get it to work due to a similar problem. If I set the form to open invisible in the on load code of the welcome screen the welcome screen does not load until the other form has done it's bit, e.g. I have moved my pause to the beginning.

 

[Tieval]

Actually I just did it in the autoexec macro, many thanks for your help