Displaying Query Progress Bar 2

[mbthaz]

I have a form where I have a command button that initiates 5 different update queries. What I would like to do since I hide the status bar in this database is display a progress bar on the form or in a popup box that shows the status of the query and a name that makes sense for the query. Below is my code for the button event. Any help is greatly appreciated.

Private Sub Command35_Click()
On Error GoTo Err_Command35_Click

Dim stDocName As String

stDocName = "Update Last Seven in Order Table"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Update Last Seven in Posted Table"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Update Last Seven in SCATS Error Table"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Update Posted Orders without Order Number"
DoCmd.OpenQuery stDocName, acNormal, acEdit
stDocName = "Update Posted Orders"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Command35_Click:
Exit Sub

Err_Command35_Click:
MsgBox Err.Description
Resume Exit_Command35_Click

End Sub

 

[razchip]

I have some sample progress bars that may be of benefit. I'll post the URL to get them.

 

[mbthaz]

Exactly what I had in mind, but how do I tie it to the status of the individual queries. I'd like to show two bars, one for the overall task progress(I can do that) and one for the individual queries(can figure out how to do that). Again, Thanks in advance

 

[razchip]

I posted thrazchipe progress bar file at

http://f2.pg.briefcase.yahoo.com/razchip

The file is located in the Access directory

Thanks for the help.
Greg

 

[patiya]

Greg,

The Folder

http://f2.pg.briefcase.yahoo.com/razchip

is empty. I can't copy the file.....