Test to determine if procedure exists

Using another WizHook function to see if a procedure exists before attempting to run it in the current database.

Version Control.accda.src/modules/modDatabase.bas

@@ -540,6 +540,13 @@ Public Sub RunSubInCurrentProject(strSubName As String)
         Exit Sub
     End If
 
+    ' Make sure procedure exists in current database
+    If Not GlobalProcExists(strSubName) Then
+        Log.Error eelError, "The procedure """ & strSubName & """ not found.", ModuleName & ".RunSubInCurrentProject"
+        Log.Add "The procedure must be declared as public in a standard module.", False
+        Exit Sub
+    End If
+
     ' Add project name so we can run it from the current datbase
     strCmd = "[" & CurrentVBProject.Name & "]." & strCmd
 

Version Control.accda.src/modules/modWizHook.bas

@@ -40,6 +40,19 @@ Public Function CurrentVBProject() As VBProject
 End Function
 
 
+'---------------------------------------------------------------------------------------
+' Procedure : GlobalProcExists
+' Author    : Adam Waller
+' Date      : 3/10/2023
+' Purpose   : Returns true if the procedure exists (Public proc in standard module)
+'---------------------------------------------------------------------------------------
+'
+Public Function GlobalProcExists(strName) As Boolean
+    CheckKey
+    GlobalProcExists = WizHook.GlobalProcExists(strName)
+End Function
+
+
 '---------------------------------------------------------------------------------------
 ' Procedure : CheckKey
 ' Author    : Adam Waller