From b9f6c3f9ed96a13c6c25d4002bd593bdbde6fd70 Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Fri, 16 May 2014 17:34:52 +0200 Subject: [PATCH] Access2Base - Correct error message for some actions Change-Id: I8b49886c3b9a884ffc8e68c7483be8f940c3449e Reviewed-on: https://gerrit.libreoffice.org/9376 Reviewed-by: Lionel Elie Mamane Tested-by: Lionel Elie Mamane --- wizards/source/access2base/DoCmd.xba | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index 22e3ef775174..2ece7005f23b 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))