Поделиться через

Свойство Form.FrozenColumns (Access)

  • Статья

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

Синтаксис

expression. FrozenColumns

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

Замечания

Замороженные столбцы отображаются в левой части таблицы и не перемещаются при прокрутке по горизонтали.

Примечание.

Свойство FrozenColumns применяется только к таблицам, формам и запросам в режиме таблицы.

В Visual Basic этот параметр свойства представляет собой целочисленное значение, указывающее количество столбцов в таблице, которые были заморожены с помощью команды Закрепить столбцы . Столбец селектора записей всегда зависает, поэтому значение по умолчанию — 1. Следовательно, при заморозке одного столбца свойство FrozenColumns имеет значение 2; Если зафиксировать два столбца, для него будет задано значение 3 и т. д.

Пример

В следующем примере свойство FrozenColumns используется для определения количества столбцов, замороженных в таблице в представлении таблицы. Если заморожено больше трех столбцов, размер таблицы будет развернут, чтобы можно было увидеть как можно больше незамороженных столбцов.

Sub CheckFrozen(strTableName As String) 
 Dim dbs As Object 
 Dim tdf As Object 
 Dim prp As Variant 
 Const DB_Integer As Integer = 3 
 Const conPropertyNotFound = 3270 ' Property not found error. 
 Set dbs = CurrentDb ' Get current database. 
 Set tdf = dbs.TableDefs(strTableName) ' Get object for table. 
 DoCmd.OpenTable strTableName, acNormal ' Open table. 
 tdf.Properties.Refresh 
 On Error GoTo Frozen_Err 
 If tdf.Properties("FrozenColumns") > 3 Then ' Check property. 
 DoCmd.Maximize 
 End If 
Frozen_Bye: 
 Exit Sub 
Frozen_Err: 
 If Err = conPropertyNotFound Then ' Property not in collection. 
 Set prp = tdf.CreateProperty("FrozenColumns", DB_Integer, 1) 
 tdf.Properties.Append prp 
 Resume Frozen_Bye 
 End If 
End Sub

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

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