Estou desenvolvendo um sistema para uma escola, preciso desenvolver um formulario para consulta de cep (já tenho o BD completo com o cep em access 2000), quero o seguinte: quando digitar o cep no campo cep, os demais campos do form. será automaticamente preenchidos, caso o cep não exista ou esteja errado ele me retornará uma mensagem avisando a inexistência do mesmo. 

 

Campos do form. e tabela

Cep

Endereco

Bairro

Cidade

UF

 

Conto com vcs....

bom faça um select para consultar o cep tipo:

 

dim varCEP as string (Supondo que o campo seja do tipo string)

dim RScep as Recordset

varCEP = txtcep (supondo q o valor de varcep seja igual a 89227-000)

set RScep  =  conexao.openrecordset("SELECT * FROM TABELACEP WHERE CEP = '"& varCEP &"'")

 

if not RScep.eof then

cep = RScep("cep")

endereco = RScep("endereco")

bairro = RScep("bairro")

e assim por diante

else

 msgbox ("CEP não cadastrado.")

end if

 

se for isso, entaum axu q eh isso mesmo hehehehe