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

[Jean-Pierre Ledure]

 wizards/source/access2base/DoCmd.xba |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

New commits:
commit b9f6c3f9ed96a13c6c25d4002bd593bdbde6fd70
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Fri May 16 17:34:52 2014 +0200

    Access2Base - Correct error message for some actions
    
    Change-Id: I8b49886c3b9a884ffc8e68c7483be8f940c3449e
    Reviewed-on: https://gerrit.libreoffice.org/9376
    Reviewed-by: Lionel Elie Mamane <lionel at mamane.lu>
    Tested-by: Lionel Elie Mamane <lionel at mamane.lu>

diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba
index 22e3ef7..2ece700 100644
--- a/wizards/source/access2base/DoCmd.xba
+++ b/wizards/source/access2base/DoCmd.xba
@@ -1020,7 +1020,7 @@ Error_Function:
 	Set OpenForm = Nothing
 	GoTo Exit_Function
 Error_NotApplicable:
-	TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+	TraceError(TRACEFATAL, ERRACTION, Utils._CalledSub(), 0, 1)
 	Goto Exit_Function
 Trace_Error:
 	TraceError(TRACEFATAL, ERROPENFORM, Utils._CalledSub(), 0, , pvFormName)
@@ -1925,7 +1925,7 @@ Trace_Error:
 	TraceError(TRACEFATAL, ERROPENOBJECT, Utils._CalledSub(), 0, , Array(_GetLabel(psObjectType), pvObjectName))
 	Goto Exit_Function
 Error_NotApplicable:
-	TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+	TraceError(TRACEFATAL, ERRACTION, Utils._CalledSub(), 0, 1)
 	Goto Exit_Function
 Trace_NotFound:
 	TraceError(TRACEFATAL, ERROBJECTNOTFOUND, Utils._CalledSub(), 0, , Array(_GetLabel(psObjectType), pvObjectName))