Verify ribbon active state when the add-in loads

Ensure that the ribbon is active when installing or activating the add-in. See joyfullservice#451

Version Control.accda.src/modules/clsVersionControl.cls

@@ -437,6 +437,10 @@ End Sub
 '
 Private Sub Class_Initialize()
     SaveState
+    ' When the class is initialized, make sure the ribbon is active (if installed).
+    ' This way if the COM add-in is not active, it will be automatically activated
+    ' when the add-in is opened from the [Database Tools\Add-ins] menu. (See #451)
+    modCOMAddIn.VerifyRibbon
 End Sub
 
 

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

@@ -87,6 +87,9 @@ Public Sub VerifyComAddIn()
             ' Reload the add-in to refresh the ribbon
             UnloadAddIn
             LoadAddIn
+        Else
+            ' Verify that the ribbon is active
+            VerifyRibbon
         End If
     End If
 
@@ -107,6 +110,24 @@ Public Sub ReloadRibbon()
 End Sub
 
 
+'---------------------------------------------------------------------------------------
+' Procedure : VerifyRibbon
+' Author    : Adam Waller
+' Date      : 11/3/2023
+' Purpose   : A lightweight function to verify that the ribbon add-in is active.
+'           : (It may get turned off if Access is opened in administrator mode.)
+'---------------------------------------------------------------------------------------
+'
+Public Sub VerifyRibbon()
+    Dim objAddIn As COMAddIn
+    Set objAddIn = GetCOMAddIn
+    If Not objAddIn Is Nothing Then
+        ' Activate the add-in if it is not currently active
+        If Not objAddIn.Connect Then objAddIn.Connect = True
+    End If
+End Sub
+
+
 '---------------------------------------------------------------------------------------
 ' Procedure : UninstallComAddIn
 ' Author    : Adam Waller