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
精彩评论