Função de timeout

[tcorrea]

Boa tarde.

Gostaria de uma ajuda dos ilustres amigos. Tenho um formulário que faz uma consulta de Ceps na web em um endereço na web que por sua vez aponta para uma base de Ceps.mdb. O problema é que quando o provedor está fora do ar (múltiplos acessos), a pool do servidor trava e consequentemente a propriedade do campo (Ao sair) também trava. Quando não tem internet ele acessa o banco de Ceps.mdb local. Segue a condição abaixo, quando tem internet acessa a base da Web, senão acessa a base local. Como posso reescrever o trecho abaixo fazendo com que ele não acesse mais a internet para acessar o primeiro IF sem errar a sintaxe?
Obs: Em ambas as situações ele tem que acessar somente o trecho abaixo:

Call Ver_Cep
             Me.Endereço_Residencial = Mid(End_C, 1, 40)
             Me.Bairro_Residencial = Mid(Bai_C, 1, 20)
             Me.Cidade_Residencial = Mid(Cid_C, 1, 20)
             Me.Estado_Residencial = Mid(Est_C, 1, 2)

Apesar de eu colocar esse trecho nas 2 situações, ele continua buscando primeiramente na internet.

 

Private Sub Cep_Residencial_Exit(Cancel As Integer)
    Dim forma_acesso As String
    Dim strResultado As Long
    Dim VerificaInternet As String
    VerificaInternet = InternetGetConnectedState(strResultado, 0)
    
    If Forms![Seleciona Cliente]![Cliente_Selecionado] = 0 Then
       Cep_C = Me.Cep_Residencial & ""
       If VerificaInternet = 1 Then
          Dim resultado
          Dim Texto As String
          resultado = busca_cep2(Me.Cep_Residencial)
          If cep_status = "S" Then
             Call Ver_Cep
             Me.Endereço_Residencial = Mid(End_C, 1, 40)
             Me.Bairro_Residencial = Mid(Bai_C, 1, 20)
             Me.Cidade_Residencial = Mid(Cid_C, 1, 20)
             Me.Estado_Residencial = Mid(Est_C, 1, 2)
             'Me.Endereço_Residencial = cep_endereco
             'On Error Resume Next
             'Me.Bairro_Residencial = cep_bairro
             'Me.Cidade_Residencial = cep_cidade
             'Me.Estado_Residencial = cep_estado
          Else
             Call Ver_Cep
             Me.Endereço_Residencial = Mid(End_C, 1, 40)
             Me.Bairro_Residencial = Mid(Bai_C, 1, 20)
             Me.Cidade_Residencial = Mid(Cid_C, 1, 20)
             Me.Estado_Residencial = Mid(Est_C, 1, 2)
          End If
       Else
          Call Ver_Cep
          Me.Endereço_Residencial = Mid(End_C, 1, 40)
          Me.Bairro_Residencial = Mid(Bai_C, 1, 20)
          Me.Cidade_Residencial = Mid(Cid_C, 1, 20)
          Me.Estado_Residencial = Mid(Est_C, 1, 2)
       End If
    Else
       If Me.Cep_Residencial <> Cep_Res Then
          Cep_C = Me.Cep_Residencial & ""
          Call Ver_Cep
          Me.Endereço_Residencial = Mid(End_C, 1, 40)
          Me.Bairro_Residencial = Mid(Bai_C, 1, 20)
          Me.Cidade_Residencial = Mid(Cid_C, 1, 20)
          Me.Estado_Residencial = Mid(Est_C, 1, 2)
       End If
    End If
       
       
End Sub

Resumindo, em ambos os casos funcionam (Internet/Local na máquina). O problema é que quando a Pool do provedor trava, o campo Cep fica eternamente tentando consultar a internet e não passa para o Else. Como posso rescrever este código sem não acessar mais a internet?

Obrigado!
 

Editado Março 9, 2021 por tcorrea

[Alyson Ronnan Martins]

Boa tarde @tcorrea.

Entendi a situacao mais não entendi bem em que momento você quer verificar.

Se tem internet ou se a base dados não esta respondendo?

[tcorrea]

Boa noite.

Na verdade eu reescrevi o código sem os Ifs e resolveu o problema. Entretanto ainda é importante saber a questão do timeout.

 

Neste caso seria verificando se tem internet. Como a pool do servidor IIS travou, ele necessariamente não está sem internet e a condição (IF) fica eternamente checando se tem internet e trava a aplicação entende?

Eu gostaria de definir algo do tipo:

Ex: 

If VerificaInternet = 1 Then
timeout=5 (5 segundos)

Eu sei que não é essa a sintaxe mas eu queria algo do tipo. Se em até 5 segundos a condição (IF) não fosse aceita, o timeout de 5 segundos pararia de verificar e continuaria seguindo a programação.

Obrigado!

Editado Março 12, 2021 por tcorrea

[Alyson Ronnan Martins]

Boa noite@tcorrea.

Eu uso o seguinte código:

Sub MyMainMacro()
 ' Pausa por 15 segundos.
 Application.OnTime Now + TimeValue("00:00:02"), "MyDelayMacro"
End Sub
Public Sub MyDelayMacro()
 ' Macro executada sob o agendamento.
 MsgBox "Esta macro foi executada após 15 segundos."
End Sub

Eu usava esse mais depois de alguma versões do office parei de usar:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Sleep()
 Sleep 1000   'Faz o código esperar por 1 segundo
End Sub