Partager via

Field2.Required property (DAO)

  • Article

S’applique à : Access 2013, Office 2013

Définit ou renvoie une valeur qui indique si un objet Field2 requiert une valeur non nulle.

Syntaxe

expression . Obligatoire

expression une variable qui représente une champ2 objet.

Remarques

Pour un objet Field2 pas encore ajouté à la collection Fields, cette propriété est en lecture/écriture.

La disponibilité de la propriété Required dépend de l'objet contenant la collection Fields, comme illustré dans le tableau suivant.

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 les propriétés AllowZeroLength, ValidateOnSet ou ValidationRule pour déterminer la validité du paramètre de propriété Value pour cet objet Field2. Si la propriété Required est définie sur False, le champ peut contenir des valeurs de type null et des valeurs répondant aux conditions spécifiées par les paramètres de propriété AllowZeroLength et ValidationRule.

Remarque

[!REMARQUE] Lorsque vous définissez cette propriété pour un objet Index ou Field2, définissez-la pour l'objet Field2. La validité du paramètre de propriété d'un objet Field2 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 Field2 
 
 ' 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