I've have serveral overnight jobs that run. For some reason my scheduler will not fire them so I wrote a real quick program to fire them for me. Now when I come in, in the morning, and log into my xp workstation I have several instances of the application (over a 100 per application) running. I'm not real sure why. If you could be so kind please inspect my code and tell me what it is that I am doing wrong
Thanks
Scoty :
[Begin Code]
"Learn from others' mistakes. You could not live long enough to make them all yourself."
-- Hyman George Rickover (1900-86),
Thanks
Scoty :
[Begin Code]
Code:
Public Sub Main()
Top:
'Letters
Do Until Format(Now(), "h:mm:ss ampm") > #6:00:00 PM#
DoEvents
Loop
Shell "C:\Progra~1\Micros~2\Office\msaccess.exe g:\MyNetWork\scotts.mdb", vbNormalFocus
'More Letters
Do Until Format(Now(), "h:mm:ss ampm") > #7:00:00 PM#
DoEvents
Loop
Shell "C:\Progra~1\Micros~2\Office\msaccess.exe g:\MyNetWork\sprscott.mdb", vbNormalFocus
'BCM
Do Until Format(Now(), "h:mm:ss ampm") > #8:00:00 PM#
DoEvents
Loop
Shell "G:\MyNetWork\bcm.exe"
'Loop until midnight then go back to the top
Do Until Format(Now(), "h:mm:ss ampm") > #12:01:00 AM#
DoEvents
Loop
GoTo Top
End Sub
"Learn from others' mistakes. You could not live long enough to make them all yourself."
-- Hyman George Rickover (1900-86),