[AccessD] suspend execution of VB code

I created a form that I use as a message box. It's just a very small form
with no record selectors, no scroll bars etc. (See link below)
I then update its text box after each query runs. Make sure you use the
DoEvents Process.

For example. if you have a form call "frmMessage" with a text box called
"txtMessage" do this:


DoCmd.OpenForm "frmMessage"

Forms!frmMessage!txtMessage="Running query one"
DoEvents
DoCmd.openQuery "qryAppendBuchOfData1"

Forms!frmMessage!txtMessage="Running query two"
DoEvents
DoCmd.openQuery "qryAppendBuchOfData2"

Forms!frmMessage!txtMessage="Running query three"
DoEvents
DoCmd.openQuery "qryAppendBuchOfData3"

Forms!frmMessage!txtMessage="Running query four"
DoEvents
DoCmd.openQuery "qryAppendBuchOfData4"

DoCmd.Close acForm, frmMessage

I have put up the form I use at (Access 2000):

http://www.dvdol.com/~JRCCDD/Downloads/MessageBox.zip


You can also modify this to change the caption of the box as well
Forms!frmMessage.caption = "Running Append Queries"

Or, if you want to get fancy, you can use the OpenArgs argument of the
DoCmd.OpenForm function to do some of the changes.

John Skolits

-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com]On Behalf Of Scott Gage
Sent: Tuesday, February 18, 2003 8:47 PM
To: accessd at databaseadvisors.com
Subject: [AccessD] suspend execution of VB code


HELP!

I need to slow down the code I'm running. It is
running a ton of append queries to groom some data. I
thought I'd make a progress dialog box while I'm at
it. I will need the code to suspend execution for a
few seconds and then start back up without any end
user action.

Can anyone point me in the right direction? I read
Break point but the end user has to do something to
start the code back up.

Scott

=====
--------------------
Scott T. Gage
Scott.gage at promedica.org
419.291-7177

__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com