diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2019-07-13 16:19:17 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2019-07-13 16:22:32 +0200 |
commit | 15fec4ee1c07b7c2b234384654ca3ee730acc2c8 (patch) | |
tree | d053260ace1ac15e11f53519c0bb44ea6e5baa35 /wizards/source/access2base/Recordset.xba | |
parent | 35463d886e15d13a81bce36610140e40ae742416 (diff) |
Access2Base - Set Parent property in all classes
To get faster access to parents from controls
Top classes (form, dialog and commandbar) should return Parent = Nothing
Diffstat (limited to 'wizards/source/access2base/Recordset.xba')
-rw-r--r-- | wizards/source/access2base/Recordset.xba | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index e9ad9e20cbc4..88a029190a27 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -17,6 +17,7 @@ REM ---------------------------------------------------------------------------- Private _Type As String ' Must be RECORDSET Private _This As Object ' Workaround for absence of This builtin function +Private _Parent As Object Private _Name As String ' Unique, generated Private _Fields() As Variant Private _ParentName As String @@ -52,6 +53,7 @@ REM ---------------------------------------------------------------------------- Private Sub Class_Initialize() _Type = OBJRECORDSET Set _This = Nothing + Set _Parent = Nothing _Name = "" _Fields = Array() _ParentName = "" |