Updated Function JoinString() to add mandatory parenthesis support on MS Access JOIN Query

[vba-excel]

Updated Function JoinString() to add mandatory parenthesis support on MS Access JOIN Query
New Function Code:

Private Function JoinString()
Dim R As Long
Dim I As Long
Dim Lines() As String
Dim Line As String
Dim LineArray As Variant
ReDim Lines(0 To UBound(aJoin))
For R = 0 To UBound(aJoin)
LineArray = aJoin(R)
Line = ""
If LineArray(0) <> "" Then
Line = LineArray(0) & " JOIN "
ElseIf R > 0 Then
Lines(R - 1) = Lines(R - 1) & ","
End If
Line = Line & LineArray(1)
If LineArray(2) <> "" Then
Line = Line & " " & LineArray(2)
End If
If LineArray(3) <> "" Then
Line = Line & " ON " & LineArray(3)
End If
'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

[vba-excel]

Pull request to correct issue #32