[Resolvido]Aplicar filtro ao abrir uma tabela de consulta

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.

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:


Espero ter ajudado.

Boa dorte.

[]'s

FIM

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

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!

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

Bom dia,

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

[]'s

FIM

Fiz, as alterações na tabela, e está retornando com a mensagem em anexo

Você alterou os dados ou a estrutura da tabela?

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

[]'s

FIM

Encaminhando para análise. Alterei o nome de alguns campos e tive que apagar os dados originais para envio.

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:



é ISSO


FIM

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

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:


No relatório, você pode utilizar uma consulta, agrupando e somando, conforme abaixo:


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

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

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.



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

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

Cara?
Manda a versão.

FIM

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

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.

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

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

Resolvido

Ok...VAleu...

O fórum agradece.
Sucesso !!!