Doing Something in the background

[J Bunton]

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: [phone]
Mobile: [phone]

[Tom van Stiphout]

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

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