The following code calls the Crystal Report Engine:
stAppName = "C:\WinTBM\rptProcReg.exe"
Call Shell(stAppName, 1)
Response = MsgBox("Do you want to update the Procedure Register?", vbQuestion + vbYesNo + vbDefaultButton2 + vbMsgBoxSetForeground, "The Bloodstock Manager"
If Response = vbYes Then
UpdateProc
Response = MsgBox("Procedure Register Updated", vbOKOnly, "The Bloodstock Manager"
End If
My problem is the msgbox "Do you want to update...." appears before the called report has run and terminated. I want to enforce that the report is run and the msgbox does not appear until the .exe has terminated.
stAppName = "C:\WinTBM\rptProcReg.exe"
Call Shell(stAppName, 1)
Response = MsgBox("Do you want to update the Procedure Register?", vbQuestion + vbYesNo + vbDefaultButton2 + vbMsgBoxSetForeground, "The Bloodstock Manager"
If Response = vbYes Then
UpdateProc
Response = MsgBox("Procedure Register Updated", vbOKOnly, "The Bloodstock Manager"
End If
My problem is the msgbox "Do you want to update...." appears before the called report has run and terminated. I want to enforce that the report is run and the msgbox does not appear until the .exe has terminated.