[resolvido] Filtar Listbox por data informada

Moderador: Avelino Sampaio

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

[resolvido] Filtar Listbox por data informada

Mensagempor José Waldick » 28 Dez 2017, 15:27

Não estou conseguindo filtrar a 'listbox' através do campo 'dh_nascimento'.
Ex:
Ao informar a 'dh_nascimento' a 'listbox' não está filtrando os clientes, não retorna nenhum valor.
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1897
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Filtar Listbox por data informada

Mensagempor Avelino Sampaio » 28 Dez 2017, 16:37

Jose,

cadê o código utilizado ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Filtar Listbox por data informada

Mensagempor José Waldick » 30 Dez 2017, 00:13

Avelino,
Pesquisando nos artigos deste site, encontrei a solução:

Código: Selecionar todos

Private Sub dh_pesquisa_AfterUpdate()
 
  If IsNull(Me!dh_pesquisa) Then
    Me!lista.RowSource = "SELECT tblcadastros.id_cadastro, tblcadastros.dh_nascimento AS Nascimento, tblcadastros.membro AS Membro FROM tblcadastros order by SC, tblcadastros.membro;"
    Me!lista.Requery
     
  Else
    Me!lista.RowSource = "SELECT tblcadastros.id_cadastros, tblcadastros.dh_nascimento AS Nascimento, tblcadastros.membro AS Membro FROM tblcadastros WHERE (tblcadastros.dh_nascimento)= #" & Format(Me!dh_pesquisa, "mm/dd/yyyy") & "# ORDER BY tblcadastros.membro;"
    Me!lista.Requery
  End If
 
 End Sub
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 10 visitantes