diff options
Diffstat (limited to 'wizards/source/access2base/OptionGroup.xba')
-rw-r--r-- | wizards/source/access2base/OptionGroup.xba | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index 2276dfc70d83..ab0993d2ec17 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -18,6 +18,8 @@ Private _Type As String ' Must be FORM Private _Name As String Private _ParentType As String Private _ParentComponent As Object +Private _DocEntry As Integer +Private _DbEntry As Integer Private _ButtonsGroup() As Variant Private _ButtonsIndex() As Variant Private _Count As Long @@ -30,6 +32,8 @@ Private Sub Class_Initialize() _Name = "" _ParentType = "" _ParentComponent = Nothing + _DocEntry = -1 + _DbEntry = -1 _ButtonsGroup = Array() _ButtonsIndex = Array() _Count = 0 @@ -141,15 +145,13 @@ Dim ocControl As Variant, iArgNr As Integer, i As Integer End Select ocControl._Initialize() + ocControl._DocEntry = _DocEntry + ocControl._DbEntry = _DbEntry Set Controls = ocControl Exit_Function: Utils._ResetCalledSub("OptionGroup.Controls") Exit Function -Trace_Error: - TraceError(TRACEFATAL, ERRWRONGARGUMENT, Utils._CalledSub(), 0, , 1) - Set Controls = Nothing - Goto Exit_Function Trace_Error_Index: TraceError(TRACEFATAL, ERRCOLLECTION, Utils._CalledSub(), 0, 1) Set Controls = Nothing |