Método Application.DFirst (Access)

Use a função DFirst para retornar um registro aleatório de um determinado campo em uma tabela ou consulta quando precisar de qualquer valor desse campo.

Sintaxe

expressão. DFirst (Expr, Domínio, Critérios)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Expr	Obrigatório	String	Uma expressão que identifica o campo do qual você deseja localizar o valor de nome ou sobrenome. Pode ser uma expressão de cadeia de caracteres que identifica um campo em uma tabela ou consulta ou uma expressão que executa um cálculo nos dados desse campo. Na expr, você pode incluir o nome de um campo em uma tabela, um controle em um formulário, em uma constante ou em uma função. Se expr incluir uma função, ela poderá ser interna ou definida pelo usuário, mas não outra função de agregação de domínio ou de agregação de SQL.
Domínio	Obrigatório	String	Uma expressão formada por cadeia de caracteres que identifica o conjunto de registros que constitui o domínio.
Criteria	Opcional	Variantes	Uma expressão de cadeia de caracteres opcional utilizada para restringir o intervalo de dados no qual a função DFirst é executada. Por exemplo, criteria costuma ser equivalente à cláusula WHERE em uma expressão SQL, sem o termo WHERE. Se criteria for omitido, a função DFirst avaliará expr em relação ao domínio inteiro. Qualquer campo incluído em criteria deve ser também um campo no domain; caso contrário a função DFirst retornará um Null.

Valor de retorno

Variant

Comentários

Observação

Para retornar o primeiro ou o último registro de um conjunto de registros (um domínio), crie uma consulta classificada como crescente ou decrescente e defina a propriedade TopValues como 1. No Visual Basic, você pode também criar um objeto Recordset do ADO e usar o método MoveFirst ou MoveLast para retornar o primeiro ou o último registro de um conjunto de registros.

Exemplo

Os exemplos a seguir mostram como usar vários tipos de critérios com a função DFirst .

    ' ***************************
    ' Typical Use
    ' Numerical values. Replace "number" with the number to use.
    variable = DFirst("[FieldName]", "TableName", "[Criteria] = number")

    ' Strings.
    ' Numerical values. Replace "string" with the string to use.
    variable = DFirst("[FieldName]", "TableName", "[Criteria]= 'string'")

    ' Dates. Replace "date" with the string to use.
    variable = DFirst("[FieldName]", "TableName", "[Criteria]= #date#")
    ' ***************************

    ' ***************************
    ' Referring to a control on a form
    ' Numerical values
    variable = DFirst("[FieldName]", "TableName", "[Criteria] = " & Forms!FormName!ControlName)

    ' Strings
    variable = DFirst("[FieldName]", "TableName", "[Criteria] = '" & Forms!FormName!ControlName & "'")

    ' Dates
    variable = DFirst("[FieldName]", "TableName", "[Criteria] = #" & Forms!FormName!ControlName & "#")
    ' ***************************

    ' ***************************
    ' Combinations
    ' Multiple types of criteria
    variable = DFirst("[FieldName]", "TableName", "[Criteria1] = " & Forms![FormName]![Control1] _
             & " AND [Criteria2] = '" & Forms![FormName]![Control2] & "'" _
            & " AND [Criteria3] =#" & Forms![FormName]![Control3] & "#")
    
    ' Use two fields from a single record.
    variable = DFirst("[LastName] & ', ' & [FirstName]", "tblPeople", "[PrimaryKey] = 7")
            
    ' Expressions
    variable = DFirst("[Field1] + [Field2]", "tableName", "[PrimaryKey] = 7")
    
    ' Control Structures
    variable = DFirst("IIf([LastName] Like 'Smith', 'True', 'False')", "tableName", "[PrimaryKey] = 7")
    ' ***************************

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.