... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$145,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Exibir relatório dos itens selecionados de uma ListBox

Observe, na imagem abaixo, os itens selecionados na Listbox:

Usando Access - Listbox

Foram selecionados os itens de números 2, 19, 21 e 24.  Podemos realizar a filtragem do relatório através destes números selecionados, utilizando o operador IN(),  conforme o código apresentado abaixo:

Docmd.OpenReport "rltFrutas",acViewPreview ,,"IdFruta in(2,19,21,24)"

Ou podemos também selecionar pelo nome da fruta (campo do tipo string):

Dim strFiltro as string
strFiltro ="NomeFruta IN('Abacate','banana','laranja,'melão')"
Docmd.OpenReport "rltFrutas",acViewPreview ,,strFiltro

A propriedade do controle Listbox que nos permite capturar os itens selecionados é a ItemsSelected.  E para percorrer e capturar cada um dos itens selecionados, fazemos uso do laço For Each

O código exemplo abaixo monta a lista do operador IN() com o números exclusivos.

Private Sub btRelatorio_Click()
Dim strFiltro As String, Sel As Variant, j As Boolean

strFiltro = "in("
'----------------------------------------
'Percorre cada item selecionado da lista
'----------------------------------------
For Each Sel In Me!Lista.ItemsSelected
   '-------------------------------------------------------
   'Adiciona o item selecionado da lista no operador IN()
   '-------------------------------------------------------
   strFiltro = strFiltro & Me!Lista.Column(0, Sel) & ","
   j = True
Next
strFiltro = Mid(strFiltro, 1, len(strFiltro) - 1) & ")"
strFiltro = "idfruta " & strFiltro

If j = False Then Exit Sub 'Aborta, caso não haja item selecionado
DoCmd.OpenReport "rltFrutas", acViewPreview, , strFiltro
End Sub

Nota 1: Para poder selecionar múltiplos itens em um controle Listbox, altere a propriedade Seleções Múltiplas para Simples.

Nota 2:  Baixe o exemplo, aqui apresentado, neste meu artigo.


Bom estudo!


 

 


Não há comentário

Envie seu comentário: