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

Статья
04/07/2023

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

Синтаксис

expression. ColumnHidden

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

Замечания

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

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

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

Примечание.

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

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

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

Свойство ColumnHidden недоступно в режиме конструктора.

Пример

В следующем примере поле ProductID скрывается в режиме таблицы формы Products .

Forms!Products!ProductID.ColumnHidden = -1

В следующем примере поле ProductID скрывается в представлении таблицы Products .

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 и обратная связь.