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]Aplicar filtro ao abrir uma tabela de consulta

    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 25/6/2021, 20:29

    Boa tarde!
    Preciso de um filtro em que eu possa selecionar alguns número ao abrir uma consulta.
    Exemplo: Gostaria de filtrar um ou mais números (ex: 1, 3 e 44) e ele me retornasse com os que selecionei. Quem puder me ajudar eu agradeço.
    Anexos
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta AttachmentFiltro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (75 Kb) Baixado 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 25/6/2021, 21:23

    Ola tentar

    Fiz um formulário com uma listbox de seleções multiplas.
    À medida que voce clicar no numero desejado da lista, a consulta é carregada automaticamente.
    Ficou assim:
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Multis10

    Espero ter ajudado.

    Boa dorte.

    []'s

    FIM
    Anexos
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta AttachmentFiltro_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (98 Kb) Baixado 16 vez(es)
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 25/6/2021, 21:39

    Ficou muito legal, tenho uma pergunta:
    Tenho que manter as 2 consultas qryDados e qryNumDist, para gerar o resultado?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 25/6/2021, 21:49

    Sim.

    A "qryNumDist" carrega os numeros distintos da tabela e que serve para montar a listbox.
    A "qryDados" é uma visão da Tabela1 que serve para carregar so dados no subformulário, usando como parâmetro, os numeros selecionados na listbox.

    É isso!
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 29/6/2021, 12:25

    Bom dia!
    Ok. Na tabela eu coloquei dados fictícios, onde posso alterar sem que de problemas?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 29/6/2021, 14:14

    Bom dia,

    Os dados tem como origem a "Tabela1" e tudo o que vc fizer nela irá refletir nos resultados.

    []'s

    FIM
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 29/6/2021, 15:15

    Fiz, as alterações na tabela, e está retornando com a mensagem em anexo
    Anexos
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta AttachmentErro.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 29/6/2021, 16:06

    Você alterou os dados ou a estrutura da tabela?

    Envie o seu bd para análise, por favor.

    []'s

    FIM
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 29/6/2021, 16:20

    Encaminhando para análise. Alterei o nome de alguns campos e tive que apagar os dados originais para envio.
    Anexos
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Attachment29-06-2021 Original Filtro v1 - Copia - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (89 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 29/6/2021, 16:33

    No eento abaixo, ajuste o campo "numero" para o campo que vc alterou:

    Private Sub lstNum_Click()
    Dim vDados As Variant
    Dim i As Integer

    vDados = Empty

    With lstNum
    For i = 0 To lstNum.ListCount - 1
    If .Selected(i) = True Then
    vDados = "'" & .Column(0, i) & "'," & vDados & ""
    End If
    Next i
    End With
    If Not IsNull(vDados) And Trim(vDados) <> Empty Then
    vDados = Mid(vDados, 1, Len(vDados) - 1)
    Else
    vDados = "'0'"
    End If

    frmsubDados.Form.RecordSource = "SELECT * FROM qryDados WHERE numero in (" & vDados & ")"
    frmsubDados.Form.Requery

    End Sub


    Não crie campos com espaços ou caracteres especiais. Isso dificulta a manutenção quando for utilizar o VBA:
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Ajuste10


    é ISSO


    FIM


    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 29/6/2021, 18:21

    Deu certo. Teria como, após a seleção fazer uma auto soma na coluna? E um um relatório?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 29/6/2021, 19:21

    Sim...

    Presumindo que você queira somar o campo "cod 1", na tabela, mude o tipo de dados "Texto Curto" para Número.

    Em seguida, siga conforme a imagem:
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Totais13

    No relatório, você pode utilizar uma consulta, agrupando e somando, conforme abaixo:
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Qry_re10

    em seguida, é só criar o relatório através do assistente e selecionar a consulta criada como fonte de dados do relatório.


    É isso

    []'s

    FIM
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 29/6/2021, 20:02

    Ok, consegui e como fazer gerar um relatório apenas, para os que selecionar?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 29/6/2021, 20:28

    Utilize o mesmo conceito do click da lista para filtrar os dados do subformulário, para filtrar o relatório.
    Siga os passos abaixo:

    1- Incluir Option Explicit no topo do código do formulário
    2- Mude a declaração da variável "vDados" .. Desta forma, a variável se torna pública do formulário.

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Declar10

    3 - Incluir um botão de comando (sem usar o assistente), renomei para "cmdRelatorio"

    4 - No evento "Ao Clicar", incluir a seguinte linha:

    DoCmd.OpenReport "NOME_DO_SEU_RELATORIO", acViewPreview, , " nu_M in (" & vDados & ")"

    OBS: Estou presumindo que a consulta que gera o relatório possui o campo "nu_M"


    Conclusão:

    Foi utilizada a mesma rotina para filtrar os dados do formulário quanto para gerar o relatório.

    É isso

    []'s

    FIM
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 29/6/2021, 22:04

    Mestre, consegui entender mas não sei como colocar. Você poderia me ajudar mais uma vez?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 29/6/2021, 22:33

    Cara?
    Manda a versão.

    FIM
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 30/6/2021, 22:10

    Oi, você poderia fazer no banco que foi disponibilizado?  Fiz as alterações conforme você descreveu e deram certo Só não consegui acompanhar para criação e aplicação do botão que você orientou
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 7/7/2021, 18:05

    Estou disponibilizando o arquivo, para que possam me ajudar a corrigir o relatório incluído, acho que devido algum erro não está rodando.
    Anexos
    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta AttachmentFiltro v2 .zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (126 Kb) Baixado 3 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 7/7/2021, 21:05

    Tentar boa tarde,

    O que vc pretende usar neste sey exemplo?
    Existe  a "Tabela1" com dados fictícios que não informam nada.
    O que vc precisa?
    Seja mais específico em seu dúvida.

    Grato

    []'s

    FIM
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 7/7/2021, 21:37

    A partir da seleção pelo numero (1) e numero (10170)  como no exemplo abaixo e o anexo. O relatório gerado pudesse fazer um sub total da coluna (s pelas letras), como no exemplo anexado e abaixo e depois um Total Geral

    Número 1 =
    BB 80

    CC 40
    CC 12
        52

    DD 100

    MM 30    
    MM 50
    MM 11
    MM 15
      106

    PP  25
    SS 120
    XX 30    
    VV 60

    Número 10170 =
       130
       145
        65
      340

    Total Geral = 913


    Última edição por tentar em 6/8/2021, 19:08, editado 1 vez(es) (Motivo da edição : Para finalizar o tópico)
    avatar
    tentar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 210
    Registrado : 03/05/2013

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  tentar 18/8/2021, 17:39

    Resolvido
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Aplicar filtro ao abrir uma tabela de consulta Empty Re: [Resolvido]Aplicar filtro ao abrir uma tabela de consulta

    Mensagem  Alexandre Fim 18/8/2021, 18:00

    Ok...VAleu...

    O fórum agradece.
    Sucesso !!!

      Data/hora atual: 23/9/2021, 00:07