Run exe continually

[sharonc]

I have an executable file that shows several pictures on the screen. I want to be able to click on start and have the executable run until I click on the escape key. Does any one know how I can do this?

 

[DoogieB]

Hi Sharon,
I'm sorry, but your question is really vague. Are you using MS Access in some way here? You'll need to give more information in order to get an answer. I recommend being very specific.

 

[sharonc]

It is one form done in MS Access.

Here is my code behind the form:

Option Compare Database

Private Sub START_Click()
On Error GoTo Err_START_Click

Dim stAppName As String
Dim icnt As Long
Dim LoopCnt As Long

On Error GoTo Repeat

Repeat:
stAppName = "C:\SPIRITOFAMERIC1.EXE"
Call Shell(stAppName, 1)

LoopCnt = 2147483647
Do While icnt < LoopCnt
icnt = icnt + 1
Loop

icnt = 0
GoTo Repeat

DoCmd.Close

Exit_START_Click:
Exit Sub

Err_START_Click:
MsgBox &quot;Error Number: &quot; & Err & &quot; - &quot; & Err.Description
Resume Exit_START_Click

End Sub