[Resolvido]Pular evento Conectar Tabela em outra máquina desligada

Problema:
Servidor atualiza 7 PCs. Meu problema é: Quando um deles está desligado, dá erro e interrompe todas as próximas atividades da macro.
Como faço para a atualização pular a Tabela(Consulta atualização) cuja máquina esteja desligada?

Se alguém puder me ajudar ficarei grato.

Uso o Access 2010.

bom dia
o que vc pode fazer é um if para verificar se a maquina respondeu ao ping, caso a maquina responder vc faz a sua consulta, se não pula para a proxima

Código:


'função faz um ping no endereço passado pela função.
'address pode ser o nome do pc ou ip do pc ou endereço de um site sem http. ex.: uol.com.br
Function isPcAtivo(address As String) As Boolean
Dim colPingResults As Object
Dim oPingResult As Variant
Dim strQuery As String
strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & address & "'"
Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery(strQuery)
For Each oPingResult In colPingResults
    If Not IsObject(oPingResult) Then
        isSiteAtivo = False
    ElseIf oPingResult.statuscode = 0 Then
        isSiteAtivo = True
    Else
        isSiteAtivo = False
    End If
Next
Set colPingResults = Nothing

End Function

'exemplo de uso
while ...
  'verifica se pcAtual esta respondendo ao ping.
  if isPcAtivo(pcAtual) then
     'faz consulta
  endif
  proximo-PC
loop



Grato,

Deu certo.

o forum agradece o retorno, mas nao nao esqueça de marcar o topico como resolvido.

Ref. a solução acima.
Quando o projeto está em ACCDB funciona perfeitamente. Dá o aviso de que um determinado PC está desligado.
Mas quando o projeto está copilado para ACCDE não dá nenhuma informação de PC desligado e nem dá erro.
Alguma solução?
Access 2010

Estou anexando o projeto em ACCDB. Enviei somente a parte que está dando problema. Veja que se for clicar no botão do formulário que abre o resultado está correto. (o arquivo está compactado, só descompactar)
Mas se salvar como ACCDE o botão passa a não funcionar.
Se alguém quiser analisar o projeto para facilitar uma ajuda.

Grato,

Consegui resolver o problema acima da seguinte forma:
1. Criei um Banco novo
2. Importei todas as tabelas, consulta, formulários, macros e Mídulos, do banco anterior.
3. Copilei para ACCDE e funcionou normalmente com todos os recursos ativos.

Deve ser um bug do Access.

o forum agradece o retorno.