diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2015-12-12 16:36:34 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2015-12-12 16:36:34 +0100 |
| commit | 115a6d2587a03218d41c173beb437a6bf59def10 (patch) | |
| tree | 0d7ba1ee7632b4fd2aa7dbd7a08944fcffa79cc8 | |
| parent | c2b2e698666ab51c346087b69a119a3b2026f23c (diff) | |
Access2Base - More coherent use of the acUTF8Encoding constant
Change-Id: Ibcffe9d8b85d552f53246a3ac751000673705ab3
| -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 ----------------------------------------------------------------- |