Check box

[ruavia3]

Private Sub Check1_Click()
Text1.Enabled = True

End Sub


Помогите дописать код, чтобы при снятии галочки Text1.Enabled = False.
Нужно, чтобы это происходило сразу.

[The_Prist]

Private Sub Check1_Click()
With Text1
If .Enabled then .Enabled = False Else .Enabled = True
End with
End Sub

[SAS888]

1. У Вас форма, или все элементы на рабочем листе? Если на листе, то какие?
2. Что такое Text1? Значение в каком-то TextBox?
3. При снятии галочки нужно сделать TextBox недоступным для изменения?
4. Check1_Click - это событие изменения какого-то CheckBox-а?

Если я правильно понимаю, то Вас "спасет" код:

Private Sub CheckBox1_Click()
    If CheckBox1 Then TextBox1.Enabled = True Else TextBox1.Enabled = False
End Sub

[ruavia3]

Все на форме, только в Access.
Все варианты работают, спасибо)
SAS, там только название CheсkBox изменил.

[MixanMM]

наверное мне сюда ) , вопрос такой, как сделать что бы при включенном чек боксе у меня работал кусок кода, и соответсвенно при включении 2го чекБокса работал второй кусок кода а первый кусок выключился

[mchip]

Лучше через кнопку

[VictorM]

MixanMM - можно так.