Support import of non-compiling code modules

Reworked the module import to be able to import code that has compile issues, while still saving the code modules. This ended up being more difficult than I expected, but seems to work well now. #236

Author: joyfullservice

Testing/Testing.accdb.src/modules/Module1.bas

@@ -38,7 +38,7 @@ Private Type DEVNAMES
   extra(1 To 255) As Byte
 End Type
 
-
+'noncompilingcodeissue ' Showing that we can build even with VBA errors
 
 Public Sub PrtMipCols(ByVal strName As String)
 

Testing/Testing.accdb.src/vcs-options.json

@@ -1,6 +1,6 @@
 {
   "Info": {
-    "AddinVersion": "3.4.10",
+    "AddinVersion": "3.4.13",
     "AccessVersion": "14.0 32-bit"
   },
   "Options": {

Version Control.accda.src/dbs-properties.json

@@ -41,7 +41,7 @@
       "Type": 10
     },
     "AppVersion": {
-      "Value": "3.4.12",
+      "Value": "3.4.13",
       "Type": 10
     },
     "Auto Compact": {

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

@@ -192,7 +192,6 @@ Public Sub Build(strSourceFolder As String, blnFullBuild As Boolean)
     Dim colFiles As Collection
     Dim varFile As Variant
     Dim strType As String
-    Dim blnCompiled As Boolean
 
     Dim strText As String   ' Remove later
 
@@ -374,16 +373,10 @@ Public Sub Build(strSourceFolder As String, blnFullBuild As Boolean)
 
             ' After importing modules, we need to save them before adding
             ' other properties like descriptions or hidden attributes
-            If cCategory.ComponentType = edbModule Then
-                CompileAndSaveAllModules
-                blnCompiled = True
-            End If
+            If cCategory.ComponentType = edbModule Then SaveAllModules
         End If
     Next cCategory
 
-    ' Ensure that we have compiled and saved all VBE modules
-    If Not blnCompiled Then CompileAndSaveAllModules
-    
     ' Initialize forms to ensure that the colors/themes are rendered properly
     ' (This must be done after all objects are imported, since subforms/subreports
     '  may be involved, and must already exist in the database.)

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

@@ -10,6 +10,8 @@ Option Compare Database
 Option Private Module
 Option Explicit
 
+Private Const ModuleName = "modVCSUtility"
+
 
 '---------------------------------------------------------------------------------------
 ' Procedure : GetAllContainers
@@ -577,3 +579,46 @@ Public Sub CompileAndSaveAllModules()
     DoEvents
     Perf.OperationEnd
 End Sub
+
+
+'---------------------------------------------------------------------------------------
+' Procedure : SaveAllModules
+' Author    : Adam Waller
+' Date      : 7/14/2021
+' Purpose   : Loop through the VBE modules and classes, saving each one in Access.
+'---------------------------------------------------------------------------------------
+'
+Public Sub SaveAllModules()
+    
+    Dim proj As VBProject
+    Dim cmp As VBComponent
+    Dim colNames As Collection
+    Dim varMod As Variant
+    
+    If DebugMode(True) Then On Error GoTo 0 Else On Error Resume Next
+    
+    Set proj = GetVBProjectForCurrentDB
+    Set colNames = New Collection
+    
+    ' Loop through and collect list of names.
+    ' (We can't save here, or we will get an error)
+    For Each cmp In proj.VBComponents
+        Select Case cmp.Type
+            Case vbext_ct_ClassModule, vbext_ct_StdModule
+                If (cmp.Saved = False) Then colNames.Add cmp.Name
+        End Select
+    Next cmp
+    
+    ' Set the active project to the CODE (add-in) project BEFORE
+    ' attempting to save the modules. Otherwise we will hit errors.
+    Set VBE.ActiveVBProject = GetCodeVBProject
+
+    ' Save each item in the list
+    For Each varMod In colNames
+        On Error GoTo 0
+        DoCmd.Save acModule, varMod
+    Next varMod
+
+    CatchAny eelError, "Error saving VBA modules", ModuleName & ".SaveAllModules"
+    
+End Sub

Version Control.accda.src/vcs-options.json

@@ -1,6 +1,6 @@
 {
   "Info": {
-    "AddinVersion": "3.4.11",
+    "AddinVersion": "3.4.13",
     "AccessVersion": "14.0 32-bit"
   },
   "Options": {