Compartilhar via

Propriedade Field.Required (DAO)

Aplica-se ao: Access 2013, Office 2013

Define ou retorna um valor que indica se um objeto Field requer um valor não Null.

Sintaxe

expressão . Necessário

expressão Uma variável que representa um objeto de Campo.

Comentários

Para um Field ainda não acrescentado à coleção Fields, essa propriedade é de leitura/gravação.

A disponibilidade da propriedade Required depende do objeto que contém a coleção Fields, como exibido na tabela a seguir.

Se a coleção Fields pertencer a um

Então Required será

Objeto do Índice

Sem suporte

Objeto QueryDef

Somente leitura

Objeto Recordset

Somente leitura

Objeto Relation

Sem suporte

Objeto TableDef

Leitura/gravação

Use a propriedade Required junto com a propriedade AllowZeroLength, ValidateOnSet ou a propriedade ValidationRule para determinar a validade da definição da propriedade Value desse objeto Field. Se a propriedade Required for definida como False, o campo pode conter os valores null assim como os valores que atendem as condições especificadas pelas definições das propriedades AllowZeroLength e ValidationRule.

Observação

[!OBSERVAçãO] Quando definir essa propriedade para um objeto Index ou um objeto Field, defina-a para o objeto Field. A validade da definição da propriedade para um objeto Field é verificada antes da validade do objeto Index.

Exemplo

Este exemplo usa a propriedade Required para relatar quais campos de três tabelas diferentes devem conter dados para que um novo registro possa ser adicionado. O procedimento RequiredOutput é necessário para que este procedimento seja executado.

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
  • Last updated on