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


2 participantes

    [Resolvido]Abrir Relatório com seleção Múltipla

    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Abrir Relatório com seleção Múltipla Empty Abrir Relatório com seleção Múltipla

    Mensagem  ton0612 26/4/2012, 21:56

    Boa tarde.
    Estou precisando de uma ajuda para abrir um relatório com varios critérios.
    1 - tenho um formulário com uma "Caixa de Listagem" (listbox), que tem como origem de dados uma tabela com aproximadamente 100 itens ou mais ainda...
    2 - preciso abrir um relatório porém selecionando somente alguns dos itens, as vezes item 50 + iten 60 + iten 2 + iten 10 ... indiferente da quantidade, 5, 6 , 10, 15 ... ou quase todos. (não sei fazer isso.)

    3 - logo mais preciso que o relatório seja filtrado conforme os itens selecionados.
    por exemplo:

    tenho na lista:
    Item 1
    Item 2
    Item 3
    Item 4
    Item 5
    Item 6
    Item 7
    Item 8
    ...
    Item 20
    Item 21
    Item 22
    Item 23

    e seleciono somente os itens:

    1
    2
    5
    12
    19

    e preciso que o relatorio abra filtrando por estes itens.

    isso é posspivel?

    Desde já muito obrigado.

    Ah... procurei no fórum, porém não encontrei algo do gênero.
    avatar
    Convidad
    Convidado


    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  Convidad 26/4/2012, 22:13


    Olá!

    A caixa de listagem deve ter sua propriedade Seleções múltiplas setada com Estendida.

    No relatório defina o seguinte critério:
    NomeDoCampo In (" & ObterSelecionados(NomeDaListBox, False) & ")

    Use o parâmetro True para valor número e False para valor texto.

    Função ObterSelecionados (cole num módulo global):


    Public Function ObterSelecionados(CxList As Control, Numerico As Boolean) As String
    Dim varIndex As Variant
    Dim strSel As String
    Dim intlen As Integer
    If CxList.ItemsSelected.count > 0 Then
    For Each varIndex In CxList.ItemsSelected
    If Numerico = True Then
    strSel = strSel & CxList.ItemData(varIndex) & ","
    Else
    strSel = strSel & "'" & CxList.ItemData(varIndex) & "',"
    End If
    Next varIndex
    intlen = Len(strSel)
    ObterSelecionados = Left(strSel, intlen - 1)
    Else
    ObterSelecionados = ""
    End If
    End Function

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  Avelino Sampaio 26/4/2012, 22:38

    Alem da ótima dica do Norberto, veja um exemplo de imprimir selecionados, no aplicativo Maestro, deste meu artigo:

    http://www.usandoaccess.com.br/tutoriais/tuto35.asp?id=1#inicio

    Bom estudo!



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  ton0612 27/4/2012, 17:33

    Obrigado amigo... vou testar .. e ja lhe informo no máximo até segunda.

    Obrigado mesmo.
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  ton0612 30/4/2012, 21:46

    Obrigado ... pelo retorno, ainda estou colocando em meu projeto, porém ainda não finalizei para testá-lo, final de semana foi meio corrido.. porém neste período surgiu uma duvida:

    eu converti a lista para aceitar seleções múltiplas, mas gostaria de um comando para limpar as seleções.
    ja tentei o requery e mais alguns outros... porém não consegui...

    agradeço a ajuda.
    avatar
    Convidad
    Convidado


    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  Convidad 30/4/2012, 23:27


    Em um botão, e em outro botão:

    'chamada para selecionar tudo: call fncSelecionarTudo(true, me!NomeCampoListBox)
    'chamada para limpar tudo: call fncSelecionarTudo(false, me!NomeCampoListBox)

    Public Function fncSelecionarTudo(sl As Boolean, NomeList As Control)
    Dim lngLista As Long
    For lngLista = 0 To NomeList.ListCount - 1
    NomeList.Selected(lngLista) = IIf(sl = True, True, False)
    Next
    End Function

    A função vai num módulo global.
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  ton0612 2/5/2012, 13:19

    Bom Dia... agradeço a ajuda.

    Gostei destas funções... agora vou tentar usar junto com outros filtros e qualquer coisa volto a gritar por socorro kkk.

    vi também o Maestro, obrigado Avelino... apropósito a link de como usar os filtros já mantenho aberto, muito bom.. parabéns.

    eu gostaria de aprender a trabalhar mais com listas, teria algum tutorial, apostila ou algo para eu ler um pouco mais?

    Obrigado e um bom dia a todos.
    avatar
    Convidad
    Convidado


    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  Convidad 2/5/2012, 13:44


    Disponha!

    O Fórum agradece o retorno, e um bom dia pra você.

    Quanto a listas, se fala de caixas de listagens, não tenho um material específico, mas estamos aí pra ajudar a esclarecer suas dúvidas.
    avatar
    ton0612
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    Registrado : 30/03/2011

    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  ton0612 2/5/2012, 17:06

    Me aproveitando da bondade de do conhecimento de vocês.

    Teria como uma lista filtrar a outra?
    por exemplo:

    os registros completos sao:
    Linha / Formato
    Sac Pap / 1
    Sac Pap / 3

    Sac Plast / 42x50
    Sac Plast / 50x60


    do jeito que esta aparece na lista "lstFormato" os itens 1 / 3 / 42x50 / 50x60 ou seja misturado plástico e papel

    porém gostaria que ao selecionar Sac na lista "lstLinha" ele filtrasse a lista "lstFormato" para aparecer só itens refente a sua linha, mas se selecionar as duas linhas aparecer as duas...

    ao todo são 4 linhas por enquanto.

    avatar
    Convidad
    Convidado


    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  Convidad 2/5/2012, 19:38


    Você pode definir a Origem da Linha de uma listagem com uma instrução Select que filtre baseada na outra listagem.

    Conteúdo patrocinado


    [Resolvido]Abrir Relatório com seleção Múltipla Empty Re: [Resolvido]Abrir Relatório com seleção Múltipla

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 11:50