From 585d43110c2f781cc07f53c8fdfd271578984e72 Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Fri, 16 Feb 2018 15:18:37 +0100 Subject: Access2Base - Nicer representation of booleans in OutputTo action Replacement of True/False output characters Addition of "false" class --- wizards/source/access2base/Database.xba | 3 ++- wizards/source/access2base/acConstants.xba | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) (limited to 'wizards/source') diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 30b412fb9cfa..e82b15d25b55 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1344,7 +1344,7 @@ REM ---------------------------------------------------------------------------- Private Function _OutputBooleanToHTML(ByVal pbBool As Boolean) As String ' Converts input boolean value to HTML compatible string - _OutputBooleanToHTML = Iif(pbBool, "&#9745;", "&#9746;") + _OutputBooleanToHTML = Iif(pbBool, "&#x2714;", "&#x2716;") ' ✔ and ✖ End Function ' _OutputBooleanToHTML V1.4.0 @@ -1454,6 +1454,7 @@ Const cstMaxRows = 200 Print #piFile, " <td" & _OutputClassToHTML(vTdClass) & ">" & _OutputNumberToHTML(vDataCell) & "</td>" Case vbBoolean vTdClass() = _AddArray(vTdClass, "bool") + If vDataCell = False Then vTdClass() = _AddArray(vTdClass, "false") Print #piFile, " <td" & _OutputClassToHTML(vTdClass) & ">" & _OutputBooleanToHTML(vDataCell) & "</td>" Case vbDate vTdClass() = _AddArray(vTdClass, "date") diff --git a/wizards/source/access2base/acConstants.xba b/wizards/source/access2base/acConstants.xba index f2aeb26ea82c..1e0da5d3c4c4 100644 --- a/wizards/source/access2base/acConstants.xba +++ b/wizards/source/access2base/acConstants.xba @@ -8,7 +8,7 @@ REM ============================================================================ Option Explicit REM Access2Base ----------------------------------------------------- -Global Const Access2Base_Version = "1.8.0" +Global Const Access2Base_Version = "1.9.0" REM AcCloseSave REM ----------------------------------------------------------------- -- cgit