Método Application.BuildCriteria (Access)
O método BuildCriteria retorna uma cadeia de caracteres de critérios analisada, pois ela aparece na grade de design de consulta, no modo Filtrar por Formulário ou Filtro de Servidor por Formulário . Por exemplo, convém definir filtro ou a propriedade ServerFilter com base em critérios variáveis do usuário de um formulário. Use o método BuildCriteria para construir o argumento de expressão de cadeia de caracteres para a propriedade Filter ou ServerFilter . Cadeia de caracteres.
Sintaxe
expressão. BuildCriteria (Field, FieldType, Expression)
expressão Uma variável que representa um Aplicativo objeto.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Field | Obrigatório | String | O campo para o qual você deseja definir critérios. |
| FieldType | Obrigatório | Integer | Uma constante intrínseca que indica o tipo de dados do campo. Pode ser definido como um dos valores DAO DataTypeEnum. |
| Expression | Obrigatório | String | Uma expressão em sequência que identifica os critérios a serem analisados. |
Valor de retorno
Cadeia de caracteres
Comentários
O método BuildCriteria permite facilmente construir critérios para um filtro com base na entrada do usuário. Ele analisa o argumento de expressão da mesma forma que a expressão seria analisada se tivesse sido inserida na grade de design de consulta, no modo Filtrar por Formulário ou Filtro de Servidor por Formulário .
Por exemplo, um usuário que cria uma consulta em uma tabela Orders pode restringir o conjunto de resultados para pedidos feitos após 1º de janeiro de 1995, definindo critérios em um campo OrderDate . O usuário pode inserir uma expressão como a seguinte na linha Critérios abaixo do campo OrderDate :
1-1-95
O Microsoft Access analisa automaticamente essa expressão e retorna a expressão a seguir:
#1/1/95#
O método BuildCriteria oferece a mesma análise código do Visual Basic. Por exemplo, para retornar a seqüência anterior corretamente analisada, você pode fornecer os argumentos a seguir para o método BuildCriteria:
Dim strCriteria As String
strCriteria = BuildCriteria("OrderDate", dbDate, ">1-1-95")
Como você precisa fornecer critérios para a propriedade Filter no formulário analisado corretamente, você pode usar o método BuildCriteria para construir uma cadeia de caracteres analisada corretamente.
Use o método BuildCriteria para construir uma cadeia de caracteres com vários critérios se esses critérios se referirem ao mesmo campo. Por exemplo, você pode usar o método BuildCriteria com os seguintes argumentos para construir uma cadeia de caracteres com vários critérios relacionados ao campo OrderDate :
strCriteria = BuildCriteria("OrderDate", dbDate, ">1-1-95 and <5-1-95")
Este exemplo retorna a sequência de critérios a seguir:
OrderDate>#1/1/95# And OrderDate<#5/1/95#
No entanto, se você quiser construir uma cadeia de caracteres de critérios referente a vários campos, você deve criar cadeias de caracteres e concatená-los. Por exemplo, se você quiser construir critérios para um filtro mostrar os registros de pedidos feitos após 1-1-95 e cujo frete seja menor que $50, seria necessário utilizar o método BuildCriteria duas vezes e concatenar as cadeias de caracteres resultantes.
Exemplo
O exemplo a seguir solicita ao usuário inserir as primeiras letras do nome do produto e, em seguida, usa o método BuildCriteria para construir uma cadeia de caracteres de critérios com base na entrada do usuário. Em seguida, o procedimento fornece essa cadeia de caracteres como um argumento para a propriedade de filtro de um formulário Products. Finalmente, a propriedade FiltroAtivado é definida para aplicar o filtro.
Sub SetFilter()
Dim frm As Form, strMsg As String
Dim strInput As String, strFilter As String
' Open Products form in Form view.
DoCmd.OpenForm "Products"
' Return Form object variable pointing to Products form.
Set frm = Forms!Products
strMsg = "Enter one or more letters of product name " _
& "followed by an asterisk."
' Prompt user for input.
strInput = InputBox(strMsg)
' Build criteria string.
strFilter = BuildCriteria("ProductName", dbText, strInput)
' Set Filter property to apply filter.
frm.Filter = strFilter
' Set FilterOn property; form now shows filtered records.
frm.FilterOn = True
End Sub
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.