diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2019-06-29 11:16:56 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2019-06-29 11:16:56 +0200 |
commit | b0e0059ab9f2f5cbd59915ba3be8681b9e033de1 (patch) | |
tree | ae8b8771b737b1ad53ea01422c303314bfd02f6a /wizards/source/access2base/Module.xba | |
parent | 00f4722032cd3abb02180d2df6b9cb580736cb7c (diff) |
Access2Base - Consolidate classes processing
Introduce _This property in all classes and _Parent property where relevant
Accelerate processing of Item method in Collections
Enhance introspection
Diffstat (limited to 'wizards/source/access2base/Module.xba')
-rw-r--r-- | wizards/source/access2base/Module.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/access2base/Module.xba b/wizards/source/access2base/Module.xba index 383d792a4f0f..34d7c244cb92 100644 --- a/wizards/source/access2base/Module.xba +++ b/wizards/source/access2base/Module.xba @@ -238,9 +238,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 |