[Resolvido]Preencher caixa de combinação de um form com resultado de pesquisa de outro form

Boa tarde pessoal.

Estou tentando criar um BD aqui e já estou quase terminando.
Neste BD há um formulario para cadastro de clientes, neste formulario há uma caixa de combinação que busca dados de uma tabela de cep cadastrados e preenche automaticamente os campos Rua, Bairro, Cidade e Estado. (Imagem 1)

Tenho tambem um outro formulario dedicado a pesquisa de CEP por nome da rua (Imagem 2)

Até aqui tudo funciona normalmente (com um pouco de lentidão no preenchimento do CEP e principalmente na pesquisa) mas como a tabela de cep é muito grande por mim tudo bem (a nao ser que alguem saiba uma forma de melhorar isso)

O meu problema é que eu quero que quando eu abrir a consulta de cep e clicar no item desejado, ele preencha automaticamente o campo cep da tabela de cadastro e consequentemente preencha os campos rua, bairro e etc. porem nao estou conseguindo.

Se alguem puder me ajudar ficarei grato.

Boa tarde Eduardo

Quer postar essa parte da sua BD para obter ajuda ?

Boa tarde Assis.

http://www.4shared.com/zip/Rdb-16Ovce/SySVendas.html


Desculpe nao posta-lo aqui, mas estava dando erro quando eu tentava adicionar.

O form que eu quero fazer isso é o frm_cadcli

Eu exclui os ceps da tabela pq o arquivo estava com mais de 160Mb, deixei so alguns pra testes.


Obrigado pela atenção

Eduardo

Eu não gosto desse site 4Shared .

Envia para o meu email, ou por DropBox

anibal.assis@sapo.pt

Só um pitaco....

Pode ser usado o : http://ge.tt/

Basta apenas arrastar o arquivo para lá...e depois copiar e colar o link aqui.

Abraços a todos.

Segue os links do arquivo


http://ge.tt/4EyjCSQ2/v/0?c
https://www.dropbox.com/s/h8ld9ytiw4tj099/SySVendas.rar?dl=0


Abraços

Eduardo

Converta para 2007

Desculpe a ignorancia, mas como faço isso?
O bd foi criado no access 2013.

Eduardo
Vamos esperar pois pedi aqui a um amigo do forum e depois eu retorno

ok, obrigado

Convertido o bicho
Obs:Tirei o vinculo com o BackEnd.


https://dl.dropboxusercontent.com/u/90217826/Vendass.rar

Uma pergunta, porque fez outa tabela poderia usar a mesma do cadastro de clientes.

Kaynan

vc ta perguntando de qual tabela?
se for da de cep eh pq na verdade a real tem todos os ceps de todas as cidades, so que eu apaguei pra poder enviar senao o arquivo ficaria muito grande.

O que seria o vinculo com backend?
nao sou familiarizado com a linguagem.

Eduardo

Está resolvido ?

Nao Assis,

O Kailan apenas converteu, eu acho.

Veja ai amigo,usei o mesmo campo cep da tabela Tbl_CadCli que estava oculto e criei outra combo pra pesquisa.


https://dl.dropboxusercontent.com/u/90217826/SysVendas2.rar

Kailan,

nao entendi o que vc fez pq aqui continua a mesma coisa, qndo pesquiso e selecino o cep selecionado nao vai pro campo cep da tab cli.

Vou deixar isso de lado hoje pq tenho prova amanha e tenho que estudar

obrigado

Kaynan

Importa-se de voltar a converter e postar sem alterar.

Obrigado

Na mensagem 11 está convertido sem alteração.

Obrigado Kaynan

Eduardo, veja o que esta na mensagem 11 feito pelo Kaynan



http://ge.tt/5VAiySQ2/v/0?c

entao mas ate ai eu conseguia fazer, eu preenchia o cep e ele preenchia os campos automaticamente.

Vou tentar exemplificar o que eu quero.

Vamos supor que eu esteja fazendo um cadastro, e a pessoa nao saiba o CEP.
Ao invés de digitar todo o endereço, bairro e etc (desnecessario pois ja tenho uma tabela com esses dados) eu pesquiso pelo nome da rua e ele me retorna as informações (isso tb esta funcionando (frm_procend)).

So que o que eu quero é eu selecionar o cep do frm_procend e assim que eu selecionar ele preencher o campo cep do frm_cadcli, e assim automaticamente ele vai preencher o campo endereço.

Bom dia Eduardo

E assim:

http://ge.tt/2iLZLUQ2/v/0?c

Exatamente Assis.

Qual codigo vc usou?

Eduardo
No formulário "frm_Procend"

Aonde aparecem os dados

Private Sub clst_Produtos_Click()
On Error Resume Next
Forms.frm_cadcli.cbocep = Me.clst_Produtos.Column(1)
Forms.frm_cadcli.TxtEndereco = Me.clst_Produtos.Column(0)
Forms.frm_cadcli.txtbairo = Me.clst_Produtos.Column(2)
Forms.frm_cadcli.txtcidade = Me.clst_Produtos.Column(3)
Forms.frm_cadcli.txtestado = Me.clst_Produtos.Column(4)
DoCmd.Close acForm, "Frm_Procend"
End Sub

Deu certinho.


Muito obrigado.

Vou encerrar o tópico!

Ok Eduardo
Obrigado pelo retorno