флажок и дезактивация элементов

[beginner09]

Добрый день, форумчане!

И снова обращаюсь за помощью. В приложенной базе мне бы хотелось в форме сделать так, чтобы при включении Флажок0, поле pole1 стало неактивным и пустым и, соответственно, группа переключателей Группа8 также стала неактивной, а поле со списком spisok также стало неактивным, но приняло значение text.

Заранее благодарен.

[Myhaylo]

Private Sub Флажок0_Click()
  If Флажок0 Then
    pole1 = Null
    pole1.Enabled = False
    Группа8 = Null
    Группа8.Enabled = False
    ПолеСоСписком19 = "text"
    ПолеСоСписком19.Enabled = False
  End If
End Sub

[Teslenko_EA]

Здравствуйте beginner09.
Myhaylo предложил верное решение Вашей задачи - "..при включении Флажок0..",
но в большинстве случаев не достаточно обрабатывать только "включение",
потому предлагаю рассмотреть некоторую доработку предложенной конструкции:

Private Sub Флажок0_AfterUpdate()
Dim b As Boolean
b = Флажок0
If b Then
    pole1 = "": Группа8 = 0: ПолеСоСписком19 = "text"
End If
b = Not b: pole1.Enabled = b: Группа8.Enabled = b: ПолеСоСписком19.Enabled = b
End Sub

иначе все выключенные контролы (.Enabled = False) будут недоступны до перезапуска формы.

Евгений.

[beginner09]

Огромное спасибо вам, Myhaylo, а также вам, Евгений! Буду пробовать включить ваши конструкции в свою базу!