Using option groups

[Maury Markowitz]

Here's my task:

Users want to select one of a number of possible options. when they
select one, it is written out as a text value to a table. These
options are subject to change at any time, the list will be changing
often.

I decided that the best UI for this task would be an option group -
yes, a pop-up would work, but would not be as easy to use - the user
needs to study the entire list to see which selection is appropriate.

So I made an OptionGroup, placed Option Buttons in them, and changed
the option button's associated labels to be the different selections.
This way I can easily modify the list simply by changing the caption
on the label, or alternately adding and removing buttons.

I'm stumped how to read the text in the label though. I found that if
you trap the AfterUpdate on the _group_ the control number is
returned, so I did this...

AttributionGroup.Controls(AttributionGroup.value)

which returns the right control number, for instance, "2". I can use
that handle to talk to the selected control, but what question do I
ask it? What is the path to the label associated with that option
button?

Maury

 

[Maury Markowitz]

Ok, now I'm more confused than ever...

I made a new form
I added an Option Group
I placed four option buttons in it
I changed the _option button name_ (NOT the label) to the text value I
want
I added a AfterUpdate handler...

Private Sub TestGroup_AfterUpdate()
MsgBox TestGroup.Controls(TestGroup.value).name
End Sub

So far so good...

Click on button one. MsgBox has the button's name it in. Nice! Click
on button two... get the _name of the label_. Click on button three,
name of button. Button four, name of label.

Does anyone have any idea what's going on here?

Maury

 

[Stuart McCall]

Further info:

Using the debugger I found that that label appears to be part of the
option button's own controls collection, item 1. So I did this...

That statement is incorrect. The controls collection is zero-based, so what
you need is:

AttributionWhoGroup.Controls(AttributionWhoGroup.value).Controls(0).Caption

<snip>

 

[Maury Markowitz]

That statement is incorrect. The controls collection is zero-based, so what
you need is:

AttributionWhoGroup.Controls(AttributionWhoGroup.value).Controls(0).Caption

Doesn't work, unfortunately. It seems the labels are part of the
_group_ collection, not the button itself. Or something like that
anyway, the call fails for half of the controls, and not the other
half!

Maury

 

[tkelley via AccessMonster.com]

One of the UberGurus may prove me wrong, but I'm not sure you can ... at
least not as easily and intuitively as you may be thinking.

If it were me, I'd have my list of string values in a table with a numeric
primary key. Then that numeric primary key would be my option button values,
and I'd write that value into my destination table as a foreign key.

However, you can accomplish what you want by doing a SELECT statement on the
AfterUpdate event of your option group.


Select Case optYourOptionGroup
Case 1
do this
Case 2
do this
etc.
End Select

I'm sure there are different approaches as well.