diff options
Diffstat (limited to 'wizards/source/access2base/CommandBarControl.xba')
-rw-r--r-- | wizards/source/access2base/CommandBarControl.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/access2base/CommandBarControl.xba b/wizards/source/access2base/CommandBarControl.xba index f0c7403cbb51..b4676ea48fcf 100644 --- a/wizards/source/access2base/CommandBarControl.xba +++ b/wizards/source/access2base/CommandBarControl.xba @@ -108,9 +108,9 @@ Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String vPropertiesList = _PropertiesList() sObject = Utils._PCase(_Type) If IsMissing(pvIndex) Then - vProperty = PropertiesGet._Properties(sObject, _Name, vPropertiesList) + vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList) Else - vProperty = PropertiesGet._Properties(sObject, _Name, vPropertiesList, pvIndex) + vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex) vProperty._Value = _PropertyGet(vPropertiesList(pvIndex)) End If |