summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJean-Pierre Ledure <jp@ledure.be>2020-08-24 18:07:45 +0200
committerJean-Pierre Ledure <jp@ledure.be>2020-08-24 18:14:29 +0200
commitfcb2b4695fdc7f5c9915a176762cfcbafe96e945 (patch)
tree5de845c9748be17b80ac0292386d87c708075e79
parent59bf6c60caae02207f2604e6becdf6e65278bc9f (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
-rw-r--r--wizards/source/access2base/PropertiesGet.xba2
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 &amp; &quot;.hasProperty&quot;)