diff options
author | Jean-Pierre Ledure <jp@ledure.be> | 2019-07-06 17:12:39 +0200 |
---|---|---|
committer | Jean-Pierre Ledure <jp@ledure.be> | 2019-07-06 17:12:39 +0200 |
commit | 02999ba5e40475b5ddc7280376fd68c4b380d27e (patch) | |
tree | 698f7a377019d41902e4c29eb583f1f22ca6d1d9 /wizards/source/access2base/OptionGroup.xba | |
parent | fba2fe825e8dfb9fd084186e3171bbea35297c28 (diff) |
Access2Base - Make OptionGroups valid Collections
+ argument check on RunSQL
Diffstat (limited to 'wizards/source/access2base/OptionGroup.xba')
-rw-r--r-- | wizards/source/access2base/OptionGroup.xba | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/wizards/source/access2base/OptionGroup.xba b/wizards/source/access2base/OptionGroup.xba index 080fde83b7cb..02c9c170a808 100644 --- a/wizards/source/access2base/OptionGroup.xba +++ b/wizards/source/access2base/OptionGroup.xba @@ -115,13 +115,14 @@ If _ErrorHandler() Then On Local Error Goto Error_Function Utils._SetCalledSub("OptionGroup.Controls") Dim ocControl As Variant, iArgNr As Integer, i As Integer +Dim oCounter As Object Set ocControl = Nothing If IsMissing(pvIndex) Then ' No argument, return Collection object Set oCounter = New Collect Set oCounter._This = oCounter - oCounter._SubType = OBJCONTROL + oCounter._CollType = COLLCONTROLS Set oCounter._Parent = _This oCounter._Count = _Count Set Controls = oCounter |