Compartir a través de

Propiedad Field2.Required (DAO)

  • Artículo

Se aplica a: Access 2013, Office 2013

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

Sintaxis

expresión . Obligatorio

expression Variable que representa un objeto Field2.

Comentarios

Para un Field2 que no está todavía 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 Field2. Si la propiedad Required está establecida como 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 Field2, establézcala para el objeto Field2. La validez del valor de la propiedad para un objeto Field2 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 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