Fix: missing tlb file (x86), AutomatedTestRun interface

Author: josef-poetzl

access-add-in/AccUnitLoader.accda

@@ -90,11 +90,12 @@ On Error GoTo HandleErr
       Set .AccessForm = Me
       .ControlSection = acDetail
 
-      .AddMenuItem -99, "", MF_SEPARATOR
+#If DEVMODE = 1 Then
       .AddMenuItem -1, "For AccUnit developers:", MF_STRING + MF_GRAYED
       .AddMenuItem 11, "Import AccUnit files from directory"
-
       .AddMenuItem -2, "", MF_SEPARATOR
+#End If
+
       .AddMenuItem 21, "Export AccUnit files to directory"
 
       .AddMenuItem -3, "", MF_SEPARATOR

access-add-in/source/forms/AccUnitLoaderForm.cls

@@ -206,11 +206,10 @@ Public Function GetCurrentAccessBitSystem() As Long
 
 End Function
 
-Public Function AutomatedTestRun() As Boolean
+Public Function AutomatedTestRun(Optional ByRef FailedMessage As String) As Boolean
 
    Dim Success As Boolean
    Dim TestSummary As AccUnit.ITestSummary
-   Dim FailedMessage As String
 
    AddAccUnitTlbReference
    InsertFactoryModule
@@ -225,9 +224,10 @@ Public Function AutomatedTestRun() As Boolean
 
    If Not Success Then
       FailedMessage = TestSummary.Failed & " of " & TestSummary.Total & " Tests failed"
-      Err.Raise vbObjectError + 12, "AccUnitLoader.AutomatedTestRun", FailedMessage
    End If
 
+   AutomatedTestRun = Success
+
 End Function
 
 Private Sub SetFocusToImmediateWindow()