Question

[t4lli]

Есть Опция1 Опция2 тоесть Опция1.Кэпшн = "Да , я соглашаюсь" Опция2.Кэпшн = "Нет , я не соглошаюсь"
Также есть кнопка . при выборе Опции1 переходиш k формe2 при выборе Опции2 прога закрывается ...
Люди добрые помогите ! Код в голове крутится , но толком ничего невыходит!

[A.A.Z.]

Вроде так:

Код: Выделить всё

Sub Option1_Click()
Form2.Show
End Sub

Sub Option2_Click()
End
End Sub

[Tok]

Вставь этот код в событие твоей кнопки:

Код: Выделить всё

If Option1.Value = True Then
    Form2.Show
Else
    Unload Me
End If

[t4lli]

Спасибки за код

[Keen]

Вставь этот код в событие твоей кнопки:

Код: Выделить всё

If Option1.Value = True Then
    Form2.Show
Else
    Unload Me
End If

А если ничего не выбрано? Мелочь, а иногда приводит к неприятностям

Код: Выделить всё

If Option1.Value = True Then
    Form2.Show
Elseif Option2.Value = True then
    Unload Me
Else
    msgbox "Выберите ..."
End If