Usar a inserção do usuário para criar critérios de filtro

O método BuildCriteria permite facilmente construir critérios para um filtro com base na entrada do usuário. Ele analisa o argumento expressão da mesma forma que a expressão seria analisada se tivesse sido inserida na grade de design da consulta, no modo Filtrar por Formulário ou Filtro do Servidor por Formulário.

O exemplo a seguir solicita ao usuário que digite as primeiras letras do nome de um produto e utilize o método BuildCriteria para formar uma cadeia de caracteres de critérios baseada na entrada do usuário. A seguir, o procedimento fornece essa cadeia de caracteres como um argumento para a propriedade Filter de um formulário chamado Products. Por fim, a propriedade FilterOn é 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.