diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2016-03-12 16:11:03 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2016-03-12 16:11:03 +0100 |
| commit | 259fc9f32eb70bd3b07775f2e11524ab75510e1c (patch) | |
| tree | 0005447dad8e7ed456f8cf8543f8f808c6c86689 /wizards | |
| parent | 33b2d58895a57319364fef540051b1ef544fc954 (diff) | |
Access2Base - Correct error message and other typo's
Change-Id: Ia046bcd8ca8e90566348b507f18d881030bd64c3
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/DataDef.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/Field.xba | 2 |
3 files changed, 2 insertions, 4 deletions
diff --git a/wizards/source/access2base/DataDef.xba b/wizards/source/access2base/DataDef.xba index a283264e2395..df416c09d9f9 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 1b6e481f360b..8fe7ec990da7 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 cd8b930f9b66..7bff09d3e969 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 |