Свойство TextBox.ColumnHidden (Access)

Свойство ColumnHidden позволяет отобразить или скрыть указанный столбец в режиме таблицы. Для чтения и записи, Boolean.

Синтаксис

выражение. Скрытый столбец

выражение Переменная, представляющая объект TextBox .

Примечания

Например, может потребоваться скрыть слишком широкое поле CustomerAddress , позволяющее просматривать поля CustomerName и PhoneNumber .

Свойство ColumnHidden применяется ко всем полям в режиме таблицы и элементам управления формы, если форма находится в режиме таблицы.

Скрытие столбца с помощью свойства ColumnHidden в режиме таблицы не скрывает поля из того же столбца в представлении формы. Аналогично, если задать для свойства Visible элемента управления значение False в представлении формы, соответствующий столбец в режиме таблицы не будет скрыт.

Примечание.

Чтобы задать или изменить это свойство для таблицы или запроса с помощью Visual Basic, необходимо использовать коллекцию свойств столбца. Дополнительные сведения об использовании коллекции свойств см. в разделе "Свойства".

Поле в запросе можно отображать, даже если столбец поля скрыт в режиме таблицы. использовать значения из скрытого столбца в качестве условий для фильтра, даже если столбец остается скрытым после применения фильтра;

Если задать значение 0 для свойства поля ColumnWidth или установить для него нулевую ширину в режиме таблицы, Microsoft Access присвоит соответствующему свойству ColumnHiddenзначение True. Отображение столбца восстанавливает значение свойства ColumnWidth , которое было до скрытия поля.

Свойство ColumnHidden недоступно в Конструкторе.

Пример

В приведенном ниже примере поле "КодТовара" скрывается в режиме таблицы формы "Товары ".

Forms!Products!ProductID.ColumnHidden = -1

В следующем примере поле "КодТовара" скрыто в режиме таблицы " Таблица ".

Public Sub SetColumnHidden() 
 
 Dim dbs As DAO.Database 
 Dim fld As DAO.Field 
 Dim prp As DAO.Property 
 Const conErrPropertyNotFound = 3270 
 
 ' Turn off error trapping. 
 On Error Resume Next 
 
 Set dbs = CurrentDb 
 
 ' Set field property. 
 Set fld = dbs.TableDefs!Products.Fields!ProductID 
 fld.Properties("ColumnHidden") = True 
 
 ' Error may have occurred when value was set. 
 If Err.Number <> 0 Then 
 If Err.Number <> conErrPropertyNotFound Then 
 On Error GoTo 0 
 MsgBox "Couldn't set property 'ColumnHidden' " & _ 
 "on field '" & fld.Name & "'", vbCritical 
 Else 
 On Error GoTo 0 
 Set prp = fld.CreateProperty("ColumnHidden", dbLong, True) 
 fld.Properties.Append prp 
 End If 
 End If 
 
 Set prp = Nothing 
 Set fld = Nothing 
 Set dbs = Nothing 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.