diff options
Diffstat (limited to 'wizards/source/access2base/Compatible.xba')
-rw-r--r-- | wizards/source/access2base/Compatible.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/access2base/Compatible.xba b/wizards/source/access2base/Compatible.xba index f3d3ad940626..30cab096180f 100644 --- a/wizards/source/access2base/Compatible.xba +++ b/wizards/source/access2base/Compatible.xba @@ -19,7 +19,7 @@ Dim vVarTypes() As Variant, i As Integer Const cstTab = 5 On Local Error Goto Exit_Sub ' Never interrupt processing Utils._SetCalledSub("DebugPrint") - vVarTypes = Utils._AddNumeric(Array(vbEmpty, vbNull, vbDate, vbString, vbBoolean, vbObject, vbVariant)) + vVarTypes = Utils._AddNumeric(Array(vbEmpty, vbNull, vbDate, vbString, vbBoolean, vbObject, vbVariant, vbByte, 8192 + vbByte)) If UBound(pvArgs) >= 0 Then For i = 0 To UBound(pvArgs) |