Option buttons: How to get the selected option from a group?

Hi,

I have a form in which I have yes/no questions. The user has to answer the questions and at the end i need to display the score.
So I have several groups of 2 option buttons (Yes/No) and I would like to know how I can find out which option is selected from a group.
Say group1 has "Yes" selected, I would like to have something like the following:

Please Login or Register  to view this content.

Can anyone help me?

Also, while I'm at it, I have about 25 questions so I have 25 groups. Is there a smarter way to calculate the total score than type in the line above for each and every group manually?

Thanks all,

maybe something like this
dim c as control
for each c in controls
if typename(c)="Option Button" then
if c.value="Yes" then
countyes++
endif
endif
next

(I'm not 100% sure of the typename, but something like this should work)

J

"naddad" wrote:

>
> Hi,
>
> I have a form in which I have yes/no questions. The user has to answer
> the questions and at the end i need to display the score.
> So I have several groups of 2 option buttons (Yes/No) and I would like
> to know how I can find out which option is selected from a group.
> Say group1 has "Yes" selected, I would like to have something like the
> following:
>
>
> Code:
> --------------------
> if group1.selected.label = "Yes" then countYes++ end if
> --------------------
>
>
> Can anyone help me?
>
> Also, while I'm at it, I have about 25 questions so I have 25 groups.
> Is there a smarter way to calculate the total score than type in the
> line above for each and every group manually?
>
> Thanks all,
>
>
> --
> naddad
> ------------------------------------------------------------------------
> naddad's Profile: http://www.excelforum.com/member.php...o&userid=29817
> View this thread: http://www.excelforum.com/showthread...hreadid=495201
>
>

i think countYes++ might need to be
countYes = countYes + 1

J

"Gixxer_J_97" wrote:

> maybe something like this
> dim c as control
> for each c in controls
> if typename(c)="Option Button" then
> if c.value="Yes" then
> countyes++
> endif
> endif
> next
>
> (I'm not 100% sure of the typename, but something like this should work)
>
> J
>
> "naddad" wrote:
>
> >
> > Hi,
> >
> > I have a form in which I have yes/no questions. The user has to answer
> > the questions and at the end i need to display the score.
> > So I have several groups of 2 option buttons (Yes/No) and I would like
> > to know how I can find out which option is selected from a group.
> > Say group1 has "Yes" selected, I would like to have something like the
> > following:
> >
> >
> > Code:
> > --------------------
> > if group1.selected.label = "Yes" then countYes++ end if
> > --------------------
> >
> >
> > Can anyone help me?
> >
> > Also, while I'm at it, I have about 25 questions so I have 25 groups.
> > Is there a smarter way to calculate the total score than type in the
> > line above for each and every group manually?
> >
> > Thanks all,
> >
> >
> > --
> > naddad
> > ------------------------------------------------------------------------
> > naddad's Profile: http://www.excelforum.com/member.php...o&userid=29817
> > View this thread: http://www.excelforum.com/showthread...hreadid=495201
> >
> >

Dim c As Control
For Each c In Controls
If TypeName(c) = "OptionButton" Then
If c.Value = True Then
countYes = countYes + 1
End If
End If
Next

this worked for me

J
"naddad" wrote:

>
> thanks, TypeName(c) returns "OptionButton"
> But c is a control, is there a way to cast it to an OptionButton so it
> recognizes the caption?
>
>
> --
> naddad
> ------------------------------------------------------------------------
> naddad's Profile: http://www.excelforum.com/member.php...o&userid=29817
> View this thread: http://www.excelforum.com/showthread...hreadid=495201
>
>

I'm sorry - i think i misunderstood your need.
you're wanting to count how many option buttons that have "Yes" as the text
are selected.

Dim c As Control
For Each c In Controls
If TypeName(c) = "OptionButton" Then
If c.Value = True And c.Caption = "Yes" Then
countYes = countYes + 1
End If
End If
Next

"naddad" wrote:

>
> thanks, TypeName(c) returns "OptionButton"
> But c is a control, is there a way to cast it to an OptionButton so it
> recognizes the caption?
>
>
> --
> naddad
> ------------------------------------------------------------------------
> naddad's Profile: http://www.excelforum.com/member.php...o&userid=29817
> View this thread: http://www.excelforum.com/showthread...hreadid=495201
>
>