diff options
Diffstat (limited to 'wizards/source/access2base/Compatible.xba')
| -rw-r--r-- | wizards/source/access2base/Compatible.xba | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/wizards/source/access2base/Compatible.xba b/wizards/source/access2base/Compatible.xba index 92012b56a420..77e99bcdc97c 100644 --- a/wizards/source/access2base/Compatible.xba +++ b/wizards/source/access2base/Compatible.xba @@ -23,18 +23,14 @@ Const cstTab = 5 If UBound(pvArgs) >= 0 Then For i = 0 To UBound(pvArgs) -' If IsError(pvArgs(i)) Then ' IsError gives "Object variable not set" in LO 4,0 ?!? -' pvArgs(i) = "[ERROR]" -' Else - If Not Utils._CheckArgument(pvArgs(i), i + 1, vVarTypes(), , False) Then pvArgs(i) = "[TYPE?]" -' End If + If Not Utils._CheckArgument(pvArgs(i), i + 1, vVarTypes(), , False) Then pvArgs(i) = "[TYPE?]" Next i End If Dim sOutput As String, sArg As String sOutput = "" For i = 0 To UBound(pvArgs) - sArg = Utils._CStr(pvArgs(i), _A2B_.DebugPrintShort) + sArg = Replace(Utils._CStr(pvArgs(i), _A2B_.DebugPrintShort), "\;", ";") ' Add argument to output If i = 0 Then sOutput = sArg |