How to quit from a loop ?

[javiernews via AccessMonster.com]

Hi,

How to quit form the following loop after 15 seconds if Not success ???????

Do While lngprgID = 0
' Quit after 15 seconds if No success
DoEvents
lngprgID = Shell(strCommand, vbNormalFocus)
Loop

Thank you !

Javier

 

[John Spencer]

Try something like

Dim dteEndTime As Date
dteEndTime = DateAdd("s", 15, Now())

Do While lngPrgId = 0 And dteEndTime > Now()
DoEvents
lngPrgID = Shell(strCommand,vbNormalFocus
Loop

 

[Guest]

Try:

StartTime = Now

Do While lngprgID = 0
' Quit after 15 seconds if No success
DoEvents
lngprgID = Shell(strCommand, vbNormalFocus) If (Now - StartTime) * 24 * 3600 > 15 then Exit Sub
Loop

BW

 

[javiernews via AccessMonster.com]

BW and John !

Thank you !!
Both ways are working good.

Bye