Propriété Form.FrozenColumns (Access)
Utilisez la propriété FrozenColumns pour déterminer le nombre de colonnes figées dans une feuille de données. Entier en lecture/écriture.
Syntaxe
expression. FrozenColumns
expressionVariable qui représente un objetForm.
Remarques
Les colonnes figées sont affichées dans la partie gauche de la feuille de données et ne bougent pas lorsque vous faites défiler la feuille de données horizontalement.
Remarque
[!REMARQUE] La propriété FrozenColumns s'applique uniquement aux tables, formulaires et requêtes en mode feuille de données.
Dans Visual Basic, cette propriété est une valeur entière indiquant le nombre de colonnes dans la feuille de données qui ont été figées à l'aide de la commande Figer les colonnes. La colonne du sélecteur d'enregistrement est figée en permanence, afin que la valeur par défaut est 1. Par conséquent, si vous figez une colonne, la propriété FrozenColumns est définie sur 2 ; si vous figez deux colonnes, elle est définie sur 3, et ainsi de suite.
Exemple
L'exemple suivant utilise la propriété FrozenColumns pour déterminer le nombre de colonnes figé dans une table en mode feuille de données. Si plus de trois colonnes sont figées, la taille de la table est agrandie afin que vous puissiez voir autant de colonnes non supprimées que possible.
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
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.