search

Beakerboy / VBA-SQL-Library

Object-based Database Interaction for VBA. Create SQL Statements with VBA objects instead of string concatination.
69 stars 16 forks source link

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

Open vba-excel opened 2 years ago

vba-excel commented 2 years ago

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 commented 2 years ago

Pull request to correct issue #32