Kill / Terminate / Quit complete script

Sub Main
	If testExitScript() = false Then Exit Sub
	MsgBox "Script complete"
End Sub

Function testExitScript() As Boolean 'returns false if the function failed
	Dim i As Integer
	On Error GoTo exitFunction
	testExitScript = true
	'force an error
	i = 5 / 0
	MsgBox i
	
exitFunction:
	'verify if client error or basic error
	If Client.ErrorCode <> 0 Or Err.Number <> 0 Then 
		testExitScript = false
	End If
End Function

HI David,
If you want to exit the script and IDEA you can use the Client.Quit function as it will close both.
If you want to just exit the script you will need to add a bit of logic.  I have included one way to do it above.  The function will return false if there was an error, you check for it when you call the function and if it is false it will exit the sub main and if it returns true the scipt keeps on running.

Hope this helps.

Brian

Thank you, i will maybe try the Client.Quit, the other thing I use already, but I dont find it really useable
I have another question...
i have an array like the following:
Dim arr
arr = Array("0","5","10")
how can I access second entry of it? arr(1) does not work, it says it doesnt know the function arr then...
any idea?
 

Hey Brian,
thanks again for your reply. I actually want just a normal 1-dimensional array and i am pretty sure that this code:
Dim arrarr = Array("0","5","10")
creates one.
Now i want to msgbox arr(1) and i would expect, that 5 is shown in a message box, but what actually happens, is the error message described above...
David

Ah Thank you! Unfortunately you had not the correct solution for me, but it was pretty close...
The problem is: i pass the array as parameter to a function, and inside the function the compiler does not understand, that the array still is an array...
My solution now is, that I recreate the array inside of the function and I copy the input array into it... this seems to work now, but it is really strange!

Sub Main
	Dim arrarr() As Variant
 	arrarr = Array("0", "5", "10")
 	Call test(arrarr)	
 End Sub

Function test(myArray() As Variant)
	MsgBox myArray(1)
End Function

 Hi David,

I didn't know you were passing arrays.  The above is the syntax to do that.

Brian