SysCmd 'overwritten' by make-table query

[Joel Wiseheart]

I have a database that runs several make-table queries to
refresh the associated data tables. I tried to use the
following SysCmd statement to set the text in the status
bar. It works great....

Public Sub RunQuery()

Dim db As DAO.Database
Dim qry As DAO.QueryDef
Dim strMessage As String

Set db = CurrentDb

For Each qry In db.QueryDefs
strMessage = "Now running: " & qry.Name
SysCmd acSysCmdSetStatus, strMessage
DoCmd.OpenQuery qry.Name
Next

SysCmd acSysCmdClearStatus

End Sub

....except.....

as soon as the query actually starts running (these
queries take a while to run), it resets the status bar
text and progress meter with the default "Run Query" text,
and the status of the current query.

Is there a way to suppress the default "Run Query" status
bar text and progress meter?

Thanks!

 

[david epsom dot com dot au]

you may use
db.execute qry.name

(david)