Access2Base - Bug when event triggered by toolbar button

Argument given by LO to macro triggered by toolbar button is an integer, not an object.
This should not cause a visible error for the end-user from within the Events() Sub

Change-Id: I4a307270b0d5cf2992b3bb304deb8cd30222dd95
Reviewed-on: https://gerrit.libreoffice.org/9452Reviewed-by: Lionel Elie Mamane <lionel@mamane.lu>
Tested-by: Lionel Elie Mamane <lionel@mamane.lu>

wizards/source/access2base/Application.xba

@@ -641,7 +641,7 @@ Const cstThisSub = "Events"
 	If IsMissing(poEvent) Then Goto Exit_Function
 	If IsNull(poEvent) Then Goto Exit_Function
 
-	If Not Utils._CheckArgument(poEvent, 1, vbObject) Then Goto Exit_Function
+	If Not Utils._CheckArgument(poEvent, 1, vbObject, , False) Then Goto Exit_Function	'	No error handling in CheckArgument
 	If Not Utils._hasUNOProperty(poEvent, "Source") Then Goto Trace_Error
 	Set vEvent = New Event
 	vEvent._Initialize(poEvent)

wizards/source/access2base/DoCmd.xba

@@ -1297,7 +1297,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, cstThisSub)
 	Goto Exit_Function
 End Function		'	Quit	V1.1.0
 
@@ -1792,7 +1792,7 @@ Exit_Function:
 	Utils._ResetCalledSub(cstThisSub)
 	Exit Function		
 Error_NotApplicable:
-	TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+	TraceError(TRACEFATAL, ERRACTION, Utils._CalledSub(), 0, 1, cstThisSub)
 	Goto Exit_Function
 Error_Function:
 	TraceError(TRACEABORT, Err, cstThisSub, Erl)