Блог

Я использовал 4 кнопки optionbuttons в каждом фрейме на from. Как и в случае, я взял 10 фреймов в форме .. теперь я просто хочу сохранить значение этих optionbuttons из каждого фрейма в базе данных MSAccess.. Таким образом, результатом в базе данных будет 10 значений optionbuttons для каждого фрейма.. Пожалуйста, помогите мне

Предполагая, что ваш вопрос на самом деле «Как я могу получить выбранную кнопку выбора в группе», тогда вам нужно проверить каждую по очереди. Самый простой:

 '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
  

Если вы сделаете их управляющим массивом в каждом фрейме, вы можете упростить код до чего-то вроде:

 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
  

Затем их настройка становится такой же простой:

 Frame1Options(Value1).Value = True