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


    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  mfmaiafilho 31/7/2020, 16:40

    Bom dia Srs, gostaria de saber se existe como fazer filtros em uma caixa de listagem com opções em subformulário

    Segue o arquivo em anexo, por gentileza ajudem!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  Alexandre Fim 31/7/2020, 20:22

    Mizael boa tarde,

    Sua dúvida ficou um pouco vaga. Poderia dar mais detalhes?

    Att,


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  mfmaiafilho 31/7/2020, 20:44

    bem eu tenho uma Caixa de Listagem, e fiz as Opções "Todos" "Fechados" quando eu clicar em Fechados preciso que a caixa de listagem traga apenas os periodos fechados, quando clicar em Todos traga todos os registros.


    conseguiu compreender ?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  Alexandre Fim 31/7/2020, 20:46

    Sim...entendi

    Ok


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  Alexandre Fim 31/7/2020, 20:56

    Mizael,

    Copie e Cole o seguinte código:

    Código:


    Private Sub OptFiltros_Click()
    Dim sSQL As String

        If Me.OptFiltros.Value = 1 Then
            sSQL = "SELECT * FROM Qry_PesqCadPeriodo"
            Me.PesqList.RowSource = sSQL
        ElseIf Me.OptFiltros.Value = 2 Then
            sSQL = "SELECT * FROM Qry_PesqCadPeriodo WHERE Fechado = -1"
            Me.PesqList.RowSource = sSQL
        End If
               
        Me.PesqList.Requery

    End Sub



    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty funcional

    Mensagem  mfmaiafilho 31/7/2020, 21:02

    vou deixar aberto aqui até adaptar em todas as telas de pesquisa, se precisa posso contar com vc ?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  Alexandre Fim 31/7/2020, 21:07

    Sim...sem problemas !!!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  mfmaiafilho 3/8/2020, 21:18

    Olá boa tarde tudo bem?

    Dim sSQL As String

    If Me.OptFiltros.Value = 1 Then
    sSQL = "SELECT * FROM Qry_PesqChamadosEsp"
    Me.PesqList.RowSource = sSQL
    ElseIf Me.OptFiltros.Value = 2 Then
    sSQL = "SELECT * FROM Qry_PesqChamadosEsp WHERE Status = Pendente"
    Me.PesqList.RowSource = sSQL
    End If

    Me.PesqList.Requery

    agora peguei o seu código e quis colocar um valor para a coluna Status

    pra trazer apenas o que estão com o valor de PENDENTE mas dá erro =/
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  Alexandre Fim 3/8/2020, 21:27

    Olá Mizael,

    Quando fizer uma condição SQL com campo texto, é necessário usar o APÓSTROFO (')

    Segue:
    sSQL = "SELECT * FROM Qry_PesqChamadosEsp WHERE Status = 'Pendente'"

    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty deu certo

    Mensagem  mfmaiafilho 4/8/2020, 16:40

    obrigado deu certo, mas tem algo que não está legal

    quando eu digitar no PesqCamp, ele fica com o filtro marcado =/

    por exemplo eu coloco o filtro "Pendentes", porém quando eu digito pra buscar por texto palavra-chave, ele continua com o filtro Pendentes =/

    o certo é que quando eu escrever algo no PesqCamp, ele desmarcar todos os filtros....
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  Alexandre Fim 4/8/2020, 17:00

    Por gentileza, poste o sistema pra eu analisar.

    att,


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  mfmaiafilho 5/8/2020, 14:39

    pronto amigo está em anexo, eu não quis anexar tudo pq tem informações privilegiadas da empresa tudo bem ?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  Alexandre Fim 5/8/2020, 14:59

    No formulário "Frm_Pesquisar_Chamados" , copie e cole a seguinte instrução:

    Código:


    Private Sub PesqCamp_KeyPress(KeyAscii As Integer)

        Me.OptFiltros.Value = 1
        OptFiltros_Click

    End Sub




    Boa sorte.


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 370
    Registrado : 02/08/2018

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  mfmaiafilho 5/8/2020, 18:27

    Ficou Joia!

    eu queria puder criar outros filtros sabe, tem uma tela de poderia ser um filtro com caixa de combinação já que iria mostrar o cadastro de usuários ou equipamentos

    Conteúdo patrocinado

    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Empty Re: [Resolvido]Filtrar Caixa e Listagem com Opções em Subform

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/5/2021, 06:49