[Resolvido]Autopreenchimento do endereço pelo Cep.

Olá amigos, sou novato aqui e no acess tambem.. mais fiquei bem interessado no que podemos fazer com ele. e criei a primeira tabela que foi um cadastro de fornecedores e vi que temos a possibilidade de colocarmos a busca dos endereços pelo cep. baixei o arquivo zip com o BD dos cep´s aqui do forum mais não sei como devo colocar ele para funcionar em minha tabela tabela. e gostaria de contar com
a ajuda dos amigos aqui do forum.. agradeço desde ja.


Referente a este exemplo:
http://maximoaccess.forumeiros.com/t1638-cep-online-e-offline

Olá amigo agradeço a atenção em meu caso. Bom vou te passar os detalhes.
Uso aqui o windows 7 64bits e access 2010.
Fiz uma tabela de fornecedores e e na parte de endereço gostaria de colocar os endereços automatico pela tabela de ceps pode ser off line mesmo.
Estou tentando fazer da seguinte forma. tem a tabela que criei e a de ceps que peguei do site.
A do site veio como Base de ceps.mdm coloquei ela da seguinte forma. fui em dados externos e apontei para o arquivo e peguei só a tabela.
Ai ficou as duas tabela aqui certinho abro a que criei vou no campo cep e em tipo de dados seleciono assistente de pesquisa ai ele ja da zica.
me reporta a mensagem banco de dados nao pode ser aberto porque não é possivel ler o projeto do vba nele contido. e só podera ser aberto se o projeto vba for excluido primeiro.
dou ok na mensagem e ele me manda outra: não é possivel efetuar atualização. o banco de dados ou objeto é somente leitura.
dou outro ok na mensagem e ele manda mais uma : o projeto do visual basic for applications esta corrompido no banco de dados.

Bom ai paro nesta parte, como estou começando nisso to igual cego no tiroteio rsrs. agradeço sua ajuda.

Olá amigos estou com o seguinte erro.
O amigo criquio ta me ajudando muito e consegui chegar até aqui com a ajuda dele.
Criei a tabela o formulario e tenho a tabela de ceps.
a unica coisa que mudei do código foi o nome que estava logradouro para endereço, como na minha tabela.
Ai Quando vou no formulario cep e digito o mesmo ele me manda a seguinte mensagem.

Erro de compilação:
Metodo ou menbro de dados não encontrado.

Ficou assim:( onde esta de vermelho foi onde ficou marcado após o erro ).

Private Sub Cep_AfterUpdate()

If IsNull(DLookup("CEP", "tblEndereço", "CEP=" & Me.txtCEP)) Then
MsgBox "CEP inexistente", vbCritical, "Erro"
Else
Me.txtEndereço = DLookup("Endereço", "tblEndereço", "CEP=" & Me.txtCEP)
Me.txtBairro = DLookup("Bairro", "tblEndereço", "CEP=" & Me.txtCEP)
Me.txtCidade = DLookup("Cidade", "tblEndereço", "CEP=" & Me.txtCEP)
Me.txtEstado = DLookup("Estado", "tblEndereço", "CEP=" & Me.txtCEP)
End If


Agradecido mais uma vez pela ajuda.

Ok amigo norbs acabei de fazer essa mudança e deixei com os nomes corretos.
Agora a msg mudou para.

Erro em tempo de execução '3464':
Tipo de dados incompativel na expressão de critério.

If IsNull(DLookup("CEP", "tblEndereço", "CEP=" & Me.Cep)) Then

Agradeço a ajuda desde ja.

Amigo norbs acabei de fazer as mudanças as mensagens de erro não aparecem mais.
Mais quando digito o cep ainda não completa os campos. O engraçado é que da a impressão que ele tenta buscar alguma coisa
Quando abro o formulario cad_fornecedores e digito o cep ele demora um pouco para descer o cursor para o campo endereço.
Ficou assim.
Na minha tabela Cd_fornecedor tenho os campos Cep - Endereço - Bairro - Cidade - Estado
Meu campo Cep esta em formato texto e deixei sem mascara.

If IsNull(DLookup("CEP", "tblEndereço", "CEP='" & Me!Cep & "'")) Then
MsgBox "CEP inexistente", vbCritical, "Erro"
Else
Me.Endereço = DLookup("Endereço", "tblEndereço", "Endereço='" & Me!Cep & "'")
Me.Bairro = DLookup("Bairro", "tblEndereço", "Bairro='" & Me!Cep & "'")
Me.Cidade = DLookup("Cidade", "tblEndereço", "Cidade='" & Me!Cep & "'")
Me.Estado = DLookup("Estado", "tblEndereço", "Estado='" & Me!Cep & "'")
End If

Agradeço a atenção.

Amigo norbs agradeço muito a ajuda e tambem a ajuda que o criquio me deu.
Tive que mudar só uma coisinha, ele estava dando msg de erro e apontava para esta linha onde estão
os parenteses em vermelho ai comparei com outra tabela e vi que não tinha os danados, tirei eles
e pronto preenchimento automatico do endereço funcionando 100%.

Private Sub Cep_AfterUpdate()
If IsNull(DLookup("CEP", "tblEndereço", "CEP='" & Me!Cep & "'")) Then
MsgBox("CEP inexistente", vbCritical, "Erro")
Else
Me.Endereço = DLookup("Endereço", "tblEndereço", "CEP='" & Me!Cep & "'")
Me.Bairro = DLookup("Bairro", "tblEndereço", "CEP='" & Me!Cep & "'")
Me.Cidade = DLookup("Cidade", "tblEndereço", "CEP='" & Me!Cep & "'")
Me.Estado = DLookup("Estado", "tblEndereço", "CEP='" & Me!Cep & "'")
End If

Graças ao norbs e criquio que sempre estavam me auxiliando.

Problema Resolvido !!! Obaaaaaa!

Pessoal,

Sei que a postagem é antiga e que possivelmente não seja mais acompanhada.

De todo modo gostaria de agradecer pela grande ajuda que me deram no caso (ainda que por comparação).

Passei cerca de 2 semanas tentando criar a regra para busca de endereço automática pelo CEP, mas só consegui fazê-la por vocês.

Muito obrigado mesmo!