From fb537fe5c5a6de9a7d2e5f8899479bce19d5a3fc Mon Sep 17 00:00:00 2001
From: vba-excel <58116485+vba-excel@users.noreply.github.com>
Date: Fri, 21 Jan 2022 23:06:42 +0000
Subject: [PATCH] Add files via upload

Updated Function JoinString() to add mandatory parenthesis support on MS Access JOIN Query
---
 src/ClassModules/SQLSelect.cls | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/src/ClassModules/SQLSelect.cls b/src/ClassModules/SQLSelect.cls
index 55f69b1..f77e306 100644
--- a/src/ClassModules/SQLSelect.cls
+++ b/src/ClassModules/SQLSelect.cls
@@ -217,6 +217,7 @@ End Function
 
 Private Function JoinString()
     Dim R As Long
+    Dim I As Long
     Dim Lines() As String
     Dim Line As String
     Dim LineArray As Variant
@@ -236,7 +237,19 @@ Private Function JoinString()
         If LineArray(3) <> "" Then
             Line = Line & " ON " & LineArray(3)
         End If
-        Lines(R) = Line
+       'Add inicial open parenthesis as needed join
+        If R = 0 And UBound(aJoin) > 1 Then
+            For I = 2 To UBound(aJoin)
+                Line = " ( " & Line
+            Next I
+            Lines(R) = Line
+        'Add close parenthesis for join
+        ElseIf R > 0 And R < UBound(aJoin) And UBound(aJoin) > 1 Then
+            Lines(R) = Line & " ) "
+        Else
+            'Normal output
+            Lines(R) = Line
+        End If
     Next R
     JoinString = Join(Lines, " ")
 End Function