Multiple Sub Calls not working

[OldCityCat]

Is there a common reason why a Call from one sub to another sub within the same module would not work.


For some reason I'm not seeing the Call to RunCode3 never runs.

Private Sub RunCode1()
  Do Something Code
MsgBox "Do Something Code1 Completed"
      Call RunCode2
End Sub

Private Sub RunCode2()
   Do Something Code2
MsgBox "Do Something Code2 Completed"
      Call RunCode3
End Sub

Private Sub RunCode3()
  Do Something Code3
MsgBox "All Do Something Code has Completed"
End Sub

Also I have tried making all sub's Public

Thank you in advance for any and all suggestions
OldCityCat

[rpeare]

probably have to see the actual code to tell you, there's probably an error in your logic in the runcode2 that is not meeting the conditions to have runcode3 execute.

[OldCityCat]

Thanks for you prompt response
Here's the code in question

'RunCode2
Private Sub UpdateAsiaMasterBol()
 On Error GoTo ErrorHandler
   DoCmd.SetWarnings False
   
If WhatSeason = "Season 2012" Then
   DoCmd.DeleteObject acTable, "AsiaMasterBol_2012"
   Pause 3000
   DoCmd.OpenQuery "qryMakeAsiaMasterBol_2012"
   Pause 1000
   DoCmd.OpenQuery "udqryAsiaBolShipperCleanup_2012"
   Pause 1000
   MsgBox "Asia Master Bol 2012 Update Completed"

ElseIf WhatSeason = "Season 2013" Then
   DoCmd.DeleteObject acTable, "AsiaMasterBol_2013"
   Pause 3000
   DoCmd.OpenQuery "qryMakeAsiaMasterBol_2013"
   Pause 1000
   DoCmd.OpenQuery "udqryAsiaBolShipperCleanup_2013"
   Pause 1000
   MsgBox "Asia Master Bol 2013 Update Completed"

ElseIf WhatSeason = "Season 2014" Then
   DoCmd.DeleteObject acTable, "AsiaMasterBol_2014"
   Pause 3000
   DoCmd.OpenQuery "qryMakeAsiaMasterBol_2014"
   Pause 1000
   DoCmd.OpenQuery "udqryAsiaBolShipperCleanup_2014"
   Pause 1000
   MsgBox "Asia Master Bol 2014 Update Completed"
End If

ErrorHandler:
  If Err.Number = 3075 Then
    Resume ExitProcedure
  End If
ExitProcedure:
     Exit Sub
DoCmd.SetWarnings True

    MsgBox "Updates Completed", vbSystemModal

'Nothing happend after I Ok this MsgBox

Call UpdateEuropeMasterBol
End Sub
----------------------------------------------------------------
'RunCode3()
Private Sub UpdateEuropeMasterBol()
 On Error GoTo ErrorHandler
   DoCmd.SetWarnings False

'I never see this MsgBox 
    
MsgBox "EuropeMasterBOL Started", vbSystemModal
    
If WhatSeason = "Season 2012" Then
    DoCmd.DeleteObject acTable, "EuropeMasterBol_2012"
    Pause 2000
    DoCmd.OpenQuery "qryMakeEuropeMasterBol_2012"
    Pause 1000
    DoCmd.OpenQuery "udqryEuropeBolShipperCleanup_2012"
    Pause 1000
    MsgBox "Europe Master Bol 2012 Update Completed"

ElseIf WhatSeason = "Season 2013" Then
    DoCmd.DeleteObject acTable, "EuropeMasterBol_2013"
    Pause 2000
    DoCmd.OpenQuery "qryMakeEuropeMasterBol_2013"
    Pause 1000
    DoCmd.OpenQuery "udqryEuropeBolShipperCleanup_2013"
    Pause 1000
    MsgBox "Europe Master Bol 2013 Update Completed"

ElseIf WhatSeason = "Season 2014" Then
    DoCmd.DeleteObject acTable, "EuropeMasterBol_2014"
    Pause 2000
    DoCmd.OpenQuery "qryMakeEuropeMasterBol_2014"
    Pause 1000
    DoCmd.OpenQuery "udqryEuropeBolShipperCleanup_2014"
    Pause 1000
    MsgBox "Europe Master Bol 2014 Update Completed"
End If

ErrorHandler:
If Err.Number = 3075 Then
     Resume ExitProcedure
End If
ExitProcedure:
  Exit Sub

DoCmd.SetWarnings True
MsgBox "Updates Completed", vbSystemModal
Call UpdateAsiaMasterWithContainers
End Sub

[Xipooo]

Comment out "DoCmd.SetWarnings False" and I'll bet you discover one of your queries isn't working.

[rpeare]

I can almost guarantee you that what you're doing is way more complex than it needs to be. I bet all these queries are doing the exact same thing, you have just built a query/procedure for each year.

That's totally unnecessary.

However, in the context of your current code you are using EXIT SUB before you ever get to the second procedure call, that's why you never get there

ErrorHandler:
    If Err.Number = 3075 Then
        Resume ExitProcedure
    End If
ExitProcedure:
    Exit Sub
    DoCmd.SetWarnings True
    MsgBox "Updates Completed", vbSystemModal
    'Nothing happend after I Ok this MsgBox
    Call UpdateEuropeMasterBol

This is your current code

Try this instead:

ErrorHandler:
    If Err.Number = 3075 Then
        DoCmd.SetWarnings True
        MsgBox "Updates Completed", vbSystemModal
        'Nothing happend after I Ok this MsgBox
        Call UpdateEuropeMasterBol
        Exit Sub
    End If

[rpeare]

In other words you are only running the function UPDATEEUROPEMASTERBOL if you get error 3075 on the current function (UpdateAsiaMasterBol)

[OldCityCat]

Thanks for see the error of my ways.
I guess my the error trap was never working
Fix error trap logic and all Calls are working.

Thanks