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


4 participantes

    [Resolvido]Consulta com Lista de Caixa de Listagem

    avatar
    leandrocruz.ti
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/04/2018

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  leandrocruz.ti 14/5/2019, 15:38

    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
    [Resolvido]Consulta com Lista de Caixa de Listagem Filtro10

    frmListaRecebimento
    [Resolvido]Consulta com Lista de Caixa de Listagem Result10

    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?
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 19/01/2011

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  marcos_novack 15/5/2019, 01:38

    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!
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 19/01/2011

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  marcos_novack 15/5/2019, 04:11

    tem esse link que achei interessante o trabalho veja:

    Excluir itens selecionados de uma ListBox
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  Alvaro Teixeira 15/5/2019, 08:43

    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


    Última edição por ahteixeira em 16/5/2019, 14:52, editado 1 vez(es) (Motivo da edição : Troca do nome do usuário na mensagem)
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 19/01/2011

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  marcos_novack 15/5/2019, 13:18

    Correto!

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

    Grande abraço
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  Cláudio Machado 15/5/2019, 15:31

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Consulta com Lista de Caixa de Listagem 90dssg para agradecer a dica que solucionou seu problema.
    marcos_novack
    marcos_novack
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 19/01/2011

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Exemplo Filtro com ListBox

    Mensagem  marcos_novack 16/5/2019, 04:01

    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!!
    Anexos
    [Resolvido]Consulta com Lista de Caixa de Listagem AttachmentExemploFiltroListBox.zip
    Exemplo
    Você não tem permissão para fazer download dos arquivos anexados.
    (81 Kb) Baixado 50 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  Alvaro Teixeira 16/5/2019, 14:53

    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


    avatar
    leandrocruz.ti
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 10/04/2018

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  leandrocruz.ti 21/5/2019, 18:28

    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!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  Alvaro Teixeira 22/5/2019, 11:25

    Olá a todos,

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

    Abraço

    Conteúdo patrocinado


    [Resolvido]Consulta com Lista de Caixa de Listagem Empty Re: [Resolvido]Consulta com Lista de Caixa de Listagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:59