Caixa de listagem seleção multipla

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.

Veja ai se ajuda

se não der para baixar me avise

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

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,

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.

Boa tarde Good Guy,

Onde devo colocar este código?

Vitor,

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

Olá Vittor,

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

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.

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;

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.

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

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




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.

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


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?

se resolveu, lembre de clicar em "resolvido"