diff options
Diffstat (limited to 'wizards/source/access2base/Form.xba')
-rw-r--r-- | wizards/source/access2base/Form.xba | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/wizards/source/access2base/Form.xba b/wizards/source/access2base/Form.xba index f05d326dc1cc..84dee353413a 100644 --- a/wizards/source/access2base/Form.xba +++ b/wizards/source/access2base/Form.xba @@ -17,6 +17,7 @@ REM ---------------------------------------------------------------------------- Private _Type As String ' Must be FORM Private _This As Object ' Workaround for absence of This builtin function +Private _Parent As Object Private _Shortcut As String Private _Name As String Private _DocEntry As Integer ' Doc- and DbContainer entries in Root structure @@ -37,6 +38,7 @@ REM ---------------------------------------------------------------------------- Private Sub Class_Initialize() _Type = OBJFORM Set _This = Nothing + Set _Parent = Nothing _Shortcut = "" _Name = "" _DocEntry = -1 @@ -398,6 +400,11 @@ Error_Function: End Function ' OptionGroup V1.1.0 REM ----------------------------------------------------------------------------------------------------------------------- +Public Function Parent() As Object + Parent = _Parent +End Function ' Parent (get) V6.4.0 + +REM ----------------------------------------------------------------------------------------------------------------------- Public Function Properties(ByVal Optional pvIndex As Variant) As Variant ' Return ' a Collection object if pvIndex absent @@ -556,7 +563,8 @@ Dim oDatabaseForm As Object, iCtlCount As Integer 'Initialize a new Control object Set ocControl = New Control With ocControl - ._This = ocControl + Set ._This = ocControl + Set ._Parent = _This ._ParentType = CTLPARENTISFORM ._Name = sName ._Shortcut = _Shortcut & "!" & Utils._Surround(sName) |