Поделиться через

Field2.Required property (DAO)

  • Статья

Область применения: Access 2013, Office 2013

Задает или возвращает значение, указывающее, требуется ли объекту Field2 значение, отличное от NULL.

Синтаксис

expression . Обязательно

expression — переменная, представляющая объект Field2.

Замечания

Для объекта Field2 , еще не добавленного в коллекцию Fields , это свойство является чтением и записью.

Доступность свойства Required зависит от объекта, содержащего коллекцию Fields , как показано в следующей таблице.

Если коллекция Fields принадлежит к

Затем обязательный —

Объект Index

Не поддерживается

Объект QueryDef

Только для чтения

Объект Recordset

Только для чтения

Объект Relation

Не поддерживается

Объект TableDef

Чтение и запись

Свойство Required можно использовать вместе со свойством AllowZeroLength, ValidateOnSet или ValidationRule , чтобы определить допустимость параметра свойства Value для этого объекта Field2 . Если для свойства Required задано значение False, поле может содержать значения NULL , а также значения, соответствующие условиям, заданным параметрами свойств AllowZeroLength и ValidationRule .

Примечание.

Если это свойство можно задать для объекта Index или Объекта Field2 , задайте его для объекта Field2 . Допустимость параметра свойства для объекта Field2 проверяется перед значением объекта 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 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