Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
S’applique à : Access 2013, Office 2013
Définit ou renvoie une valeur qui indique une ou plusieurs caractéristiques d'un objet Field. Long (en lecture/écriture).
Syntaxe
expression .Attributes
expression Variable qui représente un objet Field.
Remarques
La propriété Attributes d’un objet Field spécifie les caractéristiques du champ représenté par l’objet Field. La propriété Attributes est stockée sous la seule valeur Long Integer et elle est la somme des constantes Long suivantes :
| Constante | Valeur | Description |
|---|---|---|
| dbAutoIncrField | 16 | La valeur de champ des nouveaux enregistrements est automatiquement incrémentée d’un entier long unique non modifiable (dans un espace de travail Microsoft Access, pris en charge uniquement par les tables de bases de données de moteur de base de données Microsoft Access). |
| dbDescending | 1 | Le champ est trié dans l’ordre décroissant (Z à A ou 100 à 0) ; cette option s’applique uniquement à un objet Field d’une collection Fields d’un objet Index. Si vous omettez cette constante, le champ est trié par ordre croissant (A à Z ou 0 à 100). Il s’agit de la valeur par défaut pour les champs Index et TableDef (espaces de travail Microsoft Access uniquement). |
| dbFixedField | 1 | La taille de champ est fixe (par défaut : champs numériques). |
| dbHyperlinkField | 32768 | Le champ contient des informations de lien hypertexte (champs Memo uniquement). |
| dbSystemField | 8192 | Le champ stocke des informations de réplication pour réplicas ; Vous ne pouvez pas supprimer ce type de champ (espace de travail Microsoft Access uniquement). |
| dbUpdatableField | 32 | La valeur de champ peut être modifiée. |
| dbVariableField | 2 | La taille du champ est variable (champs Text uniquement).\ |
Dans le cas d'un objet qui n'est pas encore ajouté à une collection, cette propriété est en lecture/écriture. En ce qui concerne un objet Field ajouté, la disponibilité de la propriété Attributes dépend de l'objet qui contient la collection Fields.
| Si l'objet Field appartient à un | La propriété Attributes est alors |
|---|---|
| objetIndex | En lecture et en écriture jusqu'à ce que l’objet TableDef auquel l’objet Index est ajouté soit ajouté à un objet Database ; la propriété est alors en lecture seule. |
| objetQueryDef | Lecture seule |
| objetRecordset | Lecture seule |
| objetRelation | Non pris en charge |
| objetTableDef | Lecture/écriture |
Lorsque vous définissez plusieurs attributs, vous pouvez les combiner en additionnant les constantes appropriées. Toute valeur non valide est ignorée sans provoquer d'erreur.
Exemple
Cet exemple affiche la propriété Attributes des objets Field, Relation et TableDef dans la base de données Northwind.
Sub AttributesX()
Dim dbsNorthwind As Database
Dim fldLoop As Field
Dim relLoop As Relation
Dim tdfloop As TableDef
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
With dbsNorthwind
' Display the attributes of a TableDef object's
' fields.
Debug.Print "Attributes of fields in " & _
.TableDefs(0).Name & " table:"
For Each fldLoop In .TableDefs(0).Fields
Debug.Print " " & fldLoop.Name & " = " & _
fldLoop.Attributes
Next fldLoop
' Display the attributes of the Northwind database's
' relations.
Debug.Print "Attributes of relations in " & _
.Name & ":"
For Each relLoop In .Relations
Debug.Print " " & relLoop.Name & " = " & _
relLoop.Attributes
Next relLoop
' Display the attributes of the Northwind database's
' tables.
Debug.Print "Attributes of tables in " & .Name & ":"
For Each tdfloop In .TableDefs
Debug.Print " " & tdfloop.Name & " = " & _
tdfloop.Attributes
Next tdfloop
.Close
End With
End Sub