[Resolvido]Consulta com Lista de Caixa de Listagem

Prezados, bom dia

Estou com um problema para resolver e já procurei bastante no fórum mas não encontrei nada que pudesse me ajudar. Eu tenho um sistema pronto, mas pediram para fazer uma atualização. Tenho uma tela de filtros por combobox cujas opções selecionadas retornam um formulário com o resultado.

frmFiltroRecebimento


frmListaRecebimento


O formulário frmListaRecebimento é baseado em uma consulta cujos parâmetros são definidos no formulário frmFiltroRecebimento.

O caso é que me pediram para alterar na tela de filtro o campo Situação para uma caixa de listagem, de forma que possa ser possível selecionar mais de uma opção e assim exibir o resultado correspondente. Eu já criei a caixa de listagem e a defini como seleção múltiplas, porém o resultado retorna vazio. Como posso proceder?

olá

vou te passar o código que utilizo, autor não me lembro, perdão.

Código:

Function SelecMult()
Dim ctl As control, frm As Form, lngContador As Long
Dim strWhere As String
Dim strSql As String
Dim qry As QueryDef

Set frm = Forms!F_relatorios 'Seu formulário filtro
Set ctl = frm!ListaSemRef      'Sua listbox

strWhere = ""
For lngContador = 0 To ctl.ListCount - 1
If ctl.Selected(lngContador) Then
strWhere = strWhere & "," & ctl.Column(0, lngContador)
End If
Next
strWhere = Mid(strWhere, 2)

'use esta parte caso tenha um sub relatório que precise usar o mesmo filtro.
'------------------------------------------------------------------------------------------------------------------------------
'Esta parte remonta a escrita da consulta gráfica, incorporando os itens selecionados para carregar a consulta do sub relatório
'------------------------------------------------------------------------------------------------------------------------------
strSql = "SELECT * from TblSua HAVING ID_Sua IN (" & strWhere & ")"
Set qry = CurrentDb.QueryDefs("ConsultaSua") 'Passa a consulta para variável
qry.sql = strSql 'reescreve a consulta com o filtro atual
'-------------------------------------------------------------------------------------------------------------------------------

'Verifica se tem registro selecionado na Listbox
If ctl.ItemsSelected.count > 0 Then
' Se verdadeiro Abre o form com filtro
DoCmd.Openform "frmSeu",, , "ID_Referencia IN (" & strWhere & ")"
End If
End Function


No evento click do botão chame a função

Call SelecMult

abraço!

tem esse link que achei interessante o trabalho veja:

Excluir itens selecionados de uma ListBox

Olá a todos,

Francisco Leandro, seja Bem-Vindo ao fórum

Partilhe a base de dados com os objetos envolvidos para se testar.
Assim fica mais fácil para ajudar.

Abraço

Correto!

Tenho modelo no meu Not que ficou em casa, a noite vou postar.

Grande abraço

Bom dia.
Neste tópico têm uma função que funciona exatamente como você quer, analise e veja se resolve.

https://www.maximoaccess.com/t20378-resolvido-aplicar-filtro-em-sub-relatorio-do-relatorio-principal#150109

Boa Noite!!!

Conforme prometido segue o exemplo, só tem apenas um detalhe a ser melhorado, poder excluir 2 ou mais itens da listbox selecionado!!!

Peguei um formulário do meu sistema que uso para filtro, se atenha apenas a guia ExemploMaximoAccess para não se confundir.

Este exemplo fiz com conhecimento adquirido qui no fórum e do site do Mestre Avelino Sampaio, aqui no fórum tem bastante assundo sobre isso, inclusive quero estudar sobre usar matriz para poder excluir mais que 1 item da listbox.

Outro grande exemplo que estudei foi do Plinio Mabese, no site dele tem um exemplo chamado "Caixadelistagem" que explora muito a interatividade entre duas listbox.

Grande Abraço e Sucesso!!

Olá a todos,

Marcos Novack e Cláudio Machado, obrigado pela partilha.
Ficamos aguardar o retorno do colega Francisco Leandro que abriu o tópico.

Abraço

Pessoal, agradeço a todos sobre as soluções. O exemplo postado pelo amigo Cláudio Machado foi realmente ideal para o meu problema. Fiz apenas algumas pequenas adaptações mas consegui fazer funcionar perfeitamente. Muito obrigado a todos!

Olá a todos,

Francisco Leandro, obrigado pelo retorno, o fórum agradece.

Abraço