Как правильно использовать if / then для логического значения, чтобы сделать объект видимым?

Question

Я хочу отобразить форму бесконечного доступа.Для каждого набора данных есть значение да / нет (PA).Если да, то скрытый объект должен отображаться.Это кажется очень прямым, но это не работает.

Я пытался изменить значение PA на 1, 0, -1.Либо ничего не происходит, либо объект будет отображаться для всех наборов данных.

Объект определяется как скрытый в форме.

---

Private sub form_current()

If PA.value = true Then
 me.object.visible = True
End if

End Sub

---

Я был бы очень рад советам./ LP

Answer 1

Обработайте событие Change элемента управления, а затем вы можете присвоить его значению:

Private Sub PA_Change()
    Me.object.Visible = PA.Value ' TODO: give 'object' an actual name
End Sub

Найти PA в раскрывающемся меню в верхнем левом углу, а затем выбрать событие Change вверхний правый выпадающий список, если он не выбран автоматически - VBE сгенерирует для вас процедуру обработчика событий.

Answer 2

Поскольку объект не связан, вы не можете этого сделать.Если он не связан, он будет видимым или нет - для всех записей.

Один из обходных путей - переместить элемент управления в крошечную подчиненную форму, имеющую отношение master / child к главной форме.