option boxes EASY

i have about 3 frames on one sstab screen, in each frame is about 4 option boxes.
for example
O =  Op1
0 =  Op2
0 =  Op3
0 =  Op4

as there is nothing similar except for the text, i will be doing this to put the result in the database:Private

Sub Option1_Click()
If Option1.Value = True Then
Text1.Text = "Op1"
End If
End Sub
----------the same method for each option---------

so on the update to the dbase i will use text1.text value, is this the best method??

B
LVL 1
boloxAsked:
Who is Participating?
 
Ryan ChongCommented:
Hi,

You can declare/ create the Option boxes as a Control Array, then you can check which Option button is checked by using this:

Private Sub Option1_Click(Index As Integer)
    Text1.Text = Option1(Index).Caption 'Or = "Opt" & Index + 1
End Sub

Do as similar for other frames

Hope this help
0
 
boloxAuthor Commented:
Thats it!!! an array, i forgot about that.

thanx
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.