bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Verificar se a internet está ativa e buscar o CEP

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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%.

 


 

 


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

Filipe Bacelar   21/10/2018 08:41:16

Olá Avelino, tudo bem?

Esse link onde tem o exemplo completo está desativado?


Envie seu comentário: