Compartir a través de

Propiedad Field.Required (DAO)

  • Artículo

Se aplica a: Access 2013, Office 2013

Establece o devuelve un valor que indica si un objeto Field requiere un valor no Null.

Sintaxis

expresión . Obligatorio

expression Variable que representa un objeto Field.

Comentarios

Para un Field que todavía no está anexado a la colección Fields, esta propiedad es de lectura y escritura.

La disponibilidad de la propiedad Required depende del objeto que contiene la colección Fields, como se muestra en la siguiente tabla.

Si la colección Fields pertenece a un

Entonces Required

Objeto Index

No está admitido

Objeto QueryDef

Solo lectura

Objeto Recordset

Solo lectura

Objeto Relation

No admitido

Objeto TableDef

Lectura y escritura

Puede utilizar la propiedad Required junto con la propiedad AllowZeroLength, ValidateOnSet o ValidationRule para determinar la validez del valor de la propiedad Value para ese objeto Field. Si la propiedad Required está establecida en False, el campo puede contener valores null, así como valores que cumplan las condiciones especificadas por los valores de las propiedades AllowZeroLength y ValidationRule.

Nota:

[!NOTA] Cuando pueda establecer esta propiedad tanto para un objeto Index como para un objeto Field, establézcala para el objeto Field. La validez del valor de la propiedad para un objeto Field se comprueba antes que para un objeto Index.

Ejemplo

En este ejemplo se utiliza la propiedad Required que informa sobre qué campo de tres tablas distintas debe contener los datos necesarios para agregar un nuevo registro. El procedimiento RequiredOutput es necesario para ejecutar este ejemplo.

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