Запуск кода VBA в Access

В настоящее время я работаю в Access 2013. У меня есть два поля внутри подформы, которые я бы хотел заблокировать, если выбрана кнопка (да/нет), эти два поля включают в себя Возобновить предыдущее местоположение и Личные Ссылка, поле «Да/Нет» - «Источник возобновления».Запуск кода VBA в Access

Мой код:

Private Sub Resume_Source_Internal_Click() 
    If [Resume Source Internal].Value = True Then 
     [Personal Reference].Enabled = True 
     [Resume Previous Location].Enabled = False 
    Else 
     [Personal Reference].Enabled = True 
     [Resume Previous Location].Enabled = False 
    End If 
End Sub

Проблема, что у меня возникли проблемы с в том, что, когда я выборе кнопки (да/нет) ничего не происходит. Я запускал этот код раньше в другой форме, и он отлично работал. Есть что-то, что я мог пропустить? Личные ссылки и резюме Предыдущее местоположение - это оба поля поиска.

источник

2016-07-20 Orange56

Вы пытались скомпилировать шаг за шагом? остановите программу на этом подпункте и сделайте шаг вперед. –

Я не попробую это сейчас. – Orange56

Согласитесь с/TedoG. - отладка шаг за шагом - это всегда _ первое, что нужно делать, когда что-то не работает правильно. – FreeMan

Попробуйте это:

Private Sub Resume_Source_Internal_Click() 
    If [Resume Source Internal].Value = True Then 
     [Personal Reference].Enabled = True 
     [Resume Previous Location].Enabled = False 
    Else 
     [Personal Reference].Enabled = False 
     [Resume Previous Location].Enabled = True 
    End If 
End Sub

Обратите внимание, что в Else, я переключился значения из False и True. Как вы его написали, вы устанавливаете точные значения по обе стороны от If...Else

источник

2016-07-20 13:26:43 FreeMan

Будет ли этот код работать на вас - установите поля в одну включенную и одну отключенную в Листе свойств.

При нажатии кнопки свойство enabled переключается с True на False и наоборот.

Private Sub Resume_Source_Internal_Click() 

    Me.Personal_Reference.Enabled = Not Me.Personal_Reference.Enabled 
    Me.Resume_Previous_Location.Enabled = Not Me.Resume_Previous_Location.Enabled 

End Sub

источник

2016-07-20 16:16:11

Запуск кода VBA в Access

ответ

Смежные вопросы