How can I program an "activity indicator"

[John Southern]

The VBA program i am working on has a lot of activity such as a series of queries and then subsequent manipulation of the data. When this is all happening the screen is essentialy blank. I would like to produce something that would reassure the user that he hasn't been forgotten. I am thinking of something like the revolving cursor or the horizontal "thermometers" often seen in windows programs.
All my efforts have foundered on the realisation that I am asking the computer to do two things at once, ie run the vba code and the indicator.
So a message box is no good, it has to be dismissed before the program can continue.
I have searched for code fragments, but with no luck so far. Can any one help please.


John

[RuralGuy]

You can put up your own "Please Wait" form and dismiss it when you are done. You can update a thermometer only between queries.

[John Southern]

RuralGuy
I have tried that as follows

 
Private Sub Command21_Click()
DoCmd.OpenForm "FrmWait"
flag = "Hist"
Text27.Value = flag
GetHistData (flag)
DoCmd.CloseForm "FrmWait"
End Sub

I just get a runtime error "Compile error Method or Data member not found"
And of course when I checked, DoCmd.CloseForm does not exist.
Thanks for your interest
John

[RuralGuy]

Try:
DoCmd.Close acForm, "FrmWait", acSaveNo

[John Southern]

Thank you for your help. That works fine.
Thread marked as solved
John

[RuralGuy]

Great! Glad we could help.