Procedure Executes after Unload Me Statement

[Ashok.S]

Private Sub Command1_Click()

MsgBox "WelCome"
Unload Me
TestFun

End Sub
Private Sub TestFun()

MsgBox "Why does this Execute?"

End Sub

Why the Procedure TestFun Execute After the Unload Me Statement.
I dont want to execute any procedures or Statements after unload Me Statement. Pls give a Solution to this problem.

Thx in Advance.

[HairyMonkeyMan]

Unload Me
Exit Sub

[Ashok.S]

Thx,

My Case is

Private Sub Command1_Click()
MsgBox "WelCome"
TestFun
MsgBox "Why does this Execute?"
End Sub

Private Sub TestFun()
MsgBox "TestFun Called"
Unload Me
Exit Sub
End Sub

Pls. Help me. I need not want to execute any of the Statements after the Unload me statement.

Thx in Advance.

[HairyMonkeyMan]

Private Sub Command1_Click()
    MsgBox "WelCome"
    TestFun
    MsgBox "Why does this Execute?"
End Sub

Private Sub TestFun()
    MsgBox "TestFun Called"
    Unload Me
    End
End Sub

[erickwidya]

Private Sub Command1_Click()  
MsgBox "WelCome"  
TestFun  'u call tesfun procedure..after that it will popup msbox below..that's why
MsgBox "Why does this Execute?"  
End Sub    

Private Sub TestFun()  
MsgBox "TestFun Called"  
Unload Me  
Exit Sub  ' not really need this..
End Sub

if u don't want to be excuted then try remove the red line..if u still wish that line that add End statement at form_unload though it's not recomended..

[Ashok.S]

Thanks
But in my case

I have Written a Procedure To insert Entries into Different Tables
Within One Procedure named
Private Sub SaveEntries()
on error goto err
SaveHeader 'Procedure to insert header table
SaveDetail 'Procedure to insert into detail table
msgbox"Entry Saved"
err:
' Rollbacktrans
end sub

Private sub SaveHeader()
on error goto err
'insert statement and other codes
err:
unload me
end sub

If Any Error Occurs in any of the Procedure saveheader or in detail then other statement or other procedure should not be executed and Form should be closed and Mdiform form should be there and not to close the whole project

pls help me

[erickwidya]

in that case..maybe u should use function instead of sub

something like this

private function InsertToTable As boolean
  a= true  
on error goto errHandle
  'ur code here
  exit sub 'u forgot to add this before ur errHandle
errHandle:
  a = false
end function

and to use it

if InsertToTable=true then 'process other

hope u get the idea..

[HairyMonkeyMan]

Private Sub SaveEntries()
    On Error GoTo err
    If SaveHeader Then 'Procedure to insert header table
        SaveDetail 'Procedure to insert into detail table
        MsgBox "Entry Saved"
    Else
        MsgBox "SaveHeader() Failed"
        err.Raise 999, "SaveHeader()", "SaveHeader failed"
    End If
    
    Exit Sub
err:
    ' Rollbacktrans
End Sub

' Returns true if successful
Private Function SaveHeader() As Boolean
    On Error GoTo err
    'insert statement and other codes
    
    ' Function successful, set to true and exit
    SaveHeader = True
    Exit Function
err:
    ' Function failed, set to false and exit
    SaveHeader = False
End Function

Ya beat me to it erickwidya, but might as well post this anyway

[Ashok.S]

Thx Guys for Immediate Response.

I will Check it out and Reply.

[springsoft]

Well, it looks to me like the initial question was a theoretical one, which received a number of practical reponses.
The theoretical answer is:
Private Sub Command1_Click() was popped onto the stack.
Stack = Private Sub Command1_Click()

MsgBox is then executed.
Stack = (from top) Private Sub Command1_Click() , MsgBox.
OK or cancel on MsgBox pops it from stack.
Stack is now = Private Sub Command1_Click()

Unload Me executes
Stack is now = Private Sub Command1_Click() , Unload Me
Unload Me finishes executing
Stack is now = Private Sub Command1_Click()

TestFun executes
Stack is now = Private Sub Command1_Click() , TestFun
TestFun finishes executing
Stack is now = Private Sub Command1_Click()

Private Sub Command1_Click() finishes executing
Stack is now empty.

D

[erickwidya]

Ya beat me to it erickwidya, but might as well post this anyway

[Ashok.S]

Hi,

Changing the Procedures to Functions is good Solution. But I have more than 100 forms in my project, so i need to change these in all those forms which is tedious and time consuming. Is there any other solution other than this (something like using some API) and unloading form and after unloading it should wait in the MDI Form. The application should not Close.

Help me.

Thx in Advance.