Propriedade Form.FrozenColumns (Access)

Utilize a propriedade FrozenColumns para determinar quantas colunas numa folha de dados estão bloqueadas. número inteiro de leitura/gravação.

Sintaxe

expressão. Colunas Congeladas

expressão Uma variável que representa um objeto Form.

Comentários

As colunas congeladas são exibidas no lado esquerdo da folha de dados e não se movem quando você rola horizontalmente pela folha.

No Visual Basic, a configuração dessa propriedade é um valor inteiro indicando o número de colunas congeladas usando o comando Congelar colunas na folha de dados. A coluna de seletores de registro está sempre congelada, portanto, o valor padrão é 1. Consequentemente, se fixar uma coluna, a propriedade FrozenColumns está definida como 2; Se fixar duas colunas, esta está definida como 3 e assim sucessivamente.

Exemplo

O exemplo a seguir usa a propriedade FrozenColumns para determinar quantas colunas estão congelado em uma tabela no modo folha de dados. Se mais de três colunas estiverem fixas, o tamanho da tabela será maximizado para que possa ver o maior número possível de colunas descongeladas.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.