[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/Database.xba |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

New commits:
commit 32cad25f949eabea52e1cf7962ba18a3edd1c647
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Sun May 13 15:06:55 2018 +0200

    Access2Base - FIX Sql errors when apostrophe in table names
    
    Correct replacement of square brackets by quoting string

diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index fad41abfbaa2..ebb6ada1bd7f 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1851,7 +1851,7 @@ Const cstSingleQuote = "'"
 	End If
 	vSubStrings() = Split(psSql, cstSingleQuote)
 	For i = 0 To UBound(vSubStrings)
-		If (i Mod 2) = 0 Then		'	Only even substrings are parsed for square brackets
+		If (i Mod 2) = 0 Or (i = UBound(vSubStrings)) Then		'	Only even substrings are parsed for square brackets. Last substring is parsed anyway
 			vSubStrings(i) = Join(Split(vSubStrings(i), "["), sQuote)
 			vSubStrings(i) = Join(Split(vSubStrings(i), "]"), sQuote)
 		End If