diff options
Diffstat (limited to 'wizards/source/access2base/Database.xba')
-rw-r--r-- | wizards/source/access2base/Database.xba | 3 |
1 files changed, 1 insertions, 2 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 |