diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2015-07-25 12:56:38 +0200 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2015-07-25 13:00:29 +0200 |
| commit | 379737991f0fe26dca74d72aa32bd94fe55402d3 (patch) | |
| tree | b52686374f77caa14ee8fe6e5a75ff7cced2c917 /wizards/source | |
| parent | e783cc71eec1f581835a84560904b948f464b435 (diff) | |
Access2Base - Correct CommandBarControls collection
Make the Item property of the CommandBarControls collection work correctly
thanks to a complete initialization of the object.
Change-Id: I714d1034d69be197f68702b0e2d7b21ff64ffff8
Diffstat (limited to 'wizards/source')
| -rw-r--r-- | wizards/source/access2base/CommandBar.xba | 1 | ||||
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 2 | ||||
| -rw-r--r-- | wizards/source/access2base/UtilProperty.xba | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/wizards/source/access2base/CommandBar.xba b/wizards/source/access2base/CommandBar.xba index 93bc884383e1..ed7955d3cef1 100644 --- a/wizards/source/access2base/CommandBar.xba +++ b/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 diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index 54156558a5c8..261aa26b5ce8 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -2466,4 +2466,4 @@ Dim oShell As Object oShell.execute(sCommand, "" , com.sun.star.system.SystemShellExecuteFlags.DEFAULTS) End Sub ' _ShellExecute V0.8.5 -</script:module> +</script:module>
\ No newline at end of file diff --git a/wizards/source/access2base/UtilProperty.xba b/wizards/source/access2base/UtilProperty.xba index 4f96ab8c9e85..b26555054aa2 100644 --- a/wizards/source/access2base/UtilProperty.xba +++ b/wizards/source/access2base/UtilProperty.xba @@ -180,4 +180,4 @@ Dim sName As String, vValue As Variant _PropValuesToStr() = sResult End Function ' _PropValuesToStr V1.3.0 -</script:module> +</script:module>
\ No newline at end of file |