From 115a6d2587a03218d41c173beb437a6bf59def10 Mon Sep 17 00:00:00 2001
From: Jean-Pierre Ledure <jp@ledure.be>
Date: Sat, 12 Dec 2015 16:36:34 +0100
Subject: Access2Base - More coherent use of the acUTF8Encoding constant

Change-Id: Ibcffe9d8b85d552f53246a3ac751000673705ab3
---
 wizards/source/access2base/Database.xba    | 3 +--
 wizards/source/access2base/acConstants.xba | 2 +-
 2 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'wizards')

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 = &quot;,&quot;
 Const cstTextDelimitor = &quot;&quot;&quot;&quot;
-Const cstCharacterSet = 76			&apos;	Unicode (UTF-8)
 
 	If _DecimalPoint() = &quot;,&quot; Then sFieldSeparator = &quot;;&quot; Else sFieldSeparator = cstComma
 	_FilteroptionsDefault = Trim(Str(Asc(sFieldSeparator))) _
 								&amp; cstComma &amp; Trim(Str(Asc(cstTextDelimitor))) _
-								&amp; cstComma &amp; Trim(Str(cstCharacterSet)) _
+								&amp; cstComma &amp; Trim(Str(acUTF8Encoding)) _
 								&amp; cstComma &amp; &quot;1&quot;
 
 End Function		&apos;	_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 -----------------------------------------------------------------
-- 
cgit