Running queries update text box on form

[Starke]

I have some code written and it works fine, except the lines that
update the form text box. I want to update the text box to let the
user know what qry is executing. If I take out the

Docmd.setwarnings line, it updates fine,but the user has to click yes
2 times due to them being make table queries.

Code below:

Me.txtStatus.Value = "Processing: qry66400aIRHebron"

DoCmd.SetWarnings False
DoCmd.OpenQuery "qry66400aIRHebron", acViewNormal,
acReadOnly
DoCmd.SetWarnings True

Me.txtStatus.Value = "Processing: qryAdidas1Receiving"
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryAdidas1Receiving", acViewNormal,
acReadOnl
DoCmd.SetWarnings True

I have tried the above, and tried to move the docmd.setwarnings to the
very beinging and end but nothing works... any ideas?

Thanks,

Dave

[Tom van Stiphout]

On 8 May 2007 11:29:29 -0700, Starke <st********@hotmail.comwrote:

Add a:
DoEvents
call after setting txtStatus, so the screen can be repainted.

Other less drastic options include:
* Check out the Repaint method
* Use the Statusbar (see help file on SysCmd) which has repainting
built-in

-Tom.

>I have some code written and it works fine, except the lines that
update the form text box. I want to update the text box to let the
user know what qry is executing. If I take out the

Docmd.setwarnings line, it updates fine,but the user has to click yes
2 times due to them being make table queries.

Code below:

Me.txtStatus.Value = "Processing: qry66400aIRHebron"

DoCmd.SetWarnings False
DoCmd.OpenQuery "qry66400aIRHebron", acViewNormal,
acReadOnly
DoCmd.SetWarnings True

Me.txtStatus.Value = "Processing: qryAdidas1Receiving"
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryAdidas1Receiving", acViewNormal,
acReadOnl
DoCmd.SetWarnings True

I have tried the above, and tried to move the docmd.setwarnings to the
very beinging and end but nothing works... any ideas?

Thanks,

Dave