... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Verificar se a internet está ativa e buscar o CEP

Usuário Gilberto:

Bom dia, amigo.

Estou com uma dificuldade em fazer a verificação se a internet está ativa. Encontrei alguns artigos na internet mas nenhum funcionou.

Tenho um formulário desacoplado e nele tem o campo txtCep que no evento após atualizar faz a busca automática do CEP e retorna os dados completo do endereço, porém se a internet está fora do ar, gera erro.   Gostaria de colocar uma opção if para verificação e caso a internet esteja OK, ele busque os dados, senão ele cancela o evento e move para o próximo campo, para que os dados sejam digitados.

Agradeço a ajuda.

Suporte:

Gilberto, por que você não trabalha com o tratamento de erro? Se acusar erro, o código desvia para mensagem. Algo do tipo:

On error goto trataErro
'seu código
sair:
   exit sub
trataErro:
   Select Case Err.Number
        Case NúmeroDoErroAqui
            MsgBox "Falha de conexão com a internet...", vbInformation, "Aviso"
        Case Else
            MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", _
            Err.HelpFile, Err.HelpContext
    End Select
    Resume sair:

Ou se desejar que o código siga em frente, basta utilizar:

on error resume next
'seu código

Usuário Gilberto:

Obrigado Avelino,

A solução foi simples e objetiva, funcionou 100%.

 


 

 


2 comentário(s)

Alysson Barros   20/02/2018 02:37:04

Este código completo seria muito util para mim, que trabalho com estrutura postal.

Seria possível compartilhar o código que faz a busca automática do CEP e retorna os dados completo do endereço.

Avelino Sampaio   20/02/2018 03:07:21

Alysson,

copie e cole o endereço abaixo no seu navegador:

http://www.redeaccess.com.br/viewtopic.php?f=4&t=434&p=1715&hilit=cep#p1715

Bom estudo!


Envie seu comentário: