diff options
Diffstat (limited to 'wizards/source/access2base/Field.xba')
-rw-r--r-- | wizards/source/access2base/Field.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/access2base/Field.xba b/wizards/source/access2base/Field.xba index 7fd2f704383a..35d21aa2f7a1 100644 --- a/wizards/source/access2base/Field.xba +++ b/wizards/source/access2base/Field.xba @@ -290,12 +290,12 @@ Const cstThisSub = "Field.Properties" sObject = Utils._PCase(_Type) sName = _ParentType & "/" & _ParentName & "/" & _Name If IsMissing(pvIndex) Then - vProperty = PropertiesGet._Properties(sObject, sName, vPropertiesList) + vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList) Else - vProperty = PropertiesGet._Properties(sObject, sName, vPropertiesList, pvIndex) + vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex) vProperty._Value = _PropertyGet(vPropertiesList(pvIndex)) + Set vProperty._ParentDatabase = _ParentDatabase End If - Set vProperty._ParentDatabase = _ParentDatabase Exit_Function: Set Properties = vProperty |