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.