Compartir a través de

Propiedad Form.FrozenColumns (Access)

  • Artículo

Use la propiedad FrozenColumns para determinar cuántas columnas de una hoja de datos están inmovilizadas. Valor Entero de lectura y escritura.

Sintaxis

expresión. FrozenColumns

expresión Variable que representa un objeto Form.

Comentarios

Las columnas inmóviles se muestran al lado izquierdo de la hoja de datos y no se mueven cuando se desplaza horizontalmente por la hoja de datos.

Nota:

[!NOTA] La propiedad FrozenColumns se aplica sólo a tablas, formularios y consultas en la vista Hoja de datos.

En Visual Basic, esta propiedad es un valor entero que indica el número de columnas de la hoja de datos que se han inmovilizado con el comando Inmovilizar columnas. Siempre se inmoviliza la columna de selector de registros, por lo que el valor predeterminado es 1. Por lo tanto, si inmoviliza una columna, la propiedad FrozenColumns se establece en 2; Si inmoviliza dos columnas, se establece en 3, etc.

Ejemplo:

En el siguiente ejemplo, se utiliza la propiedad FrozenColumns para determinar cuántas columnas están inmovilizadas de una tabla en vista Hoja de datos. Si se inmovilizan más de tres columnas, el tamaño de la tabla se maximiza para que pueda ver tantas columnas no bloqueadas como sea posible.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.