diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2020-08-24 18:07:45 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2020-08-24 18:14:29 +0200 |
commit | fcb2b4695fdc7f5c9915a176762cfcbafe96e945 (patch) | |
tree | 5de845c9748be17b80ac0292386d87c708075e79 /wizards | |
parent | 59bf6c60caae02207f2604e6becdf6e65278bc9f (diff) |
Access2Base - tdf#136063 Workaround Basic missing argument handling
When an argument is missing in a call to a Basic function
the IsMissing() function applied on the argument
should respond True.
However sometimes(?) the argument contains instead "Error 448"
making IsMissing responding False.
This commit puts an explicit argument in the function call
avoiding the different behaviour of the Basic interpreter
in LO 7.0 vs. previous releases.
Change-Id: Ic90fb7ec9b6e520cc762a441ca383b54c5d4db16
Diffstat (limited to 'wizards')
-rw-r--r-- | wizards/source/access2base/PropertiesGet.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/access2base/PropertiesGet.xba b/wizards/source/access2base/PropertiesGet.xba index 332eaaa2e5c2..e6d481ec68e5 100644 --- a/wizards/source/access2base/PropertiesGet.xba +++ b/wizards/source/access2base/PropertiesGet.xba @@ -1017,7 +1017,7 @@ Dim sObject As String _hasProperty = False If Not Utils._CheckArgument(pvProperty, 1, vbString) Then Goto Exit_Function - _hasProperty = Utils._InList(pvProperty, pvPropertiesList(), , True) + _hasProperty = Utils._InList(pvProperty, pvPropertiesList(), False, True) Exit_Function: Utils._ResetCalledSub(sObject & ".hasProperty") |