Partager via

Field.Required, propriété (DAO)

  • Article

S’applique à : Access 2013, Office 2013

Définit ou renvoie une valeur qui indique si un objet Field requiert une valeur non Null.

Syntaxe

expression . Obligatoire

expression Variable qui représente un objet Field.

Remarques

Pour un objet Field qui n'a pas encore été ajouté à la collection Fields, cette propriété est en lecture-écriture.

La disponibilité de la propriété Required dépend de l'objet qui contient la collection Fields, comme indiqué dans le tableau ci-dessous.

Si la collection Fields appartient à un

Alors Required est

Objet Index

Non reconnu

objet QueryDef

Lecture seule

objet Recordset

Lecture seule

objet Relation

Non pris en charge

objet TableDef

Lecture/écriture

Vous pouvez utiliser la propriété Required avec la propriété AllowZeroLength, ValidateOnSet ou ValidationRule pour déterminer la validité du paramètre de la propriété Value de cet objet Field. Si la propriété Required a la valeur False, le champ peut contenir des valeurs null ainsi que des valeurs répondant aux conditions spécifiées par les paramètres des propriétés AllowZeroLength et ValidationRule.

Remarque

[!REMARQUE] Lorsque vous définissez cette propriété pour un objet Index ou Field, définissez-la pour l'objet Field. La validité du paramètre de propriété d'un objet Field est vérifiée avant celle d'un objet Index.

Exemple

Cet exemple utilise la propriété Required pour signaler les champs de trois tables différentes à renseigner obligatoirement pour ajouter un nouvel enregistrement. La fonction RequiredOutput est indispensable pour l'exécution de cette procédure.

Sub RequiredX() 
 
 Dim dbsNorthwind As Database 
 Dim tdfloop As TableDef 
 
 Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
 
 With dbsNorthwind 
 ' Show which fields are required in the Fields 
 ' collections of three different TableDef objects. 
 RequiredOutput .TableDefs("Categories") 
 RequiredOutput .TableDefs("Customers") 
 RequiredOutput .TableDefs("Employees") 
 .Close 
 End With 
 
End Sub 
 
Sub RequiredOutput(tdfTemp As TableDef) 
 
 Dim fldLoop As Field 
 
 ' Enumerate Fields collection of the specified TableDef 
 ' and show the Required property. 
 Debug.Print "Fields in " & tdfTemp.Name & ":" 
 For Each fldLoop In tdfTemp.Fields 
 Debug.Print , fldLoop.Name & ", Required = " & _ 
 fldLoop.Required 
 Next fldLoop 
 
End Sub