[AccessD] suspend execution of VB code

Scott,

  Here is a little wait function, by why the heck are you trying to slow
things down?

Jim Dettman
President,
Online Computer Services of WNY, Inc.
(315) 699-3443
jimdettman at earthlink.net

Function Wait(intSeconds As Integer) As Integer

    Dim datCurDateTime As Date
    datCurDateTime = Now

    Do Until DateDiff("s", datCurDateTime, Now) > intSeconds
      DoEvents
    Loop

End Function

-----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