TypeLibCheck: Prevent errors due to reference problem with fixed library specification

Author: josef-poetzl

access-add-in/AccUnitLoader.accda

@@ -6,7 +6,7 @@
 '<codelib>
 '  <license>_codelib/license.bas</license>
 '  <use>%AppFolder%/source/defGlobal_AccUnitLoader.bas</use>
-'  <use>base/modApplication.bas</use>
+'  <use>base/modApplication.bas</use
 '  <use>base/ApplicationHandler.cls</use>
 '  <use>base/ApplicationHandler_AppFile.cls</use>
 '  <use>base/modErrorHandler.bas</use>
@@ -18,7 +18,7 @@ Option Compare Database
 Option Explicit
 
 'Version nummer
-Private Const APPLICATION_VERSION As String = "0.9.20.240306"
+Private Const APPLICATION_VERSION As String = "0.9.21.240308"
 
 Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"

access-add-in/AccUnitLoader.accda.src/modules/_config_Application.bas

@@ -29,7 +29,7 @@ Private Const EXTENSION_KEY_APPFILE As String = "AppFile"
 Public Property Get DefaultAccUnitLibFolder() As String
    Dim FilePath As String
    FilePath = CodeVBProject.FileName
-   FilePath = Left(FilePath, InStrRev(FilePath, "\"))
+   FilePath = VBA.Left(FilePath, VBA.InStrRev(FilePath, "\"))
    DefaultAccUnitLibFolder = FilePath & "lib"
 End Property
 
@@ -66,12 +66,12 @@ On Error GoTo ErrMissingPath
 On Error GoTo 0
    End With
 
-   If Len(LibPath) = 0 Then
+   If VBA.Len(LibPath) = 0 Then
       LibPath = DefaultAccUnitLibFolder
    End If
 
    If BackSlashAtEnd Then
-      If Right(LibPath, 1) <> "\" Then
+      If VBA.Right(LibPath, 1) <> "\" Then
          LibPath = LibPath & "\"
       End If
    End If

access-add-in/AccUnitLoader.accda.src/modules/modTypeLibCheck.bas

@@ -19,7 +19,7 @@ Option Explicit
 Option Private Module
 
 'Version nummer
-Private Const APPLICATION_VERSION As String = "0.9.3.240307"
+Private Const APPLICATION_VERSION As String = "0.9.4.240308"
 
 Private Const APPLICATION_NAME As String = "ACLib AccUnit Loader"
 Private Const APPLICATION_FULLNAME As String = "Access Code Library - AccUnit Loader"

excel-add-in/AccUnitLoader.xlam

@@ -29,7 +29,7 @@ Private Const EXTENSION_KEY_APPFILE As String = "AppFile"
 Public Property Get DefaultAccUnitLibFolder() As String
    Dim FilePath As String
    FilePath = CodeVBProject.FileName
-   FilePath = Left(FilePath, InStrRev(FilePath, "\"))
+   FilePath = VBA.Left(FilePath, VBA.InStrRev(FilePath, "\"))
    DefaultAccUnitLibFolder = FilePath & "lib"
 End Property
 
@@ -66,12 +66,12 @@ On Error GoTo ErrMissingPath
 On Error GoTo 0
    End With
 
-   If Len(LibPath) = 0 Then
+   If VBA.Len(LibPath) = 0 Then
       LibPath = DefaultAccUnitLibFolder
    End If
 
    If BackSlashAtEnd Then
-      If Right(LibPath, 1) <> "\" Then
+      If VBA.Right(LibPath, 1) <> "\" Then
          LibPath = LibPath & "\"
       End If
    End If