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

    Caixa de listagem seleção multipla

    avatar
    Vittor_Duarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/08/2016

    Caixa de listagem seleção multipla Empty Caixa de listagem seleção multipla

    Mensagem  Vittor_Duarte 21/3/2017, 13:08

    Bom dia Pessoal!

    Gostaria de saber o seguinte, tenho uma base de dados, e preciso faze um formulário com 3 caixas de listagem de seleção múltipla para que ao selecionar o que desejo, aperto um botão no qual vai abrir uma tabela com todas as informações puxadas de acordo com o filtro que fiz, mas gostaria que ao selecionar o "estado" que é um campo em um caixa de listagem, tivesse um código vba para atualizar a outra caixa de listagem com todas as cidades de acordo com o estado que selecionei na outra caixa de listagem, alguém poderia me ajudar?

    Atenciosamente.
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 29/08/2012

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Clebergyn 22/3/2017, 00:22

    Veja ai se ajuda

    se não der para baixar me avise

    https://www.dropbox.com/s/igdsx5baqayvgc7/CidadesBrasil.zip?dl=0
    avatar
    Vittor_Duarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/08/2016

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Vittor_Duarte 22/3/2017, 13:46

    Bom dia clebergyn!

    Então é justamente isso, porem ao invés de ser selecionando apenas um estado, pudesse ser vários, tentei colocar como seleção multipla "simples" e ele não trazia nenhuma informação, poderia me ajudar?

    Muito obrigado pelo exemplo!

    Atenciosamente,
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Caixa de listagem seleção multipla Empty Caixa de listagem seleção multipla

    Mensagem  good guy 22/3/2017, 16:05

    Olá Vittor,

    Li melhor o seu questionamento. O código que te passei não vai servir. Seria para outra situação. Aguarde, vou ver se faço algumas modificações para solucionar o seu problema.


    Última edição por good guy em 22/3/2017, 17:31, editado 1 vez(es)
    avatar
    Vittor_Duarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/08/2016

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Vittor_Duarte 22/3/2017, 16:53

    Boa tarde Good Guy,

    Onde devo colocar este código?
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1394
    Registrado : 07/12/2011

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  tauron 22/3/2017, 17:18

    Vitor,

    O promeiro codigo vc coloca no vba do formulario e o segundo, como o nome no evento ao clicar de um botao.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Caixa de listagem seleção multipla Empty Caixa de listagem seleção multipla

    Mensagem  good guy 22/3/2017, 17:43

    Olá Vittor,

    Posta, por favor, o bd com os dados das cidades e estados.
    avatar
    Vittor_Duarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/08/2016

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Vittor_Duarte 22/3/2017, 19:45

    Good Guy,

    Vou explicar o que desejo fazer, eu quero que a partir de varias seleções na listagem de estado apareça todas as cidades relacionadas a todos os estados selecionados, e depois gostaria de selecionar as cidades para puxar outra banco de dados e puxar as informações de acordo cm as cidades que eu selecionar.
    Anexos
    Caixa de listagem seleção multipla AttachmentCidadesBrasil.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (178 Kb) Baixado 12 vez(es)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Caixa de listagem seleção multipla Empty Caixa de listagem seleção multipla

    Mensagem  good guy 22/3/2017, 20:11

    Olá Vittor,

    Não entendi muito bem o que vc quer. Neste seu exemplo, pela sintaxe SQL abaixo na origem da linha da primeira caixa de listagem você já tem o resultado pretendido. Ao selecionar um estado resulta em todas as cidades desse estado.

    SELECT DISTINCT UF.cd_uf AS codigo, UF.ds_uf_sigla AS UF FROM UF;
    avatar
    Vittor_Duarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/08/2016

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Vittor_Duarte 22/3/2017, 20:27

    Então, imagine este cenário, eu tenho uma base de dados, nas quais quero pegar alguns e-mails que contem nessa base de dados, porem eu quero pegar e-mails só de quem mora em SP e RJ, porem quero que seja das seguintes cidades Morumbi e Arraial do cabo, ai depois de selecionar as cidades quero que em outra caixa de listagem apareça os e-mails juntos com o estado e cidade que informei, não sei se ficou claro, mas a gostaria de poder filtrar por mais de um estado e mais de uma cidade.

    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 29/08/2012

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Clebergyn 22/3/2017, 22:42

    Veja ai no link se é isso

    https://www.dropbox.com/s/igdsx5baqayvgc7/CidadesBrasil.zip?dl=0

    ai esta somente os estados e as cidades para selecionar, agora o restante que falou dos emails dentre outas coisas
    o que quiser, arrume na base de dados e nos envie
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Caixa de listagem seleção multipla Empty Caixa de listagem seleção multipla

    Mensagem  good guy 23/3/2017, 12:26

    Olá Vittor,

    Não pude trabalhar por completo porque não achei o campo e-mail nas suas tabelas. Mas veja se te atende por ora:

    A terceira caixa de listagem tem que ser do tipo Lista de Valores.

    Veja a função para adicionar e remover items das caixas de listagens.

    Código:

    Public Function AdicionarTudo()
    'Código de Eduardo Machado (Good Guy) - Ano 2016
    'Livre para ser usado desde que se respeite a sua autoria. Obrigado !!!

    On Error Resume Next
    Dim frm As Form, ctl As Control
    Dim i As Integer
    Dim varItm As Variant
    Dim sLista1, sLista2 As Variant


          Set frm = Forms!Cidades
          Set ctl = frm!Lista2
     
        For Each varItm In ctl.ItemsSelected
            sLista1 = ctl.Column(0, varItm) '0 é a primeira coluna onde está o campo da NomedaTabela na listbox (0,1,2,3)
       
            Lista3.AddItem Item:=sLista1
        Next varItm

    End Function


    'Para remover item:

    Public Function RemoverItem()
    'Código de Eduardo Machado (Good Guy) - Ano 2016
    'Livre para ser usado desde que se respeite a sua autoria. Obrigado !!!
    On Error Resume Next
    Dim frm As Form, ctl As Control
    Dim varItm, sValor As Variant
    Dim sTotal As Integer

    Set frm = Forms!Cidades
          Set ctl = frm!Lista3
        For Each varItm In ctl.ItemsSelected
          sValor = ctl.Column(0, varItm)
        Next varItm
       
       
        Lista3.RemoveItem Index:=sValor  'Remove o item selecionado
     
    End Function


    'Código dos botões Adicionar e Remover Item:

    Private Sub cmdTransf_Click()
    Call AdicionarTudo

    End Sub

    Private Sub cmdRemov_Click()
    Call RemoverItem
    End Sub


    Anexos
    Caixa de listagem seleção multipla AttachmentCidadesBrasil.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (198 Kb) Baixado 12 vez(es)
    avatar
    Vittor_Duarte
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 31/08/2016

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Vittor_Duarte 23/3/2017, 13:12

    Bom dia clebergyn e good guy!

    Muito obrigado pelo apoio, eu não tenho muito conhecimento em vba, então não consegui adaptar o código em meu formulário, mas é o seguinte, criei outra caixa de listagem, e nela agora tem a cidade, uf, e o e-mail, quero que ao selecionar a cidade apareça a cidade escolhida e o e-mail referente a cidade também, está em anexo o formulário, poderiam me guiar nessa? E tem que selecionar as cidades em seleção múltipla também.

    Estou tentando resolver um problema por vez, pois depois de filtrar todas as informações eu vou precisar criar um botão no qual vai importar a lista dos e-mails filtrados, acima de 65 mil linhas, porem não consegui.
    Anexos
    Caixa de listagem seleção multipla AttachmentCidadesBrasil@.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (203 Kb) Baixado 7 vez(es)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    Caixa de listagem seleção multipla Empty Caixa de listagem seleção multipla

    Mensagem  good guy 23/3/2017, 14:18

    Olá Vittor,

    Veja se te atende, faça o primeiro teste com AL Taboquinha que já vem com e-mail.

    Alterei a sintaxe SQL da consulta cnsCidades para:

    Código:

    SELECT Uf.ds_uf_sigla AS UF, Cidades.nomecidade AS Cidade, Cidades.email AS Email
    FROM Cidades INNER JOIN Uf ON Cidades.codigouf = Uf.cd_uf
    WHERE (((Cidades.codigouf)=[forms]![Cidades]![lista0]))
    ORDER BY Cidades.nomecidade;

    Para adicionar item com 3(três) colunas:

    Código:

    Public Function AdicionarTudo()
    'Código de Eduardo Machado (Good Guy) - Ano 2017
    'Livre para ser usado desde que se respeite a sua autoria. Obrigado !!!

    On Error Resume Next
    Dim frm As Form, ctl As Control
    Dim i As Integer
    Dim varItm As Variant
    Dim sLista1, sLista2, sLista3 As Variant


          Set frm = Forms!Cidades
          Set ctl = frm!Lista2
      
         For Each varItm In ctl.ItemsSelected
            sLista1 = ctl.Column(0, varItm) '0 é a primeira coluna onde está o campo da NomedaTabela na listbox (0,1,2,3)
            sLista2 = ctl.Column(1, varItm) '1 é a segunda coluna onde está o campo da NomedaTabela na listbox (0,1,2,3)
            sLista3 = ctl.Column(2, varItm) '2 é a terceira coluna onde está o campo da NomedaTabela na listbox (0,1,2,3)

            Lista3.ColumnCount = 1
            
            Lista3.AddItem Item:=sLista1
            Lista3.AddItem Item:=sLista2
            Lista3.AddItem Item:=sLista3
            
            Lista3.ColumnCount = 3
         Next varItm
        
            Lista3.ColumnCount = 3
    End Function

    'Código do botão para adicionar o item:

    Private Sub cmdTransf_Click()
    Call AdicionarTudo

    End Sub

    'Código para remover items

    Public Function RemoverItem()
    'Código de Eduardo Machado (Good Guy) - Ano 2017
    'Livre para ser usado desde que se respeite a sua autoria. Obrigado !!!
    On Error Resume Next
    Dim frm As Form, ctl As Control
    Dim varItm, sValor, sValor2, sValor3 As Variant
    Dim sTotal As Integer

    Set frm = Forms!Cidades
          Set ctl = frm!Lista3
         For Each varItm In ctl.ItemsSelected
           sValor = ctl.Column(0, varItm)
           sValor = ctl.Column(1, varItm)
           sValor = ctl.Column(2, varItm)
           Lista2.ColumnCount = 3
         Next varItm
        
        Lista2.ColumnCount = 3

    'Remove o item selecionado
        Lista3.RemoveItem Index:=sValor  
        Lista3.RemoveItem Index:=sValor2  
        Lista3.RemoveItem Index:=sValor3  
    End Function

    'Código do botão para remover items

    Private Sub cmdRemov_Click()
    Call RemoverItem
    End Sub
    Anexos
    Caixa de listagem seleção multipla AttachmentCidadesBrasil.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (216 Kb) Baixado 18 vez(es)


    Última edição por good guy em 23/3/2017, 16:37, editado 2 vez(es)
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 29/08/2012

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Clebergyn 23/3/2017, 16:24

    veja ai se ajuda ou se serve

    https://www.dropbox.com/s/2n68sf7ywso4oje/CidadesBrasil%40.zip?dl=0

    a questão é que quando voce seleciona as cidades, e seleciona a uf de novo para selecionar mais cidade ele desseleciona as cidades ai tem que selecionar as cidades de novo

    então a sequencia correta é 1º Selecione todas as UFs que quiser, depois as cidades, e depois os emails

    obs: tem que ter o outlook instalado no seu pc

    imagino que seja programa pra político não é mesmo?
    avatar
    Clebergyn
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 785
    Registrado : 29/08/2012

    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Clebergyn 6/4/2017, 20:30

    se resolveu, lembre de clicar em "resolvido"

    Conteúdo patrocinado


    Caixa de listagem seleção multipla Empty Re: Caixa de listagem seleção multipla

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:12