Field.Required-Eigenschaft (DAO)
Gilt für: Access 2013, Office 2013
Gibt einen Wert zurück, der angibt, ob für ein Field -Objekt ein Nicht-Null-Wert erforderlich ist, oder legt den betreffenden Wert fest.
Syntax
Ausdruck . Erforderlich
Ausdruck Eine Variable, die ein Field-Objekt darstellt.
Bemerkungen
Ein Field-Objekt, das noch nicht an die Fields-Auflistung angehängt wurde, hat Lese-/Schreibzugriff für diese Eigenschaft.
Die Verfügbarkeit der Required-Eigenschaft hängt von dem Objekt ab, das die Fields-Auflistung enthält, wie in der folgenden Tabelle dargestellt.
Zugehörigkeit der Fields-Auflistung |
Required-Wert |
---|---|
Index-Objekt |
Nicht unterstützt |
QueryDef-Objekt |
Schreibgeschützt |
Recordset-Objekt |
Schreibgeschützt |
Relation-Objekt |
Nicht unterstützt |
TableDef-Objekt |
Lesen/Schreiben |
Mit der Required-Eigenschaft können Sie in Kombination mit der AllowZeroLength -, ValidateOnSet - oder ValidationRule -Eigenschaft die Gültigkeit des Werts der Value -Eigenschaft für dieses Field-Objekt überprüfen. Wenn die Required-Eigenschaft den Wert Falsehat, kann das Feld null-Werte enthalten und ebenso Werte, die die von den Eigenschaften AllowZeroLength und ValidationRule festgelegten Bedingungen erfüllen.
Hinweis
[!HINWEIS] Wenn Sie diese Eigenschaft sowohl für ein Index- als auch für ein Field-Objekt festlegen können, sollten Sie sie für das Field-Objekt festlegen. Die Gültigkeit des Werts dieser Eigenschaft wird zuerst für das Field-Objekt und erst danach für das Index-Objekt überprüft.
Beispiel
This example uses the Required property to report which fields in three different tables must contain data in order for a new record to be added. The RequiredOutput procedure is required for this procedure to run.
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