From 0bf25edae966625323be7454a813b76327471689 Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Mon, 25 Jan 2021 18:26:29 +0100 Subject: [PATCH] Access2Base - (Control.xba) FIX Get DefaultValue for DateField controls The DefaultDate was read correctly but not returned to the calling program Change-Id: Ie15a48a6366c1575f4914a2b60c836890fe53a43 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/109921 Tested-by: Jean-Pierre Ledure Tested-by: Jenkins Reviewed-by: Jean-Pierre Ledure --- wizards/source/access2base/Control.xba | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba index 5e241186f081..e0f77b2e8f78 100644 --- a/wizards/source/access2base/Control.xba +++ b/wizards/source/access2base/Control.xba @@ -1474,10 +1474,10 @@ Dim oControlEvents As Object, sEventName As String Select Case VarType(ControlModel.DefaultDate) Case vbLong ' AOO and LO <= 4.1 vDefaultValue = ControlModel.DefaultDate - vGet = DateSerial(Left(vDefaultValue, 4), Mid(vDefaultValue, 5, 2), Right(vDefaultValue, 2)) + _PropertyGet = DateSerial(Left(vDefaultValue, 4), Mid(vDefaultValue, 5, 2), Right(vDefaultValue, 2)) Case vbObject ' LO >= 4.2 com.sun.star.Util.Date Set oDefaultValue = ControlModel.DefaultDate - vGet = DateSerial(oDefaultValue.Year,oDefaultValue.Month, oDefaultValue.Day) + _PropertyGet = DateSerial(oDefaultValue.Year,oDefaultValue.Month, oDefaultValue.Day) Case vbEmpty End Select End If