Set VbProjectRef if missing (#48)

Author: josef-poetzl

access-add-in/AccUnitLoader.accda

@@ -18,7 +18,7 @@ Option Compare Text
 Option Explicit
 
 'Version number
-Private Const APPLICATION_VERSION As String = "0.9.400.240320"
+Private Const APPLICATION_VERSION As String = "0.9.401.240323"
 
 Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"

access-add-in/source/modules/_config_Application.bas

@@ -28,6 +28,10 @@ Public Sub CheckAccUnitTypeLibFile(Optional ByVal VBProjectRef As VBProject = No
    Dim ExportFile As Boolean
    Dim FileFixed As Boolean
 
+   If VBProjectRef Is Nothing Then
+      Set VBProjectRef = CodeVBProject
+   End If
+
    LibPath = GetAccUnitLibPath(True)
    LibFile = LibPath & ACCUNIT_TYPELIB_FILE
    FileTools.CreateDirectory LibPath
@@ -46,10 +50,6 @@ Public Sub CheckAccUnitTypeLibFile(Optional ByVal VBProjectRef As VBProject = No
    End If
 
 On Error Resume Next
-   If VBProjectRef Is Nothing Then
-      Set VBProjectRef = CodeVBProject
-   End If
-
    CheckMissingReference VBProjectRef, ReferenceFixed
 
    ReferenceFixed = ReferenceFixed Or FileFixed