[Resolvido]Problema com exemplo do repositório sobre busca de CEP

Pessoal, eu fiz conforme o exemplo do link abaixo
https://www.maximoaccess.com/t29060-busca-cep-site-viacep

mas quando clico no botão pra buscar, o access executa a sub mas não retorna nada.
Eu depurei um pouco e vi o problema está dentro da function ConsultaCEP.

Bem no finalzinho, nessa parte:

For Each oXmlNode In oXmlNodes
   ConsultaCEP = oXmlNode.Text

Ser eu passo o cursor em cima aparece a mensagem: oXmlNode.Text = A variável do objeto ou a variável do bloco 'With' não foi definida.

Alguém sabe ajudar por favor?

Obrigado!

Matheus, seja bem vindo ao fórum...

Eu separei sua pergunta do tópico original pois tirar dúvidas lá não é permitido, conforme a regra 13 do fórum.

Veja e conheça todas as regras para que mantenhamos a casa organizada.

REGRAS DO FÓRUM

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Olá Alexandre.

Sim, eu fiz a referência ao XML v3.0.

Eu achei estranho que até mesmo o arquivo anexo que peguei lá no exemplo também dá o mesmo problema, não foi só o meu código.

Eu usei o compactador/reparador mas também não obtive sucesso.

Segue anexo o meu BD pra você tentar olhar.

É no formulário Frm_Guia. Na parte inferior tem um campo pra colocar o Cep e logo ao lado tem um botãozinho que é o que chama a sub.

Quando faço o procedimento, não traz nenhum dado. Eu até digitei os dados de logradouro, cidade, etc, e quando chamo o procedimento ele apaga esses dados, como se estivesse substituindo por nulo.

Obs.: Eu uso Access 2013 num Windows7 64. Eu acabei de testar num Access 2016 Windows 10 64 e funcionou. Será que pode ser alguma coisa relacionada à alguma configuração do chrome?

Obrigado.
Matheus

Perdão Alexandre, esqueci.

bancodedadosGP

Obrigado!

Ola boa noite seguinte o problema na UF que o buscador tras no seu campo UF vem de uma tabela que o primeiro campo e numero que e o id do registro UF
ID Sigla Nome
1 AC Acre
2 AL Alagoas
3 AP Amapá
4 AM Amazonas
5 BA Bahia
6 CE Ceará
7 DF Destrito Federal
8 ES Espírito Santo
9 GO Goiás
10 MA Maranhão
11 MT Mato Grosso
12 MS Mato Grosso do Sul
13 MG Minas Gerais
14 PA Pará
15 PB Paraíba
16 PR Paraná
17 PE Pernambuco
18 PI Piauí
19 RJ Rio de Janeiro
20 RN Rio Grande do Norte
21 RS Rio Grande do Sul
22 RO Rondônia
23 RR Roraima
24 SC Santa Catarina
25 SP São Paulo
26 SE Sergipe
27 TO Tocantins

e quando busca ele tras somente a sigla e nao o codigo que este codigo e gerado pela sua tabela e nao pelo buscador.
Como ele vai traze do buscador o UF vc vai ter que tirar ele do tipo combobox e mudar ele pra texto pois ele vai ser preenchido pelos dados que vai
ser trazidos. testa ai e veja que aqui funcionou certim.
cria este campo na tabela fichas do tipo texto normal "Ctr_UF_Ende" ai no formulario coloca a fonte do registro para este campo.

Private Sub Comando234_Click()
If ConsultaCEP(Me.Ctr_CEP, "erro") <> "true" Then
Me.Ctr_Logradouro = ConsultaCEP(Me.Ctr_CEP, "logradouro")
Me.Ctr_Bairro = ConsultaCEP(Me.Ctr_CEP, "bairro")
Me.Ctr_Município = ConsultaCEP(Me.Ctr_CEP, "localidade")
Me.Ctr_UF_Ende = ConsultaCEP(Me.Ctr_CEP, "uf")

Else
MsgBox "Verifique o CEP digitado!", vbInformation, "Atenção"
End If
End Sub

Pessoal,

Agradeço a ajuda. Eu entendi todas as questões sobre a sigla do estado, já ajustei no código.

No entanto, o prolema não era esse. Quando eu executava a função de buscar o CEP, o resultado voltava vazio. A integração do access com os navegadores não estava funcionando direito. Mesmo com o erro do estado corrigido, a função não retorna os dados do endereço.

Fiz o teste do meu código em outro computador mais novo e funcionou corretamente. Não sei que tipo de configuração/requisito pode estar atrapalhando no meu computador.

De qualquer forma, eu substituí o meu código pelo do Alexandre Fim e dessa vez funcionou. Estudei bem seu módulo pra entender e aprender.

Obrigado a todos pela ajuda.

Atualizando para resolvido.