[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 <jp at 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				'	Must be TABLEDEF or QUERYDEF
-Private _Name					As String
+Private _Name					As String				'	For tables: [[Catalog.]Schema.]Table
 Private _ParentDatabase			As Object
 Private _ReadOnly				As Boolean
 Private Table					As Object				'	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		'	Array of column numbers in ResultSet
 End Type
 
-'Global _gFind				As _FindParams
-
 Type _Window
 	Frame					As Object		'	com.sun.star.comp.framework.Frame
 	_Name					As String		'	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 < 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