FabioPaes 28/5/2018, 21:31
Olá, no Critério, do formulario de pesquisa coloque:
Como "*" & [Formulários]![LocalizaPedidoCompra]![FiltroPedido] & "*"
No Sub Formulário que exibe os resultados (LocalizaPedidoCompraSub) coloque no Evento ao Abrir:
Me.Filter = "Empresa = 'xxxx'"
Me.FilterOn = True
Assim, ele já carrega Filtrado, mas por algo que não existe na tabela... Assim, não listará nada!
No Botão Remover Filtro, coloque:
Me.LocalizaPedidoCompraSub.SetFocus
DoCmd.ShowAllRecords
Isso removerá o Filtro e Exibirá tudo!!!
.................................................................................
_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
O importante não saber tudo, mas sim a Onde procurar!