Display .gif while query is loading.

[DuMont]

Hi Guys,

I have a separate form in which I want to use as a loading screen for my users while the query loads on the other form. Now I can do this with text easy but not with a .gif

I have the loading form to

Private Sub Form_Timer()
 DoCmd.Close acForm, "Loading Screen", acSaveNo
DoCmd.OpenForm "Form1", acNormal

But it just stops the .gif and then runs the query before opening Form1.

Any ideas?

Thanks,

 

[vbaInet]

You'll need to use an ActiveX control for that.

How about using the Hour Glass (i.e. DoCmd.HourGlass)?

 

[DuMont]

I thought about that but doesn't look as good.

Which active x control would I use? I tried a couple of them like Microsoft Web Browser & Shockwave Flash Object - but neither of them gave me an option to set the control source to the .gif

 

[vbaInet]

This one here:

http://bytes.com/topic/access/answers/794959-animated-gif-ms-access-2003-a

 

[DuMont]

Well that's how I have it now - in a web browser control. But as soon as the timer goes off THEN it loads the query and halts the .gif :banghead:

 

[vbaInet]

What do you need the timer for?

 

[DuMont]

Well my intent was to have a secondary form as a loading screen which would be displayed first when they open the form1 - this loading screen would display a message & a .gif WHILE running the query for the form1. Once the query was finished loading it would then close the loading screen and open form1.

I figured by using the timer & calculating how long it takes to run the query - it would have worked how I wanted but wasn't the case.

 

[vbaInet]

The gif should be animated so I still don't understand why you need a timer. If your gif is an animated progress bar it doesn't need a timer and you won't need to know how long the query takes either.

If you want to show real-time progress then the action you're performing in the query needs to be done in a recordset.