[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/DataDef.xba |    2 +-
 wizards/source/access2base/DoCmd.xba   |    2 --
 wizards/source/access2base/Field.xba   |    2 +-
 3 files changed, 2 insertions(+), 4 deletions(-)

New commits:
commit 259fc9f32eb70bd3b07775f2e11524ab75510e1c
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Sat Mar 12 16:11:03 2016 +0100

    Access2Base - Correct error message and other typo's
    
    Change-Id: Ia046bcd8ca8e90566348b507f18d881030bd64c3

diff --git a/wizards/source/access2base/DataDef.xba 
b/wizards/source/access2base/DataDef.xba
index a283264..df416c0 100644
--- a/wizards/source/access2base/DataDef.xba
+++ b/wizards/source/access2base/DataDef.xba
@@ -15,7 +15,7 @@ REM --- CLASS ROOT FIELDS                                     
                                                                                
                                                                ---
 REM 
-----------------------------------------------------------------------------------------------------------------------
 
 Private        _Type                                   As String               
                &apos;  Must be TABLEDEF or QUERYDEF
-Private _Name                                  As String
+Private _Name                                  As String                       
        &apos;  For tables: [[Catalog.]Schema.]Table
 Private _ParentDatabase                        As Object
 Private _ReadOnly                              As Boolean
 Private Table                                  As Object                       
        &apos;  com.sun.star.sdb.dbaccess.ODBTable
diff --git a/wizards/source/access2base/DoCmd.xba 
b/wizards/source/access2base/DoCmd.xba
index 1b6e481..8fe7ec9 100644
--- a/wizards/source/access2base/DoCmd.xba
+++ b/wizards/source/access2base/DoCmd.xba
@@ -25,8 +25,6 @@ Type _FindParams
        ResultSetIndex()                As Integer              &apos;  Array 
of column numbers in ResultSet
 End Type
 
-&apos;Global _gFind                            As _FindParams
-
 Type _Window
        Frame                                   As Object               &apos;  
com.sun.star.comp.framework.Frame
        _Name                                   As String               &apos;  
Object Name
diff --git a/wizards/source/access2base/Field.xba 
b/wizards/source/access2base/Field.xba
index cd8b930..7bff09d 100644
--- a/wizards/source/access2base/Field.xba
+++ b/wizards/source/access2base/Field.xba
@@ -198,7 +198,7 @@ Dim oValue As Object, bNullable As Boolean, bNull As 
Boolean, vValue() As Varian
        End If
        If Not Utils._CheckArgument(pvBytes, 2, _AddNumeric()) Then Goto 
Exit_Function
        If pvBytes &lt; 0 Then
-               TraceError(TRACEFATAL, ERRWRONGARGUMENT, Utils._CalledSub(), 0, 
, Array(1, pvBytes))
+               TraceError(TRACEFATAL, ERRWRONGARGUMENT, Utils._CalledSub(), 0, 
, Array(2, pvBytes))
                Goto Exit_Function
        End If
 
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits