diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2021-01-25 18:26:29 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2021-01-26 11:45:48 +0100 |
| commit | 0bf25edae966625323be7454a813b76327471689 (patch) | |
| tree | d16d8bedc5bdea0323df52ca29f0670cda79b173 /wizards | |
| parent | 807a63d66010b1969cfbb61d3609b91909872399 (diff) | |
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 <jp@ledure.be>
Tested-by: Jenkins
Reviewed-by: Jean-Pierre Ledure <jp@ledure.be>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Control.xba | 4 |
1 files 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 |