summaryrefslogtreecommitdiff
path: root/wizards/source/access2base/Database.xba
diff options
context:
space:
mode:
authorJean-Pierre Ledure <jp@ledure.be>2016-11-12 15:05:49 +0100
committerJean-Pierre Ledure <jp@ledure.be>2016-11-12 15:05:49 +0100
commitf57502e75cae1020f3fcfa5919802a78a6ccb6ff (patch)
tree58a1460e45b0e7a606cf1dd9da2415267fe6231e /wizards/source/access2base/Database.xba
parentfeed5f8a4b3f995a9591a015ba1554078cad9f9f (diff)
Access2Base - 3 typos
Change-Id: Ie501bc7190a8eccc2810ccac2dddaec52813f1a2
Diffstat (limited to 'wizards/source/access2base/Database.xba')
-rw-r--r--wizards/source/access2base/Database.xba6
1 files changed, 3 insertions, 3 deletions
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)), &quot; &quot;)(0)