MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    ErnaniF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/08/2017

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

    Mensagem  ErnaniF em Ter 15 Ago 2017, 22:19

    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.
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em Qua 16 Ago 2017, 12:40

    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


    ErnaniF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/08/2017

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

    Mensagem  ErnaniF em Qui 17 Ago 2017, 18:03

    Grato,

    Deu certo.
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em Qui 17 Ago 2017, 18:17

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

    ErnaniF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/08/2017

    Pequeno problema

    Mensagem  ErnaniF em Qui 17 Ago 2017, 22:52

    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

    ErnaniF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/08/2017

    Projeto

    Mensagem  ErnaniF em Sex 18 Ago 2017, 20:32

    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,
    Anexos
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.8 Mb) Baixado 4 vez(es)

    ErnaniF
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/08/2017

    Resolvido

    Mensagem  ErnaniF em Sab 19 Ago 2017, 16:22

    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.
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 01/08/2011

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

    Mensagem  ronaldojr1 em Seg 21 Ago 2017, 13:20

    o forum agradece o retorno.

      Data/hora atual: Sab 18 Nov 2017, 01:09