From f57502e75cae1020f3fcfa5919802a78a6ccb6ff Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Sat, 12 Nov 2016 15:05:49 +0100 Subject: Access2Base - 3 typos Change-Id: Ie501bc7190a8eccc2810ccac2dddaec52813f1a2 --- wizards/source/access2base/Database.xba | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'wizards/source') diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 8853295bb14f..72445e0f3407 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -483,17 +483,17 @@ Dim sObjects() As String, bFound As Boolean, oTables As Object, oQueries As Obje If IsMissing(pvType) Then pvType = cstNull Else - If Not Utils._CheckArgument(pvType, 1, Utils._AddNumeric(), dbOpenForwardOnly) Then Goto Exit_Function + If Not Utils._CheckArgument(pvType, 2, Utils._AddNumeric(), dbOpenForwardOnly) Then Goto Exit_Function End If If IsMissing(pvOptions) Then pvOptions = cstNull Else - If Not Utils._CheckArgument(pvOptions, 2, Utils._AddNumeric(), dbSQLPassThrough) Then Goto Exit_Function + If Not Utils._CheckArgument(pvOptions, 3, Utils._AddNumeric(), dbSQLPassThrough) Then Goto Exit_Function End If If IsMissing(pvLockEdit) Then pvLockEdit = cstNull Else - If Not Utils._CheckArgument(pvLockEdit, 3, Utils._AddNumeric(), dbReadOnly) Then Goto Exit_Function + If Not Utils._CheckArgument(pvLockEdit, 4, Utils._AddNumeric(), dbReadOnly) Then Goto Exit_Function End If sSource = Split(UCase(Trim(pvSource)), " ")(0) -- cgit