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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de