core.git: wizards/source

[Jean-Pierre Ledure (via logerrit)]

 wizards/source/access2base/Field.xba |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

New commits:
commit 58336d587e5c37d54a80f72bb168f4ee974a0861
Author:     Jean-Pierre Ledure <j...@ledure.be>
AuthorDate: Thu Sep 18 15:48:47 2025 +0200
Commit:     Jean-Pierre Ledure <j...@ledure.be>
CommitDate: Fri Sep 19 17:01:36 2025 +0200

    Access2Base fix float Value setting
    
    The Field class has a generic Value property
       field.Value = ...
    for setting the content of a database field
    whatever its datatype.
    
    The property checks the validity of the
    given value before running the real
    database update.
    
    The check for FLOAT datatype was erroneous
    and prevented to enter the value zero into
    the field.
    
    See Mike kaganski's remark in
      https://gerrit.libreoffice.org/c/core/+/155507
    
    Change-Id: I0651586c5c51ddf3273fef5fcc1e57355b7af2f4
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/191128
    Reviewed-by: Jean-Pierre Ledure <j...@ledure.be>
    Tested-by: Jenkins

diff --git a/wizards/source/access2base/Field.xba 
b/wizards/source/access2base/Field.xba
index 1fe2f185e24c..d796f864005a 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -689,10 +689,9 @@ Dim oParent As Object
                                                        
Column.updateLong(pvValue)              &apos;  No proper type conversion for 
HYPER data type
                                                Case .FLOAT
                                                        If Not 
Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto 
Trace_Error_Value
-                                                       If Abs(pvValue) &lt; 
3.402823E38 And Abs(pvValue) &gt; 1.401298E-45 Then 
Column.updateFloat(CSng(pvValue)) Else Goto trace_Error_Value
+                                                       
Column.updateFloat(CSng(pvValue))
                                                Case .REAL, .DOUBLE
                                                        If Not 
Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto 
Trace_Error_Value
-                                                       &apos;If Abs(pvValue) 
&lt; 1.79769313486232E308 And Abs(pvValue) &gt; 4.94065645841247E-307 Then 
Column.updateDouble(CDbl(pvValue)) Else Goto trace_Error_Value
                                                        
Column.updateDouble(CDbl(pvValue))
                                                Case .NUMERIC, .DECIMAL
                                                        If Not 
Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto 
Trace_Error_Value