Compartilhar via

Propriedade Field2.Required (DAO)

  • Artigo

Aplica-se ao: Access 2013, Office 2013

Define ou retorna um valor que indica se o objeto Field2 requer ou não um valor não-Nulo .

Sintaxe

expressão . Necessário

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

Comentários

Para um objeto Field2 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, conforme mostrado 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

Você pode usar a propriedade Required junto com as propriedades AllowZeroLength, ValidateOnSet ou ValidationRule para determinar a validade da configuração da propriedade Value para aquele objeto Field2. Se a propriedade Required for definida como False, o campo conterá valores null e valores que atendam às condições especificadas pelas configurações das propriedades AllowZeroLength e ValidationRule.

Observação

[!OBSERVAçãO] Quando for possível definir essa propriedade para um objeto Index ou para um objeto Field2, defina-a para o objeto Field2. A validade da configuração da propriedade para um objeto Field2 é verificada antes da configuração para um 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 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