diff options
Diffstat (limited to 'wizards/source/access2base/Database.xba')
-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 20129c17357d..dd5be2877283 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1446,7 +1446,7 @@ Dim i As Integer, l As Long lNextPattern = InStr(lCurrentChar, psString, vPatterns(i), 1) ' Text (not case-sensitive) string comparison If lNextPattern > 0 And lNextPattern < lPattern Then lPattern = lNextPattern - sPattern = Mid(psString, lPattern, Len(vPatterns(i)) + sPattern = Mid(psString, lPattern, Len(vPatterns(i))) End If Next i ' Up to the next pattern or to the end of the string, UTF8-encode each character |