MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Pesquisa Data e Nome

    avatar
    m_sousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 06/11/2020

    [Resolvido]Pesquisa Data e Nome Empty [Resolvido]Pesquisa Data e Nome

    Mensagem  m_sousa 29/12/2021, 12:28

    Olá

    Amigos tenho estes dois códigos e funcionam, só me falta que ao filtrar por data ele mantenha a pessoa ou vice versa.
    A ideia era pesquisar entre datas e depois pelo nome, mantendo a data que foi filtrada.

    Primeiro código pesquisa o nome numa caixa de texto. Segundo código pesquisa data entre datas. Agora era a fixação da data enquanto se pesquisa pelo nome para dar o resultado dos registo entre as datas da pessoa pesquisada.

    Código:
    Private Sub btnFiltrarData_Click()
    filtro = "[DataSIC] Between #" & Format(Me!DI, "mm/dd/yyyy") & "# AND #" & Format(Me!DF, "mm/dd/yyyy") & "#"

    Me!NOVOSUBFORM.Form.Filter = filtro
    Me!NOVOSUBFORM.Form.FilterOn = True
    End Sub

    Private Sub txtPesquisa_Change()
    Dim strFiltro As String
    strFiltro = "NomeUtente LIKE '*" & Me.txtPesquisa.Text & "*' "
    Me.NOVOSUBFORM.Form.Filter = strFiltro
    Me.NOVOSUBFORM.Form.FilterOn = True
    End Sub

    Obrigado
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Pesquisa Data e Nome Empty Re: [Resolvido]Pesquisa Data e Nome

    Mensagem  Alexandre Fim 29/12/2021, 12:58

    Olá Marcos,

    Por gentileza, compartilhe seu bd (comente objetos envolvidos) para análise e solução.

    Att,

    FIM


    .................................................................................
    [Resolvido]Pesquisa Data e Nome Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Pesquisa Data e Nome Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Pesquisa Data e Nome Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    m_sousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 06/11/2020

    [Resolvido]Pesquisa Data e Nome Empty Re: [Resolvido]Pesquisa Data e Nome

    Mensagem  m_sousa 30/12/2021, 08:36

    Segue partes da bd. Obrigado.

    form : NOVO e encontram-se os objectos campos e botões de filtragem.
    Anexos
    [Resolvido]Pesquisa Data e Nome Attachmentbd.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (110 Kb) Baixado 7 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Pesquisa Data e Nome Empty Re: [Resolvido]Pesquisa Data e Nome

    Mensagem  Alexandre Fim 30/12/2021, 10:49

    Olá Marcos,

    O formulário agora está com a pesquisa dinâmica, onde ele verifica se existe o preenchimento do campo de pesquisa e das datas também, e faz o filtro conforme os parâmetros informados,

    Inclui também validações para preenchimento correto das datas

    Fiz alguns ajustes no designer e inclui um botão de remover filtro também. Ficou assim:
    [Resolvido]Pesquisa Data e Nome Pesqui13

    É isso.
    Segue versão do sistema.
    Espero ter ajudado.

    Boa sorte

    []'s

    FIM
    Anexos
    [Resolvido]Pesquisa Data e Nome Attachmentbd_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (120 Kb) Baixado 15 vez(es)


    .................................................................................
    [Resolvido]Pesquisa Data e Nome Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Pesquisa Data e Nome Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Pesquisa Data e Nome Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    m_sousa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 06/11/2020

    [Resolvido]Pesquisa Data e Nome Empty Re: [Resolvido]Pesquisa Data e Nome

    Mensagem  m_sousa 30/12/2021, 11:44

    OK !
    É isto mesmo. Obrigado
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2334
    Registrado : 13/12/2016

    [Resolvido]Pesquisa Data e Nome Empty Re: [Resolvido]Pesquisa Data e Nome

    Mensagem  Alexandre Fim 30/12/2021, 11:48

    Ok Marcos...o fórum agradece !!!
    Boa sorte e sucesso!!


    .................................................................................
    [Resolvido]Pesquisa Data e Nome Information2 Marcar tópico como Resolvido: CLIQUE AQUI
    [Resolvido]Pesquisa Data e Nome Information2 Postar anexos no fórum: CLIQUE AQUI

    [Resolvido]Pesquisa Data e Nome Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 18/5/2022, 20:14