Access2Base - Errors in CommandBarControls collection

- correct return value in Execute method: returned alays False, should return True when successful
- Item property of collection did not work because incomplete object initialisation

Change-Id: I9b2e682afb21747766e918bf905e35d9485b751d
Reviewed-on: https://gerrit.libreoffice.org/17351Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Miklos Vajna <vmiklos@collabora.co.uk>

wizards/source/access2base/CommandBar.xba

@@ -170,6 +170,7 @@ Dim oObject As Object
 				Set oObject = New Collect
 				oObject._CollType = COLLCOMMANDBARCONTROLS
 				oObject._ParentType = OBJCOMMANDBAR
+				oObject._ParentName = _Name
 				oObject._Count = iItemsCount
 			Case Else		'	pvIndex is numeric
 				Goto Trace_IndexError

wizards/source/access2base/CommandBarControl.xba

@@ -152,24 +152,25 @@ Const cstThisSub = "CommandBarControl.Execute"
 	Utils._SetCalledSub(cstThisSub)
 
 Dim sExecute As String
-	Execute = False
+
+	Execute = True
 	sExecute = _GetPropertyValue(_Element, "CommandURL", "")
 
 	Select Case True
-		Case sExecute = ""
+		Case sExecute = ""		:	Execute = False
 		Case _IsLeft(sExecute, ".uno:")
 			Execute = DoCmd.RunCommand(sExecute)
 		Case _IsLeft(sExecute, "vnd.sun.star.script:")
 			Execute = Utils._RunScript(sExecute, Array(Nothing))
 		Case Else
 	End Select
-
+	
 Exit_Function:
 	Utils._ResetCalledSub(cstThisSub)
 	Exit Function
 Error_Function:
 	TraceError(TRACEABORT, Err, cstThisSub, Erl)
-	Reset = False
+	Execute = False
 	GoTo Exit_Function
 End Function	'	Execute	V1.3.0
 

wizards/source/access2base/DoCmd.xba

@@ -2016,7 +2016,7 @@ End Sub				'	_DispatchCommand	V1.3.0
 
 REM -----------------------------------------------------------------------------------------------------------------------
 Private Function _getTempDirectoryURL()	As String
-'	Return the tempry directory defined in the OO Options (Paths)
+'	Return the temporary directory defined in the OO Options (Paths)
 Dim sDirectory As String, oSettings As Object, oPathSettings As Object	
 
 	If _ErrorHandler() Then On Local Error Goto Error_Function

wizards/source/access2base/UtilProperty.xba

@@ -156,7 +156,7 @@ Dim iNumProperties As Integer, i As Integer
 				pvPropertyValuesArray(i) = pvPropertyValuesArray(i + 1)
 			Next i
 		EndIf
-		' Redimension the array to have one feweer element.
+		' Redimension the array to have one fewer element.
 		Redim Preserve pvPropertyValuesArray(iNumProperties - 2)
 	EndIf