473,799 Members | 3,298 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

Forcing Wait or Delay ?

Is there a way to force Access to pause execution for a specified
period of time ? I would like a command button on a form to run it's
code when clicked and then pause for 2 seconds before allowing any
other user input. Thank you for any help.

Feb 5 '06 #1
4 21021
On Sun, 05 Feb 2006 03:54:30 GMT, Sh**********@Ki dNet.com wrote:
Is there a way to force Access to pause execution for a specified
period of time ? I would like a command button on a form to run it's
code when clicked and then pause for 2 seconds before allowing any
other user input. Thank you for any help.


Put the following into your code where you want the pause.

Dim T1 As Variant
Dim T2 As Variant

T1 = Now()
T2 = DateAdd("s", 2, T1)

Do Until T2 <= T1
T1 = Now()
Loop
Wayne Gillespie
Gosford NSW Australia
Feb 5 '06 #2
You could use windows api stuff...
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

....

Sleep 2000

Sh**********@Ki dNet.com wrote:
Is there a way to force Access to pause execution for a specified
period of time ? I would like a command button on a form to run it's
code when clicked and then pause for 2 seconds before allowing any
other user input. Thank you for any help.

Feb 5 '06 #3

Wayne Gillespie wrote:
On Sun, 05 Feb 2006 03:54:30 GMT, Sh**********@Ki dNet.com wrote:
Is there a way to force Access to pause execution for a specified
period of time ? I would like a command button on a form to run it's
code when clicked and then pause for 2 seconds before allowing any
other user input. Thank you for any help.


Put the following into your code where you want the pause.

Dim T1 As Variant
Dim T2 As Variant

T1 = Now()
T2 = DateAdd("s", 2, T1)

Do Until T2 <= T1
T1 = Now()
Loop


If you're going to wait for an appreciable length of time, you might
want to put a DoEvents in the loop.

Edward

Feb 6 '06 #4
I use Trevor Best's code:
Sub WaitFor(psngSec onds As Single)
' wait for specified number of seconds
' Copyright Trevor Best (tre...@besty.o rg.uk) <-OK, so I added
thisline.

Dim sngStart As Single
Dim sngET As Single

sngStart = Timer
DoEvents
Do While sngET < psngSeconds
DoEvents
' check for mighnight as the Timer() function will
' rollover at this point
sngET = Timer - sngStart
If sngET < 0 Then
' it rolled over - add number of seconds
' in a day
sngET = sngET + 86400
Beep
End If
' now don't hog the processor
' release some CPU slices back to Windoze
DoEvents
Loop

End Sub

Feb 6 '06 #5

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

0
1329
by: Mark English | last post by:
Every once in a while since I moved to Python 2.4 I've been seeing the following exception in threading.py Condition: File "mctest3.py", line 1598, in WaitForMessages self.condResponses.wait(1.0) File "C:\Program Files\Python24\lib\threading.py", line 221, in wait delay = min(delay * 2, remaining, .05) OverflowError: long int too large to convert to int Is there something I'm doing wrong here ? I've looked at my code, and
1
3391
by: Robert Huie | last post by:
Hi all, I'm trying to use asp.net to code a chat window and I would like to make the http request delay as long as possible till the process/thread detects a new incoming message. basically something like the following: while(nonewmessages) { nonewmessages = checkfornewmessages();
6
1885
by: Paul | last post by:
Hi just wondering if there is a way to set up a wait for object in vb.net as if a put a delay in between the fill and the databind things work ok, but if not the page is reloading without the updated information,(stored procedure is taking too long to complete). the time needed for this delay will change depending on the time the "stored procedure" which will vary, takes to excecute. dataadapter.Fill(dataset, "stored procedure") 'fill...
15
22181
by: Snuyt | last post by:
Hello, I want the program to wait a few seconds between executing code. It should look something like this: public sub xx() ...code... wait(2) 'wait 2 seconds ...code...
3
2479
by: eross | last post by:
Noob here, I am trying to manage calls from multiple clients to my web service by only letting one execute at a time and forcing the others to wait. Code is as follows: ------------------------------ <WebMethod()> Public Function myFunction(ByVal sXMLData As String) As String
10
8307
by: IdleBrain | last post by:
Hello all, The sleep() method hangs up the application and does not respond to events. So, I wrote a small delay loop that will allow the application to respond to events. 'Use Delay(500) to delay the application for 500ms. Public blnSleepTimeExpired As Boolean Public Sub Delay(ByVal intSleepTimems As Integer)
22
11759
by: Jason Zheng | last post by:
This may be a silly question but is possible for os.wait() to lose track of child processes? I'm running Python 2.4.4 on Linux kernel 2.6.20 (i686), gcc4.1.1, and glibc-2.5. Here's what happened in my situation. I first created a few child processes with Popen, then in a while(True) loop wait on any of the child process to exit, then restart a child process: import os from subprocess import Popen
1
2759
by: Villanmac | last post by:
Hi Whats the difference between the two, i forgot to test this out, basically its part of a delay for seven segemtn display which just cycles through numbers, what would be the difference between the two? thanks for nay help
5
3237
by: Jeremy | last post by:
Hi all, I have database actions that will potentially take several seconds to complete. My normal page uses AJAX so keeping the user informed of what is happening is not a problem. However, the page also has fallback code in case of no Javascript. In this case I would like to display temporary "please wait" type page
0
9688
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
10490
Oralloy
by: Oralloy | last post by:
Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
0
10259
jinu1996
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
1
10238
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows Update option using the Control Panel or Settings app; it automatically checks for updates and installs any it finds, whether you like it or not. For most users, this new feature is actually very convenient. If you want to control the update process,...
0
10030
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
6809
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and then checking html paragraph one by one. At the time of converting from word file to html my equations which are in the word document file was convert into image. Globals.ThisAddIn.Application.ActiveDocument.Select();...
0
5589
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
1
4145
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated we have to send another system
3
2941
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.