diff options
Diffstat (limited to 'wizards/source/access2base/Control.xba')
-rw-r--r-- | wizards/source/access2base/Control.xba | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/wizards/source/access2base/Control.xba b/wizards/source/access2base/Control.xba index 39afaee804a3..1c8a994d3d5c 100644 --- a/wizards/source/access2base/Control.xba +++ b/wizards/source/access2base/Control.xba @@ -522,9 +522,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, _Shortcut, vPropertiesList) + vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList) Else - vProperty = PropertiesGet._Properties(sObject, _Shortcut, vPropertiesList, pvIndex) + vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex) vProperty._Value = _PropertyGet(vPropertiesList(pvIndex)) End If @@ -769,8 +769,7 @@ Dim j As Integer, oView As Object Set oCounter = New Collect Set oCounter._This = oCounter oCounter._CollType = COLLCONTROLS - oCounter._ParentType = OBJCONTROL - oCounter._ParentName = _Shortcut + Set oCounter._Parent = _This oCounter._Count = iControlCount Set Controls = oCounter Goto Exit_Function |