By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,022 Members | 856 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,022 IT Pros & Developers. It's quick & easy.

Running queries update text box on form

P: n/a
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

May 8 '07 #1
Share this Question
Share on Google+
1 Reply


P: n/a
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
May 9 '07 #2

This discussion thread is closed

Replies have been disabled for this discussion.