Fix: First start without config

Author: josef-poetzl

access-add-in/AccUnitLoader.accda

@@ -7,6 +7,7 @@
     "Databases": {
       "SummaryInfo": {
         "Author": "Josef Pötzl",
+        "Comments": "Activate AccUnit for Access/VBA",
         "Company": "accunit-codelib.net",
         "Title": "AccUnit Loader"
       }

access-add-in/AccUnitLoader.accda.src/documents.json

@@ -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, Len(FilePath) - InStrRev(FilePath, "\"))
+   FilePath = Left(FilePath, InStrRev(FilePath, "\"))
    DefaultAccUnitLibFolder = FilePath & "lib"
 End Property
 

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

@@ -1,8 +1,7 @@
 {
   "Info": {
     "Class": "clsDbNavPaneGroup",
-    "Description": "Navigation Pane Custom Groups",
-    "Export File Format": 1.1
+    "Description": "Navigation Pane Custom Groups"
   },
   "Items": {
     "Categories": [

access-add-in/AccUnitLoader.accda.src/nav-pane-groups.json

@@ -7,7 +7,6 @@
     "Name": "ACLib_ConfigTable",
     "Connect": ";DATABASE=C:\\Users\\poetzl.joposol\\AppData\\Roaming\\AccessCodeLib\\ACLib_Config.accdu",
     "SourceTableName": "ACLib_ConfigTable",
-    "Attributes": 1073741824,
-    "PrimaryKey": "[PropName]"
+    "Attributes": 1073741824
   }
 }

access-add-in/AccUnitLoader.accda.src/tbldefs/ACLib_ConfigTable.json

@@ -1,6 +1,6 @@
 {
   "Info": {
-    "AddinVersion": "4.0.23",
+    "AddinVersion": "4.0.34",
     "AccessVersion": "16.0 32-bit"
   },
   "Options": {
@@ -36,6 +36,7 @@
     "FormatSQL": true,
     "ForceImportOriginalQuerySQL": false,
     "SaveTableSQL": true,
+    "SplitLayoutFromVBA": false,
     "StripPublishOption": true,
     "SanitizeColors": 1,
     "SanitizeLevel": 2,

access-add-in/AccUnitLoader.accda.src/vcs-options.json

@@ -89,4 +89,4 @@ Function CopyFiles()
 
 End Function
 
-
+'Computer\HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Excel\Add-in Manager

excel-add-in/AccUnitLoader.xlam

@@ -1,7 +1,7 @@
 VERSION 5.00
 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} AccUnitLoaderForm 
    Caption         =   "ACLib - AccUnit Loader"
-   ClientHeight    =   3822
+   ClientHeight    =   4473
    ClientLeft      =   119
    ClientTop       =   462
    ClientWidth     =   9373
@@ -65,7 +65,7 @@ Private Sub UserForm_Initialize()
       Me.Caption = .ApplicationTitle & " (Version " & .Version & ")"
    End With
 
-   LoadIconFromAppFiles
+'   LoadIconFromAppFiles
 
    With CurrentAccUnitConfiguration
 On Error GoTo ErrMissingPath
@@ -143,9 +143,11 @@ On Error GoTo HandleErr
       .AddMenuItem 11, "Import AccUnit files from directory"
 #End If
 
+If ThisWorkbook.CustomDocumentProperties.Count = 10 Then
       .AddMenuItem -2, "", MF_SEPARATOR
       .AddMenuItem 21, "Export AccUnit files to directory"
       .AddMenuItem 22, "Remove AccUnit files from Add-In file"
+End If
 
       .AddMenuItem -3, "", MF_SEPARATOR
       .AddMenuItem 31, "Remove test environment incl. test classes"
@@ -169,6 +171,7 @@ On Error GoTo HandleErr
          SuccessMessage = "AccUnit files removed from Add-In file"
       Case 31
          RemoveTestEnvironment True
+         SetEnableMode
          SuccessMessage = "Test environment end test classes removed"
       Case 32
          RemoveTestEnvironment False
@@ -198,6 +201,22 @@ HandleErr:
 
 End Function
 
+Private Sub cmdExportFilesToFolder_Click()
+   
+On Error GoTo HandleErr
+
+   ExportAccUnitFiles
+   ShowSuccessInfo "AccUnit files exported"
+   
+ExitHere:
+   Exit Sub
+
+HandleErr:
+   ShowErrorHandlerInfo "cmdInsertFactoryModule_Click"
+   Resume ExitHere
+   
+End Sub
+
 Private Sub cmdSelectAccUnitDllPath_Click()
 
    Dim SelectedAccUnitDllPath As String
@@ -230,7 +249,12 @@ Private Sub SetEnableMode()
    bolPathExists = Len(Me.txtAccUnitDllPath.Value & vbNullString) > 0
 
    Me.cmdSetAccUnitTlbReferenz.Enabled = bolPathExists
-   Me.cmdInsertFactoryModule.Enabled = bolPathExists
+   With Me.cmdInsertFactoryModule
+      .Enabled = bolPathExists
+      If bolPathExists Then
+         .Enabled = (ThisWorkbook.CustomDocumentProperties.Count = 10)
+      End If
+   End With
 
 End Sub