To select optionbutton from the frames in VB

I've used 4 optionbuttons in each frame on the from. Like wise i've taken 10 frames on the form.. now i just want to store the value 开发者_Python百科of those optionbuttons from each frame in the MSaccess database.. So the result in the database will be 10 values of optionbuttons for each frame.. Please Help me out

---

Assuming your question is actually "How can I get the selected option button in a group", then you need to check each in turn. The very simplest is:

'Get the selected option from frame 1
If Frame1Option1.Value Then
  Value1 = 1
ElseIf Frame1Option2.Value Then
  Value1 = 2
ElseIf Frame1Option3.Value Then
  Value1 = 3
ElseIf Frame1Option4.Value Then
  Value1 = 4
End If

'Get the selected option from frame 2
If Frame2Option1.Value Then
  Value2 = 1
ElseIf Frame2Option2.Value Then
  Value2 = 2
ElseIf Frame2Option3.Value Then
  Value2 = 3
ElseIf Frame2Option4.Value Then
  Value2 = 4
End If

If you make them a control array in each frame, then you can simplify the code to something like:

Dim Index As Long

'Get the selected option from frame 1
For Index = Frame1Options.LBound To Frame1Options.UBound
  If Frame1Options(Index).Value Then Value1 = Index
Next

Setting them then becomes just as simple:

Frame1Options(Value1).Value = True