Отнася се за
| Обект BoundObjectFrame | Обект Image | Обект OptionButton | Обект SubForm |
|---|---|---|---|
| Обект CheckBox | Обект Label | Обект OptionGroup | Колекция TabControl |
| Обект ComboBox | Обект Line | Обект Page | Обект TextBox |
| Обект CommandButton | Обект ListBox | Обект PageBreak | Обект ToggleButton |
| Обект CustomControl | Обект ObjectFrame | Обект Rectangle |
Можете да използвате свойството IsVisible в код на Visual Basic for Applications (VBA), за да определите дали контрола в отчет е видима. Boolean за четене/запис.
израз.IsVisible
Израз Изисква. Израз, който връща един от обектите в списъка "Отнася се за".
Забележки
Свойството IsVisible използва настройките по-долу.
| Настройка | Описание |
|---|---|
| True | (По подразбиране) Контролата е видима. |
| False | Контролата не е видима. |
Забележка
Можете да зададете свойството IsVisible само в събитието Print на секция на отчет, която съдържа контролата.
Можете да използвате свойството IsVisible заедно със свойството HideDuplicates, за да определите кога контрола в отчет е видима и да покажете или скриете други контроли като резултат. Можете например да скриете контрола за ред, когато контрола за текстово поле е скрита, защото съдържа дублирани стойности.
Пример
Примерът по-долу използва свойството IsVisible на текстово поле за управление на показването на контрола за ред в отчет. Отчетът се базира на таблица за продукти и използва три контроли със следните свойства:
| Свойства | Контрола за ред | Текстово поле №1 | Текстово поле №2 |
|---|---|---|---|
| Име | Ред0 | CategoryID | ProductName |
| ControlSource | CategoryID | ProductName | |
| HideDuplicates | Да | Не | |
| Left | 0 | 0 | 2,0 |
| Top | 0 | ,1 | ,1 |
| Width | 4,0 | 1,0 | 1,0 |
Поставете следния код в секцията за декларации на модула на отчета и след това прегледайте отчета, за да видите форматирането на реда, управлявано от свойството IsVisible:
Private Sub Detail_Print(Cancel As Integer, _
PrintCount As Integer)
If Me!CategoryID.IsVisible Then
Me!Line0.Visible = True
Else
Me!Line0.Visible = False
End If
End Sub