diff options
| -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 |