MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    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 em 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!
    Anexos
    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform Attachmentfiltro com opções.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (251 Kb) Baixado 15 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em 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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em 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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mfmaiafilho em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em 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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em 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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  mfmaiafilho em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em 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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    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 em 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 ?
    Anexos
    [Resolvido]Filtrar Caixa e Listagem com Opções em Subform AttachmentFILTROS.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (268 Kb) Baixado 24 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    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 em 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.
    avatar
    mfmaiafilho
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 232
    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 em 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

      Data/hora atual: 30/11/2020, 05:10