Re: Timeout implementation
- From: "Harvey Triana" <harveytriana@xxxxxxxxxxx>
- Date: Tue, 21 Feb 2006 09:18:39 -0500
Lopamudra-
Private Sub Sample()
Dim t As Date
t = Time
Do
'//process
Loop Until DateDiff("s", t, Time) >= 10
MsgBox "Finished"
End Sub
Whenever DateDiff("s", t, Time) >= TimeOut then do something
<Harvey Triana/>
"Lopamudra" <Lopamudra@xxxxxxxxxxxxxxxxxxxxxxxxx> escribió en el mensaje
news:9185BC98-7E63-42DA-A2CD-7E8630A04987@xxxxxxxxxxxxxxxx
Hi,
I am calling a procedure in my form which should return within 10 seconds.
If the procedure takes more time than 10 seconds, the calling function
should
stop the execution of the procedure and unload the form.
I implemented a timer but that didnt work. Nor did the Sleep function.
Please advice.
Also, my form in production will remain hidden. So will the solution you
will give work in that scenraio (I will need the solution anyway).
Regards
Lopa
.
- Prev by Date: Re: graph32.ocx
- Next by Date: FTP a file
- Previous by thread: Re: Timeout implementation
- Next by thread: RegEx search into a database index
- Index(es):
Relevant Pages
|