[Resolvido]Preencher endereço com CEP

Meus caros, boa noite.

 Sou um iniciante no uso do Access e, pesquisando na internet o preenchimento automático de endereço utilizando CEP (preferencialmente on line dos correios), vi que neste fórum existiam alguns cases e até exemplos já resolvidos disponíveis aos membros. Porém, como havia citado antes, como ainda sou muito leigo e não conheço nada sobre programação, baixei alguns exemplos que acabaram por não dar certo, como o exemplo enviado pelo membro rtcoelho em Maio de 2013 que abre uma pequena janela com os dados corretos, mas não preencheu os campos e um enviado pelo membro criquio, que baixei e, não sei se fiz algo errado, coloquei o CEP mas também não preencheu os dados. Peço a ajuda de vocês para entender como posso fazer isso em um pequeno formulário de cadastro de clientes, que envio em anexo. Agradeço desde já à todos e peço desculpas por abordar um assunto que já estava resolvido.

Ricardo, seja bem vindo ao fórum!

O Anexo não veio...

Mas fiz um exemplo bem simples essa semana, veja aqui:
https://www.maximoaccess.com/t29060-busca-cep-site-viacep


Veja esses outros caso não goste do que fiz:
https://www.maximoaccess.com/t23500-busca-cep-v1-1-19-05
https://www.maximoaccess.com/t29055-enderecos-buscar-no-site-dos-correios#202606

Caro Fábio, boa noite.

Fábio, desde já, agradeço pelo pronto atendimento. Baixei todos os 3 exemplos que você me sugeriu e, como eu havia comentado antes, não sei se estou fazendo algo errado, mas apenas o exemplo do membro Alexandre Fim rodou corretamente. De qualquer forma, vou tentar adaptá-lo ao meu formulário ainda neste final de semana e retornar ao fórum o resultado dessa empreitada. Mais uma vez, gostaria de agradecer pela ajuda e compreensão, principalmente com os que ainda estão caminhando nesse assunto. Tenha a certeza de que, se mais pessoas como as que aqui se manifestam estivessem dispostas a doar uma das coisas mais importantes que é o seu tempo, nosso país não estaria sofrendo de tanto mal. Boa noite.

Amigo, realmente ha algo errado, pois o exemplo que fiz nao envolve quase nade, e bem simples mesmo... Qual erro que apresenta? Posta print do erro favor!

Caro Fábio, boa tarde.

Fábio, antes de mais nada, peço desculpas pela demora em responder a sua mensagem mas, como fui demitido recentemente, estou tentando abrir um negócio próprio e isso está me tomando boa parte do tempo disponível. De qualquer forma, vamos lá:
Com relação ao exemplo que você mesmo fez, não existe erro. Na verdade, tentei os 2 arquivos que estavam no zip que você mandou, mas ambos apresentaram o mesmo problema: Coloquei meu CEP (13344-450) e mandei consultar. Ele apaga os dados que já estavam no cadastro e não coloca nada em seu lugar, ficando em branco.
Com relação ao exemplo que havia dado certo em meu computador, gostaria que você me desse uma orientação de como devo colocar o código em meu banco de dados, pois tentei colocar o código e ele me dá uma mensagem dizendo que "A expressão após atualizar que você inseriu como definição da propriedade de evento gerou o seguinte erro: Instrução Option duplicada."
Estou enviando o banco de dados em anexo, para facilitar. Poderia avaliar, por gentileza, o que estou fazendo de errado? Obrigado desde já.

Ola, bom reafirmo haver algum problema em sua Maquina ou algo assim...

Pois veja aqui o Teste feito:
dropbox.com/s/rvyojp2w90eaiko/Sem%20t%C3%ADtulo.png
Observe que carregou normalmente os dados do CEP.


Agora sobre o exemplo que me enviou, você mandou exemplo incompleto... Pois veio sem As Funções
Porém verifique a imagem a baixo, para corrigir o erro informado:
dropbox.com/s/2bpstej9fgxuwee/Sem%20t%C3%ADtulo2.png


Obs: Copiar e Colar o Link no navegador

Oi Fábio, vi a pesquisa que você fez co meu CEP e realmente, não saberia dizer o que pode ter dados errado. De qualquer forma, fiz a correção que você indicou e ela deu a mensagem de erro que envio em anexo. Sabe o que pode ser? Obrigado.

Deve declarar suas variaveis...

No inicio do Codigo declare ela:

Dim vgCEP as string

Caro Fábio, boa noite. Meu caro, mais uma vez, peço desculpas pela minha falta de conhecimento sobre programação. Estou tentando colocar o código no evento "ao atualizar" do CEP mas, realmente não estou conseguindo. Estou enviando o arquivo novamente, mas não se se estou anexando da forma correta. Obrigado.

Ricardo_Pires,

O erro é justamente a ausencia da função "BuscaCEP", que faz a busca no webservice dos correios.

Copie e cole no seu módulo chamado "basGeral" a função abaixo:



'====================================================================================
' FUNÇÃO PUBLICA DO SISTEMA QUE BUSCA OS DADOS DO ENDEREÇO NO WEBSERVICE DOS CORREIOS
'====================================================================================

Public Function BuscaCEP(cep As String) As Boolean
On Error GoTo trata_erro

Dim http As Object
Dim Req As New XMLHTTP
Dim endWebService As String
Dim RetornoXML As New DOMDocument

endWebService = "http://api.postmon.com.br/v1/cep/" & cep & "?format=xml"
Req.Open "GET", endWebService, False
Req.send
RetornoXML.loadXML (Req.responseText)

' Se o CEP não for encontrado, finaliza a function
' e define como FALSE
If UCase(Req.statusText) <> "OK" Then
BuscaCEP = False
Exit Function
End If

'Carrega as variaveis globais com os dados do CEP
With RetornoXML
vgCEP = .getElementsByTagName("cep")(0).Text
vgEnd = .getElementsByTagName("logradouro")(0).Text
vgBai = .getElementsByTagName("bairro")(0).Text
vgCid = .getElementsByTagName("cidade")(0).Text
vgUF = .getElementsByTagName("estado")(0).Text
End With

' Se o CEP for encontrado, finaliza a function
' e define como true

BuscaCEP = True
Exit Function

trata_erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Exit Function

End Function


Abraços e boa sorte.

Alexandre Fim

Caro Alexandre, bom dia.

Alexandre, obrigado por responder ao tópico. Tentei encontrar o módulo "basGeral" que você havia citado e não consegui encontrar. Então, criei um novo módulo com esse nome e copie o código que você enviou. Deu um erro. Acredito que não estou sabendo fazer as coisas, já que não entendo nada mesmo de programação. Acho que vou dar o tópico com encerrado e, conforme for aprendendo mais, tento fazer novamente. Obrigado pelo auxílio e atenção de todos.

Ricardo bom dia,

Me desculpe, achei que vc tinha o módulo "basGeral", que eu havia criado no sistema de busca de CEP.
Vamos lá !!!

Imagino que o erro tenha ocorrido por falta de uma referencia que vc deve selecionar. Siga os passos abaixo:

1 - Entrar no modo VBA (código) -  Voce pode utilizar as teclas ALT+F11
2 - Na barra de menus, selecionar o menu Ferramentas e o submenu "Referencias", e assinale o item:

Microsoft XML, v3.0

E clique no botão "OK"

Segue a imagem de exemplo.

Se ainda ocorrer algum erro, poste aqui.
E se der certo, tmb poste aqui.

Boa sorte !!

Abraços

Alexandre Fim

Meu caro, boa tarde.

Fiz o que você solicitou, entrei e habilitei o Microsoft XML 3.0. Estou enviando em anexo tanto o arquivo que estou fazendo como o erro que ele apresentou. Na verdade, o amigo Fábio já havia postado um código que anexei ao evento "ao atualizar" do campo CEP, e talvez isso esteja dando algum tipo de conflito, não sei. De qualquer forma, poderia avaliar, por gentileza? Obrigado.

Ricardo,

Segue seu BD  atualizado.

Abraços


Alexandre Fim

Caro Alexandre, boa tarde.

Meu caro, funciona perfeitamente! Para mim, que sou bastante leigo, parece mesmo mágica! Agradeço mesmo, de coração, não só a você como ao Fábio, que também foi muito prestativo, pela ajuda que me deram. Muito obrigado mesmo a todos!

Ok Ricardo.
Agradeço sua cordialidade atriuido à mim e ao Fabio.

Na verdade nada do que nós mostramos é novo. Já existe na web e simplesmente apenas implementamos em nossos projetos.

Apenas sugiro que voce procure estudar e entender mais sobre banco de dados e seus objetos, e também a linguagem VBA (Visual Basic for Application), que é poderosissima.

E sempre que voce tiver alguma sugestão ou alguma rotina que voce tenha desenvolvido, compartilhe com os membros deste site.
Sucesso na sua empreitada.

Um abraço.

Alexandre Fim