wizards/source/access2base/Application.xba | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-)
New commits: commit 2562a7b60214c1a0cd5393ca3f75e949dd58d5f3 Author: Jean-Pierre Ledure <[email protected]> AuthorDate: Wed Dec 22 12:44:59 2021 +0100 Commit: Jean-Pierre Ledure <[email protected]> CommitDate: Wed Dec 22 16:07:20 2021 +0100 Access2Base - Fix argument check in OpenDatabase() Read Mike Kaganski's comment in https://gerrit.libreoffice.org/c/core/+/9303 Change-Id: I8d89d9dd93dd6c31438418847d4073568baf11f6 Reviewed-on: https://gerrit.libreoffice.org/c/core/+/127312 Tested-by: Jenkins Tested-by: Jean-Pierre Ledure <[email protected]> Reviewed-by: Jean-Pierre Ledure <[email protected]> diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 224cc394a99d..74bb43558928 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1406,8 +1406,8 @@ Dim sDatabaseURL As String If _ErrorHandler() Then On Local Error Goto Error_Function Const cstThisSub = "OpenDatabase" Utils._SetCalledSub(cstThisSub) - If pvDatabaseURL = "" Then Call _TraceArguments() If Not Utils._CheckArgument(pvDatabaseURL, 1, vbString) Then Goto Exit_Function + If pvDatabaseURL = "" Then Call _TraceArguments() If IsMissing(pvUser) Then pvUser = "" If IsMissing(pvPassword) Then pvPassword = "" If Not Utils._CheckArgument(pvUser, 2, vbString) Then Goto Exit_Function
