Progess Bar

[Anthony Viscomi]

I have the following portion or code that runs a number of Update Queries
and I would like to give the user(s) something visual (i.e. Progess Bar)
while the queries are running.

Function Update_XLS()
Dim dbCurr As DAO.Database
Dim qryCurr As DAO.QueryDef

Set dbCurr = CurrentDb()
For Each qryCurr In dbCurr.QueryDefs
With qryCurr
If Right$(.Name, 4) = "_XLS" Then
.Execute dbFailOnError

End If
End With
Next qryCurr

Set dbCurr = Nothing

I know that Access has an AcitiveX Contol, but I am clueless on how to
implement it.

Thanks
Anthony

 

[Albert D. Kallal]

Take a look at my wordmerge download. It has a sample progress bar you can
try:

http://www.attcanada.net/~kallal.msn/msaccess/msaccess.html