diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2018-02-16 15:18:37 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2018-02-16 15:21:23 +0100 |
| commit | 585d43110c2f781cc07f53c8fdfd271578984e72 (patch) | |
| tree | e0ef6e76c93ef55c9f385a95066cd95e23ddb229 /wizards | |
| parent | 413c7b426543e71f4865c858b5b4ca62b48573d3 (diff) | |
Access2Base - Nicer representation of booleans in OutputTo action
Replacement of True/False output characters
Addition of "false" class
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Database.xba | 3 | ||||
| -rw-r--r-- | wizards/source/access2base/acConstants.xba | 2 |
2 files changed, 3 insertions, 2 deletions
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 ----------------------------------------------------------------- |