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

Doing Something in the background

P: n/a
Using Access 97 - on windows 2000

Is it possible to do something (in the background) whilst getting on with
othe normal databse jobs such as using forms for data manipulation

e.g.
The following sub beeps once a second [but I would like to do something more
serious ]
I would like this to be running whilst getting on with oher things.
-----------------------------------------------
Public Sub BackgroundTask()
Dim MyTime As Variant, Delay As Integer, DoSomething As Integer

MyTime = Now
Delay = 5
DoSomething = 1
While DateDiff("s", MyTime, Now) < Delay
If DateDiff("s", MyTime, Now) = DoSomething Then
DoSomething = DoSomething + 1
Beep
End If
Wend

End Sub

----------------------------------------------

--
Jim Bunton
jB*****@Blueyonder.co.uk
13 Westbourne Road
Trowbridge
Wilts. BA14 0AJ
Tel: 01225 765 541
Mobile: 07919 283 968

Nov 12 '05 #1
Share this Question
Share on Google+
1 Reply


P: n/a
On Sat, 18 Oct 2003 13:49:59 +0100, "J Bunton"
<jB*****@BlueYonder.co.uk> wrote:

Not really.
You could perhaps create a timer on a form, and when it ticks, perform
some action.
You could also try something very contrived with an endless loop with
DoEvents in it, but if I was your customer I would not pay for it.

If you are serious about background processing, you need to use a tool
that would allow you to create a multi-threading application. VB.NET
comes to mind.

-Tom.

Using Access 97 - on windows 2000

Is it possible to do something (in the background) whilst getting on with
othe normal databse jobs such as using forms for data manipulation

e.g.
The following sub beeps once a second [but I would like to do something more
serious ]
I would like this to be running whilst getting on with oher things.
-----------------------------------------------
Public Sub BackgroundTask()
Dim MyTime As Variant, Delay As Integer, DoSomething As Integer

MyTime = Now
Delay = 5
DoSomething = 1
While DateDiff("s", MyTime, Now) < Delay
If DateDiff("s", MyTime, Now) = DoSomething Then
DoSomething = DoSomething + 1
Beep
End If
Wend

End Sub

----------------------------------------------


Nov 12 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.