Compile and save correct VBE project

If we don't specify the active project, we might be compiling and saving the add-in instead of the current database. This can cause the modules not to be listed as Access objects, causing further issues in the build process. This was a major breakthrough in resolving #236

Author: joyfullservice

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

@@ -192,6 +192,7 @@ 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
 
@@ -370,14 +371,15 @@ 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
-                Perf.OperationStart "Compile/Save Modules"
-                DoCmd.RunCommand acCmdCompileAndSaveAllModules
-                DoEvents
-                Perf.OperationEnd
+                CompileAndSaveAllModules
+                blnCompiled = True
             End If
         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

@@ -561,3 +561,20 @@ Public Sub ClearOrphanedSourceFiles(cType As IDbComponent, ParamArray StrExtensi
 
 End Sub
 
+
+'---------------------------------------------------------------------------------------
+' Procedure : CompileAndSaveAllModules
+' Author    : Adam Waller
+' Date      : 7/10/2021
+' Purpose   : Compile and save the modules in the current database
+'---------------------------------------------------------------------------------------
+'
+Public Sub CompileAndSaveAllModules()
+    Perf.OperationStart "Compile/Save Modules"
+    ' Make sure we are running this in the CurrentDB, not the CodeDB
+    Set VBE.ActiveVBProject = GetVBProjectForCurrentDB
+    DoCmd.RunCommand acCmdCompileAndSaveAllModules
+    DoEvents
+    Perf.OperationEnd
+End Sub
+