Exit sub question...

[antaeusguy]

Hi

I have 2 procedures - one is the main and the other one is for checking/validation.

It looks like this:

Sub Main()
...
Call CheckNValidation
...
...
End Sub

Sub CheckNValidation()
...
(Code which does some checking... if successful, go back to Main, if fail, Exit Sub)
...
Exit Sub
...
End Sub

The problem with the code is, If in the CheckNValidation() resulted in fail, it continued to go back to the Main()...

If I put the CheckNValidation inside Main, I would have no problem... but because the code in CheckNValidation is long and I wish to make this into a separate procedure, so I decided to split into two which the Main() calls up CheckNValidation().

Anyone could help me with this code would be much appreciated!

 

[Jonmo1]

Try END instead of Exit Sub

 

[Norie]

Does the validation sub return some sort of result?

If it does why not convert it to a function and then in the main sub just have something like this.

boolContinue = CheckNValidation()
 
If Not boolContinue Then Exit Sub

Or use End, but be careful - that stops all code as far as I know.

 

[antaeusguy]

Wow.. I'm impressed with this board, within an hour 2 replies on this thread!

Hmm... my CheckNValidation doesn't return a value... just using the basic flow control If... Then... End If.

But good idea! I could try a function to return a boolean value.

I'll try both ideas and see which would be best.

But thanks a lot for your great help guys!

 

[RoryA]

Don't ever use End on its own.

 

[Norie]

Actually I should have said if it doesn't return a value you could convert it to a function that does return a value.