Usar critérios numéricos de um controle em um formulárioUse numeric criteria from a control on a form

Se você deseja alterar o argumento criteria de uma operação com base na decisão de um usuário, é possível especificar que o critério provém de um controle em um formulário.If you want to change the criteria argument for an operation based on a user's decision, you can specify that the criteria come from a control on a form. Por exemplo, você pode especificar que o argumento criteria vem de uma caixa de texto contendo o número de Employee ID.For example, you could specify that the criteria argument comes from a text box containing the EmployeeID number.

Para especificar critérios numéricos provenientes de um controle em um formulário, você pode incluir no argumento criteria uma expressão que faz referência a esse controle.To specify numeric criteria coming from a control on a form, you can include in the criteria argument an expression that references that control. Essa expressão de controle deve ser separada da expressão de cadeia de caracteres, para que o Access avalie a expressão de controle primeiro e a concatene com o restante da expressão de cadeia de caracteres antes de realizar a operação adequada.This control expression should be separate from the string expression, so that Access will evaluate the control expression first and concatenate it with the rest of the string expression before performing the appropriate operation.

Suponha que você esteja efetuando a função DLookup em uma tabela Employees para encontrar o sobrenome de um funcionário com base no número de EmployeeID.Suppose that you are performing the DLookup function on an Employees table to find the last name of an employee based on the EmployeeID number. No exemplo a seguir, os critérios são determinados pelo valor atual do controle EmployeeID no formulário Orders.In the following example, the criteria are determined by the current value of the EmployeeID control on the Orders form. A expressão que se refere ao controle é avaliada toda vez que a função é chamada, para que, caso o valor do controle seja alterado, o argumento criteria reflita essa alteração.The expression referencing the control is evaluated each time the function is called, so that if the value of the control changes, the criteria argument will reflect that change.

=DLookup("[LastName]", "Employees", "[EmployeeID] = " _ 
    & Forms!Orders!EmployeeID)

Se o valor atual do campo EmployeeID for 7, o argumento criteria que é passado para a função DPesquisa será:If the current value of the EmployeeID field is 7, the criteria argument that is passed to the DLookup function is:

"[EmployeeID] = 7"

Dica

Para solucionar problemas em uma expressão no argumento criteria, divida a expressão em componentes menores e teste cada um individualmente na janela Imediata.To troubleshoot an expression in the criteria argument, break the expression into smaller components and test each one individually in the Immediate window. Quando todos os componentes estiverem funcionando corretamente, junte-os de novo, um de cada vez, até que a expressão completa funcione corretamente.When all of the components are working correctly, put them back together one at a time until the complete expression works correctly.

Você também pode incluir uma variável que representa um valor numérico no argumento criteria .You can also include a variable representing a numeric value in the criteria argument. A variável deve ser separada da expressão de cadeia de caracteres, para que o Access avalie a variável primeiro e depois a concatene com o restante da expressão de cadeia de caracteres.The variable should be separate from the string expression, so that Access will evaluate the variable first and then concatenate it with the rest of the string expression.

O exemplo a seguir mostra como construir um argumento criteria que inclua uma variável:The following example shows how to construct a criteria argument that includes a variable:

Dim intNum As Integer 
Dim varResult As Variant 
 
intNum = 7 
varResult = DLookup("[LastName]", "Employees", _ 
    "[EmployeeID] = " & intNum)

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.