diff options
| -rw-r--r-- | wizards/source/access2base/Database.xba | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index cf8617e0b285..72f73cb8daf2 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1458,7 +1458,9 @@ Const cstMaxRows = 200 If Not vFieldsBin(i) Then If bDataArray Then vDataCell = pvData(i, j) Else vDataCell = vData(i, j) If vDataCell Is Nothing Then vDataCell = Null ' Necessary because Null object has not a VarType = vbNull - If IsDate(vDataCell) And VarType(vDataCell) = vbString Then vDataCell = CDate(vDataCell) + If VarType(vDataCell) = vbString Then ' Null string gives IsDate = True ! + If Len(vDataCell) > 0 And IsDate(vDataCell) Then vDataCell = CDate(vDataCell) + End If Select Case VarType(vDataCell) Case vbEmpty, vbNull vTdClass() = _AddArray(vTdClass, "null") @@ -1563,7 +1565,7 @@ Dim i As Integer, l As Long lCurrentChar = 1 sOutput = "" - + Do While lCurrentChar <= Len(psString) ' Where is next closest pattern ? lPattern = Len(psString) + 1 |