wizards/source/access2base/Database.xba |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

New commits:
commit f57502e75cae1020f3fcfa5919802a78a6ccb6ff
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Sat Nov 12 15:05:49 2016 +0100

    Access2Base - 3 typos
    
    Change-Id: Ie501bc7190a8eccc2810ccac2dddaec52813f1a2

diff --git a/wizards/source/access2base/Database.xba 
b/wizards/source/access2base/Database.xba
index 8853295..72445e0 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)
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits

Reply via email to