[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!

Olá Matz,

Vc marcou a referencia do Microsoft XML v3.0 ?

Faz o seguinte:
- Vá no menu Depurar e compilar sua aplicação
- Execute o Compactar/Reparar

[]'s


FIM

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

Matz,

Informe a senha, por favor !!!

[]'s

FIM

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

Matz boa noite,

Não há necessidade de criar um ID numérico para a tabela Estados.
A própria UF já serve como ID.

Fiz algumas alterações no teu sistema para se comportar de forma mais adequada.

- Na tabela "Fichas", mudei o tipo de dados do campo "ID_Estado" para Texto Curto, tamanho 2
- No formulário Frm_Guia, modifiquei a origem da linha do campo Ctr_Uf_Ende para carregar somente a UF.
- Inclui variáveis globais para carregar os dados de endereço

Inclui a "fnBuscaCEP" onde ela é acessada somente 1 vez para carregar os dados do CEP.

Os dados de endereço são carregados apos atualização do CEP (evento AfterUpdate) e não há necessidade de clicar no botão ao lado do cep.


Segue versão ajustada.

Espero ter ajudado.

Boa sorte

[]'s

FIM

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.