[Resolvido]Valor Listbox para diversos forms

Pessoal boa tarde, criei um sistema de consulta de endereços com a ajuda de voces onde é pesquisado o nome da rua e retorna num listbox funcionando perfeitamente, porem queria automatizar o processo, em um form o usuário realiza a pesquisa de endereço, clica 2 vezes e ele joga o valor da listbox no form, agora eis a questão, tenho diversos forms onde devem ser preenchidos endereços, tem como usar o mesmo sistema nesses outros forms, ou terei q criar um form de localização para cada form de cadastro, pois so de forms de cadastro tenho aproximadamente uns 20 todos uns independentes dos outros.

Abaixo o que eu uso para um form e que funciona certinho



Private Sub lstRetorno_DblClick(Cancel As Integer)
On Error Resume Next
'Call cmdExibir_Click
Forms!FormEcoponto!Cod_Rua = Me.lstRetorno.Column(0)
Forms!FormEcoponto!ENDEREÇO = Me.lstRetorno.Column(2)
Forms!FormEcoponto!QUADRA.SetFocus
DoCmd.Close
End Sub


grato

Criar um para cada form é desnecessário, chame o form de busca a partir de cada um que for preciso com DoCmd.Openform NomeForm

Defina variáveis públicas no escopo do código e após procurar com esse form de pesquisa faça com que as mesmas adquiram os valores das pesquisas e depois insira nos campos que precisa.

Entao caro Leandro, eis o problema, to começando agora a estudar VBA, nao tenho a menor ideia de como fazer isso.

Vamos por partes como diria Jack estripador.

Primeiro: No evento ao abrir do form de pesquisa escreva:

Me.Form.Modal = True
Assim o usuário não conseguirá mexer em outro form enquanto o de pesquisas for fechado

Segundo: Faça seus forms abrirem o form de pesquisa usando:

DoCmd.OpenForm NomeDoFormPesquisa

Caro Leandro bom dia, isto ja esta feito, qual o proximo passo

wmantovani, agora faça assim:

Abra o access e aperte ALT + F11, depois clique em "Inserir" e depois em "Módulo", na janela que surgirá escreva:

Option Compare Database
Global strNomeRua As String 'Texto
Global lngCodRua As Long 'Número longo
Global strQuadra As String 'Texto

E salve esse módulo com o nome que você quiser, porém eu salvaria com: "VarsEndereco" só pra deixar mais detectável.

Assim você criou vairáveis globais.

Agora no seu form de localização após duplo clique faça assim:

strNomeRua = Me!lstRetorno.Column(2)
lngCodRua = Me!lstRetorno.Column(0)
strQuadra = Me!lstRetorno.Column(1) 'Coloquei um número só não ficar vazio, veja o correto

O que ocorre agora?
Agora as variáveis tem os valores das colunas da ListBox, e a qualquer momento que você chamá-las em um form elas virão com o último valor localizado.

Abraço

Caro Leandro bom dia, segui suas instruções porem nao obtive exito, os valores da listbox, nao sao "jogados" no form de cadastro.

Em todos os forms de cadastro ha os campos:

Cod_Rua - Inteiro Longo
Endereço - Texto

alterei

Option Compare Database
Global Endereço As String 'Texto
Global Cod_Rua As Long'Número longo


Salvei o Modulo e no form de localização após o duplo clique ficou assim

Endereço = Me!lstRetorno.Column(2)
Cod_Rua = Me!lstRetorno.Column(0)

mas ao dar o duplo clique em um valor da listbox...nao faz nada

O funcionamento do sistema é assim, o funcionario abre o form de cadastro de um cliente, ha um borão chamado endereços que abre outro form em cima deste chamado frmLocalizaEndereços onde é realizada a pesquisa de endereço e ao localizar deve-se clicar duas vezes e jogar este valor no form de cadastro nos campos determinados, é isto auq nao ta ocorrendo, mesmo seguindo suas instruções

Poste seu banco por favor no servidor aqui do fórum em formato Access 2000, por favor, acho que faltou alguma coisa.

Segue em anexo o bd com um form de exemplo, lembrando que haverá varios forms de cadastro

Veja o módulo: VarsEndereco
E o evento Duplo Clique da listbox de pesquisa de endereços.
Deixei pra você definir as colunas certas nas variáveis, uma vez que não vi a coluna "quadra", e definir como vai inserir os valores nos campos dos forms, se por botão ou ao entrar nos campos, agora é com você.
Abraço

Continua nao jogando os valores Leandro, onde será que tá o erro?

Tem um campo com origem errada no form, Cod_Rua, qual é o campo correto na tabela?

Veja o anexo.
Defini um campo para o Cod_Rua do form, veja se está certo.

Caro Leandro, agora deu certo, valeu mesmo pela ajuda, voce nao sabe o quanto de tempo o pessoal irá ganhar com isso

Fico feliz por ter ajudado alguém hoje.

Deixo para você esse versículo:

Mateus 7.12 - "Tudo quanto, pois, quereis que os homens vos façam, assim fazei-o vós também a eles; porque esta é a Lei e os Profetas."