diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Field.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba index 0c3b6ef2880e..adf73818243d 100644 --- a/wizards/source/access2base/Field.xba +++ b/wizards/source/access2base/Field.xba @@ -704,7 +704,7 @@ Dim oParent As Object End If Case .CHAR, .VARCHAR, .LONGVARCHAR, .CLOB If Not Utils._CheckArgument(pvValue, iArgNr, vbString, , False) Then Goto Trace_Error_Value - If Len(pvValue) > _Precision Then Goto Trace_Error_Length + If _Precision > 0 And Len(pvValue) > _Precision Then Goto Trace_Error_Length Column.updateString(pvValue) ' vbString Case .DATE If Not Utils._CheckArgument(pvValue, iArgNr, vbDate, , False) Then Goto Trace_Error_Value @@ -776,7 +776,7 @@ Trace_Error_Updatable: _PropertySet = False Goto Exit_Function Trace_Error_Length: - TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(lSize, "AppendChunk")) + TraceError(TRACEFATAL, ERROVERFLOW, Utils._CalledSub(), 0, , Array(Len(pvValue), "AppendChunk")) _PropertySet = False Goto Exit_Function Error_Function: |