zms_Startup()

[sepoto]

I'm dealing with an external library called zMagic. I'm finding that just because I replaced one of the tables in the database with a linked table zms_Startup() is failing. I'm pasting the code in the hopes someone might have some insight into why it is failing. The code for this function sits inside an "add-in" database which is referenced by my main database and called from the main database which is preventing me from debugging. I can not step into the function in other words because it is coming from an add-in.

'**********************************************************************
'   Function:   zms_Startup()
'
'   Scope:      Global
'
'   Overview:   This is the application starting point.  The attached tables
'               are updated and run-time verses development options are set.
'
'   Returns:    True/False.
'
'**********************************************************************
Function zms_Startup() As Boolean
On Error GoTo ErrorHandler
Dim msg As String, ctr As Integer, fOK As Boolean

Const cstrProc = mModule & " --> zms_Startup"
Call zms_ValidateFoundation
'=============================================================
  Dim fReturn                 As Boolean
  Dim datProgStart            As Date
  Dim vntRetVal               As Variant
  Dim X                       As Variant
  Dim strFormName             As String
  Dim fNewDataPath            As Boolean
  
  Const ZMS_CONTACT_ONERROR = 11069
  
  zms_DebugLog "zms_Startup:  " & CurrentDb.Name, True
  
  datProgStart = Now()
  
  'DoCmd.Hourglass True
  
  ' A97 has a bug that causes built in functions like:
  ' Left, Mid, and Format to not be recognized if the
  ' running machine has newer versions of Referenced Files (Tool | References)
  ' The following procedure checks for and solves any version differences
  'Call CheckRefs
  'Call Syn_References.Test
  
  'This call determines if the command-line arguments
  'will override the DATADB settings in the AppOptions.
  Call zms_CheckArguments
  
  'Set Code DB
  '''''''''''''''''''''''''''''''''''''''
  If Not zms_SetGlobalDBRefs() Then     'True if successful.
    GoTo Done
  End If
  
  'Verify attached tables
  '''''''''''''''''''''''''''''''''''''''
  ''  If Not zms_TableAttachments() Then  'Attachment Failed
  ''    msg = "We were unable to attach the data tables.  " _
  ''        & "You were given the opportunity to select " _
  ''        & "the database file, yet that was also unsuccessful.  " _
  ''        & "It is possible that the names of the tables have changed " _
  ''        & "or have become corrupt.  " & zms_LoadString(ZMS_CONTACT_ONERROR)
  ''
  ''    MsgBox msg, vbCritical, "Table Attachment Error"
  ''
  ''    If zms_RuntimeMode <> grtModeClient Then
  ''      Stop
  ''    End If
  ''
  ''    Call zms_ApplicationQuit
  ''    Exit Function
  ''  End If
  ''
  ''  Call zms_CheckVersion
  
  'Run the rest of this code?
  '''''''''''''''''''''''''''''''''''''''
  If Not zms_GetAppOption("APP_RUN_AUTOEXEC") Then
    MsgBox "Not running Startup."
    GoTo Done
  End If
  
  'Clear Error Log
  '''''''''''''''''''''''''''''''''''''''
  If False Then ' Not zms_ErrorHandler_ClearERHlogs() Then                          'True if successful.
    msg = "Unable to clear Error Logs.  While it may be possible to continue, " _
        & "this indicates a serious problem. " & zms_LoadString(ZMS_CONTACT_ONERROR) & vbCrLf _
        & vbCrLf _
        & "Would you like to continue?"
    If vbYes <> MsgBox("msg", vbQuestion + vbYesNo, "Error Log") Then
      GoTo Done
    End If
  End If
  
  ' Open Switchboard if Switchboard Tables exist.
  zms_OpenSwitchboard
  
  fReturn = True

'--------------------
Done:
  zms_Startup = fReturn
  If Not fReturn Then
    zms_ApplicationQuit
  End If
  Exit Function
  
ErrorHandler:
  Select Case Err.Number
    Case Else
      Select Case zms_InternalErrorHandler(cstrProc, Err.Number, Err.Description)
        Case zms_ErrRetry       ' Error was auto handled, resume offending line
          Resume
        Case zms_ErrContinue    ' User selected "Continue"
          fReturn = False
          Resume Done
        Case zms_ErrDebug       ' User selected "View Code"
          Stop
          Resume
      End Select
  End Select
End Function

[HiTechCoach]

The code you posted makes lots of calls to other code. It will be very difficult to debug this code without seeing all the VBA code used.

[sepoto]

Thank you for your reply. I certainly would not expect you to debug the code yourself but the code is in an external .mda (Microsoft Add-in) file and I can not debug it! Do you know how to debug one these $%%^&ing .mda's?

Thank you!

[sepoto]

Essentially what happens is when I step into zms_Startup I go here automatically somehow. That is not what I normally see which would be inside the function zms_Startup().

Function zMagic_GetAppStatus() As Boolean
zMagic_GetAppStatus = mfAppStatus
mfAppStatus = True
End Function

[hansup]

the code is in an external .mda (Microsoft Add-in) file and I can not debug it! Do you know how to debug one these $%%^&ing .mda's?

You could try making a copy of the MDA and changing the file extension of the copy to MDB. Then open the MDB in Access to see whether you can view the code modules.

I found limited success with that method. Some add-in authors leave the source available so you can read it. Others lock it down so you can't.

[sepoto]

What I was actually dealing with was an .mde. I replaced the reference of the .mde with the corresponding .mda and now I can debug!