diff options
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/access2base/Database.xba | 3 | ||||
| -rw-r--r-- | wizards/source/access2base/acConstants.xba | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 52aafa0cafa5..81a233ef318b 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1016,12 +1016,11 @@ Private Function _FilterOptionsDefault() As String Dim sFieldSeparator as string Const cstComma = "," Const cstTextDelimitor = """" -Const cstCharacterSet = 76 ' Unicode (UTF-8) If _DecimalPoint() = "," Then sFieldSeparator = ";" Else sFieldSeparator = cstComma _FilteroptionsDefault = Trim(Str(Asc(sFieldSeparator))) _ & cstComma & Trim(Str(Asc(cstTextDelimitor))) _ - & cstComma & Trim(Str(cstCharacterSet)) _ + & cstComma & Trim(Str(acUTF8Encoding)) _ & cstComma & "1" End Function ' _FilterOptionsDefault V1.4.0 diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba index 1a3db6a8e230..5c390cbc3122 100644 --- a/wizards/source/access2base/acConstants.xba +++ b/wizards/source/access2base/acConstants.xba @@ -279,7 +279,7 @@ Global Const acOutputForm = 2 REM AcEncoding REM ----------------------------------------------------------------- -Global Const acUTF8Encoding = 65001 +Global Const acUTF8Encoding = 76 REM AcFormat REM ----------------------------------------------------------------- |