wizards/source/access2base/PropertiesGet.xba | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
New commits:
commit fcb2b4695fdc7f5c9915a176762cfcbafe96e945
Author: Jean-Pierre Ledure <j...@ledure.be>
AuthorDate: Mon Aug 24 18:07:45 2020 +0200
Commit: Jean-Pierre Ledure <j...@ledure.be>
CommitDate: Mon Aug 24 18:14:29 2020 +0200
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
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")
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
