TryFix Access database handling with improved error checking and access modes

Author: DecimalTurn

Main.ps1

@@ -10,15 +10,16 @@ $scriptPath = Split-Path -Parent $MyInvocation.MyCommand.Path
 . "$scriptPath/scripts/utils/TimedMessage.ps1"
 . "$scriptPath/scripts/utils/Invoke.ps1" # Function to invoke a script with a timeout
 . "$scriptPath/scripts/utils/Screenshot.ps1"
+. "$scriptPath/scripts/utils/Path.ps1"
 
 # Start the main timer
 $mainTimer = [System.Diagnostics.Stopwatch]::StartNew()
 $stepTimer = [System.Diagnostics.Stopwatch]::StartNew()
 
 Write-TimedMessage "Current directory: $(pwd)" -StartNewStep
 Write-Host "Using source directory: $SourceDir"
-$SourceDir = Normalize-Path $SourceDir
-Write-TimedMessage "Normalized source directory: $SourceDir" 
+$SourceDir = NormalizeDirPath $SourceDir
+Write-TimedMessage "Normalized source directory: $SourceDir"
 
 # Read name of the folders under the specified source directory into an array
 $folders = Get-ChildItem -Path "$PSScriptRoot/$SourceDir" -Directory | Select-Object -ExpandProperty Name

scripts/Build-VBA.ps1

@@ -108,22 +108,69 @@ if ($officeAppName -eq "Excel") {
     $doc = $officeApp.Presentations.Open($outputFilePath)
 } elseif ($officeAppName -eq "Access") {
     try {
-        if ($officeApp.CurrentDb -ne $null) {
-            $officeApp.CloseCurrentDatabase()
+        # Check if the file exists and is accessible
+        if (-not (Test-Path $outputFilePath)) {
+            Write-Host "🔴 Error: Access database file not found: $outputFilePath"
+            exit 1
         }
 
-        # Set default database properties
-        $officeApp.DefaultOpenExclusive = $false  # Initially try shared mode
+        # Close any existing database
+        try {
+            if ($null -ne $officeApp.CurrentDb) {
+                $officeApp.CloseCurrentDatabase()
+                Start-Sleep -Seconds 1
+            }
+        } catch {
+            # Ignore errors when checking CurrentDb - it may throw if no database is open
+        }
 
-        # First attempt
+        # First attempt - normal open
+        Write-Host "Attempting to open Access database in shared mode..."
         $doc = $officeApp.OpenCurrentDatabase($outputFilePath)
 
-        # If we got $null or can't modify VBA project, try exclusive mode
-        if ($null -eq $doc -or $null -eq $doc.VBProject) {
-            $officeApp.CloseCurrentDatabase()
-            Start-Sleep -Seconds 1
-            $officeApp.DefaultOpenExclusive = $true  # Try exclusive mode
-            $doc = $officeApp.OpenCurrentDatabase($outputFilePath)
+        # Check if VBA project is accessible
+        $vbaAccessible = $false
+        try {
+            if ($null -ne $doc -and $null -ne $doc.VBProject) {
+                $vbaAccessible = $true
+                Write-Host "VBA Project accessible in shared mode"
+            }
+        } catch {
+            Write-Host "Cannot access VBA Project in shared mode: $($_.Exception.Message)"
+        }
+        
+        # If VBA project isn't accessible, try reopening with different flags
+        if (-not $vbaAccessible) {
+            Write-Host "Attempting to reopen database with exclusive access..."
+            try {
+                $officeApp.CloseCurrentDatabase()
+                Start-Sleep -Seconds 1
+                
+                # Try a different approach for exclusive access
+                # Some versions of Access use different methods
+                
+                # For newer Access versions
+                $officeApp.OpenCurrentDatabase($outputFilePath, $true) # $true = exclusive mode
+                $doc = $officeApp.CurrentDb
+            } catch {
+                Write-Host "Failed with exclusive flag: $($_.Exception.Message)"
+                
+                # For older Access versions - one last attempt
+                try {
+                    $officeApp.Quit()
+                    Start-Sleep -Seconds 2
+                    $officeApp = New-Object -ComObject "Access.Application"
+                    $officeApp.Visible = $true
+                    
+                    # Open in exclusive mode
+                    # Use a slightly different technique as a last resort
+                    $officeApp.OpenCurrentDatabase($outputFilePath, $true)
+                    $doc = $officeApp.CurrentDb
+                } catch {
+                    Write-Host "🔴 Error: Failed to open the database after multiple attempts: $($_.Exception.Message)"
+                    exit 1
+                }
+            }
         }
     }
     catch {