[Resolvido]Filtrar Registro Caixa De Listagem Por Data

Boa noite a todos,

Senhores (as), mais uma vez venho solicitar a ajuda dos colegas, quanto a resolução na implementação de uma funcionalidade.

O que ocorre é o seguinte, conforme segue na imagem anexo, possuo um formulário que apresenta uma caixa de listagem que por sua vez possui como fonte uma consulta e preciso aplicar um filtro por data, com base no campo acima dessa caixa de listagem. Trata-se de filtragem realizada apenas com base em uma data especifica, sendo essa informada no campo mencionado.

Funcionaria assim, ao informar a data para filtragem e clicar no botão ao lado, executa-se o filtro dos registros que possuem essa data, sendo que quando o filtro não estiver acionado, traga todos os registros da consulta.

Desde já agradeço a todos.

Boas...


Dessa forma pode ficar ...

No final do formulário em questão, no modo VBA

Código:

Public Sub filtro1()
Dim f1 As Variant
    
    If nomecampodata<> "" Then
        f1 = "[datapagamento] Like '*" & nomecampodata & "*'"    ' datapagamento, campo que está no formulário continuo.   Nomecampodata, nome dado a caixa de texto que será colocado a data para pesquisa.
    Else
        f1 = ""
    End If
    
    Me.Filter = f1
    Me.FilterOn = True
End Sub

Criar um botão limpar, para desabilitar  oque fora filtrado e colocar esse código

Código:

Private Sub bt_limpar1_Click()
Me.nomecampodata= ""
Me.FilterOn = False
Me.nomecampodata.SetFocus
End Sub

No botão filtrar, colocar esse código.

Código:

Private Sub bt_filtrar1_Click()
filtro1
End Sub

Silvio, boa  noite

Primeiramente obrigado pelo imediato retorno.

Em relação aos códigos informado, especificamente em relação ao primeiro, a descrição da linha de comando informa a sua utilização para um campo de formulário continuo. Acontece que o formulário em questão é um "formulário simples" onde os dados são demonstrados em uma caixa de listagem (listbox), sendo que essa listbox é alimentada por uma consulta.

Dessa forma deduzo que o código necessite ser ajustado para atender a necessidade?

Fico no aguardo para orientações.

Bom dia, pode usar de boa.

Boa tarde, Silvio

Utilizei o código como informado, porém infelizmente nada ocorre, nem ao menos apresentou qualquer mensagem de erro.

Abaixo encaminho a tela do VBA de como foram inserido os códigos e também o modo design do formulário.

bom dia....

poste aqui, anexe....as partes envolvidas.

Para filtrar ListBox prefiro assim, ao digitar;

Senhores, bom dia

Primeiro quero agradecer a vocês pela ajuda.


Utilizando o exemplo postado pelo JPaulo ficou da maneira que eu precisava.

De toda forma agradeço ao Silvio pela disponibilidade de tempo nas tentativas de resolução do caso.

JPaulo, caiu como uma luva seu exemplo, mais uma vez obrigado.

Abs

Fico feliz.
Obrigado pelo retorno.