need a little show while waiting -- pregress bar?

[JR]

I now have a form, with the help of a couple of fine folks
in this newsgroup -- I appreciate it, that works just fine
BUT could use a little dressing up.

The form executes 20 queries to build/append a table. The
process takes a while (>2 min.) and as a result the form
could benefit from a little annimation along the lines of
a progress bar or hour glass -- or whatever.

I have looked arround in my books and haven't been able to
find anything there.

I tried the following:

Private Sub Command37_Click()

If MsgBox("This'll take a while." & vbCrLf & vbCrLf & "The
table will open when finished.", vbOKCancel) <> vbCancel
Then


UP
Box40.Visible = True
Box41.Visible = True
Box42.Visible = True
Box43.Visible = True
Box44.Visible = True
END
Box45.Visible = True
Box46.Visible = True
Box47.Visible = True
Box48.Visible = True
Box49.Visible = True
Exp
Off


DoCmd.OpenTable "Results Normalized"
End If


End Sub

but the boxes do not show until the end -- which is not
what I had in mind. -- they should show the progress of
the queries in batches of 5.


Does anyone out there have a solution?

 

[Fred Boer]

Dear JR:

You might find Sandra Daigle's progress meter helpful:

http://www.daiglenet.com/MSAccess.htm

HTH
Fred Boer