summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJean-Pierre Ledure <jp@ledure.be>2014-08-29 22:24:06 +0200
committerJean-Pierre Ledure <jp@ledure.be>2014-08-29 15:48:41 -0500
commit8718bcc3d74e5eed7499ec1359aff10659faaebc (patch)
tree5e13bd023676ae400c7d72acbe626d6eac892ac4
parent6d239ee19a4b1d9068fbd04b5a692c859142f613 (diff)
Access2Base - PATCH-01 Field.setValue
Gives erroneously an error message when argument is Null and field is nullable https://forum.openoffice.org/en/forum/viewtopic.php?f=47&t=61447&sid=48e231a12084933d9da1b47e50b186ea#p323714 Change-Id: I37be06e5c30f1294756d28ba88d903f9fa28d8bb Reviewed-on: https://gerrit.libreoffice.org/11198 Reviewed-by: Jean-Pierre Ledure <jp@ledure.be> Tested-by: Jean-Pierre Ledure <jp@ledure.be>
-rw-r--r--wizards/source/access2base/Field.xba8
1 files changed, 7 insertions, 1 deletions
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba
index 871133f2eba6..3e2721620074 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -514,7 +514,13 @@ Dim oParent As Object
If _ParentDatabase.Recordsets(_ParentName)._EditMode = dbEditNone Then Goto Trace_Error_Update
With com.sun.star.sdbc.DataType
If IsNull(pvValue) Then
- If Column.IsNullable = com.sun.star.sdbc.ColumnValue.NULLABLE Then Column.updateNull() Else Goto Trace_Null
+REM If Column.IsNullable = com.sun.star.sdbc.ColumnValue.NULLABLE Then Column.updateNull() Else Goto Trace_Null
+ If Column.IsNullable = com.sun.star.sdbc.ColumnValue.NULLABLE Then
+ Column.updateNull()
+ Goto Exit_Function
+ Else
+ Goto Trace_Null
+ End If
End If
Select Case Column.Type
Case .BIT, .BOOLEAN