diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2018-05-13 15:06:55 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2018-05-13 15:06:55 +0200 |
| commit | 32cad25f949eabea52e1cf7962ba18a3edd1c647 (patch) | |
| tree | b929662e216cf1e8011d38f26e0a429c5474bb6f /wizards | |
| parent | 8010f473c77b9f384a7067f487bc24469f8c0cd3 (diff) | |
Access2Base - FIX Sql errors when apostrophe in table names
Correct replacement of square brackets by quoting string
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Database.xba | 2 |
1 files changed, 1 insertions, 1 deletions
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 |