Field.Required 属性 (DAO)

  • 项目

适用于：Access 2013、Office 2013

设置或返回一个值，该值指示 Field 对象是否需要一个非 Null 值。

语法

表达式 。必填

表达式 一个表示 Field 对象的变量。

说明

对于尚未追加到 Fields 集合中的 Field，该属性是可读写的。

Required 属性的可用性取决于包含 Fields 集合的对象，如下表所示。

如果 Fields 集合属于

则 Required

Index 对象

不受支持

QueryDef 对象

只读

Recordset 对象

只读

Relation 对象

不支持

TableDef 对象

读/写

可以将 Required 属性与 AllowZeroLength、ValidateOnSet 或 ValidationRule 属性一起使用，以确定该 Field 对象的 Value 属性设置的有效性。 如果 Required 属性设置为 False，则该字段可以包含 null 值以及满足 AllowZeroLength 和 ValidationRule 属性设置所指定的条件的值。

注意

[!注释] 在您可以为 Index 对象或 Field 对象设置该属性时，请为 Field 对象设置该属性。 这是因为需要先检查 Field 对象属性设置的有效性，然后检查 Index 对象属性设置的有效性。

示例

以下示例使用 Required 属性来报告为了添加新记录，三个不同表中的哪些字段必须包含数据。 若要使该过程运行，需要使用 RequiredOutput 过程。

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