Exibir relatório dos itens selecionados de uma ListBox
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Observe, na imagem abaixo, os itens selecionados na 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!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Vídeo - Aprenda sobre filtragens
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Adquira o kit UsandoAccess e aprenda em alta velocidade
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
| Não há comentário |