diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2021-12-22 12:44:59 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2021-12-22 16:07:20 +0100 |
| commit | 2562a7b60214c1a0cd5393ca3f75e949dd58d5f3 (patch) | |
| tree | 32dff305413681d51091263a1b74d68a9da231f7 /wizards | |
| parent | 5df35405494b2726f214c852e78ad8852d7c4829 (diff) | |
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 <jp@ledure.be>
Reviewed-by: Jean-Pierre Ledure <jp@ledure.be>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Application.xba | 2 |
1 files changed, 1 insertions, 1 deletions
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 |