MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    Como tratar Erro: Acesso a rede foi Interrompido

    avatar
    eddieddi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/04/2013

    Como tratar Erro: Acesso a rede foi Interrompido Empty Como tratar Erro: Acesso a rede foi Interrompido

    Mensagem  eddieddi 24/6/2023, 13:41

    Bom Dia

    Quando realmente o acesso a rede é interrompido (pode ocorrer por diversos motivos), queria saber se:

    Tem como tratar esse erro, fazendo com que apenas o form feche tranquila/normalmente?

    Pois quando o acesso a rede é interrompido aparecem diversas vezes esse aviso, o usuário só clica em ok e o aviso reaparece, e a unica maneira de fechar o aplicativo é pelo Gerenciador de Tarefas.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2739
    Registrado : 23/01/2018

    Como tratar Erro: Acesso a rede foi Interrompido Empty Re: Como tratar Erro: Acesso a rede foi Interrompido

    Mensagem  crysostomo 25/6/2023, 01:21

    Boa noite.
    Depure seu projeto e coloque a mensagem aqui para que um de nós possamos te ajudar, até porque tratar com rede tem diversos tipos de erro.
    At.te


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    eddieddi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 12/04/2013

    Como tratar Erro: Acesso a rede foi Interrompido Empty Re: Como tratar Erro: Acesso a rede foi Interrompido

    Mensagem  eddieddi 29/5/2024, 01:35

    Esse erro 3044   Como tratar Erro: Acesso a rede foi Interrompido 274c  ocorre quando o cabo de rede ou o roteador é desligado, ou seja, a qualquer momento pode ocorrer:



    O problema é:

    Tem como tratar esse erro 3044 (tempo de execução) em todo o sistema, pois o erro acontece até quando ninguém esta usando, simplesmente na atualização automática que o access faz com o 'servidor' a cada X minutos se a rede 'caiu' exibe esse erro que queria tratar.

    Esse problema me tomou tantas horas sem conseguir resolver, que gostaria de agradecer por pix à quem souber de uma solução. Very Happy
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3936
    Registrado : 21/04/2011

    Como tratar Erro: Acesso a rede foi Interrompido Empty Re: Como tratar Erro: Acesso a rede foi Interrompido

    Mensagem  Marcelo David 29/5/2024, 13:50

    Bom dia senhores!
    Caso o erro 3044 ocorra trate de forma que feche o formulário.


    .................................................................................
    Como tratar Erro: Acesso a rede foi Interrompido Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    Como tratar Erro: Acesso a rede foi Interrompido Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    Como tratar Erro: Acesso a rede foi Interrompido Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    Como tratar Erro: Acesso a rede foi Interrompido Marcel11
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3449
    Registrado : 13/12/2016

    Como tratar Erro: Acesso a rede foi Interrompido Empty Re: Como tratar Erro: Acesso a rede foi Interrompido

    Mensagem  Alexandre Fim 29/5/2024, 14:33

    Olá,

    De que forma vc utiliza sua aplicação?
    O sistema usa o front-end na maquina do usuario vinculado ao back-end na rede?
    Quando cai a rede, o sistema perde o link com o back-end e ai o Access exibe a mensagem de erro.
    Provavelmente seja isso.

    O que poderia ser feito é (se o teu sistema possui um formulario principal) usar o evento No Timer, e nele executar uma rotina para verificar a conexão com o back-end, e se caso não houver conexão, rodar função para refazer os links com as tabelas do back-end, a cada 10 segundos ou o tempo que vc achar necessário.

    Segue função:

    Código:


    '-- by Alexandre Fim
    '-- Função para atualizar vinculo de tabelas com back-end

    Public Function fncLinkTabs()
    On Error GoTo trata_erro

    Dim strConnect        As String
    Dim rs             As DAO.Recordset
    Dim DB             As DAO.Database
    Dim tdf              As DAO.TableDef
    Dim strSQL            As String
    Dim ws            As DAO.Workspace
    Dim dbExt           As DAO.Database

        Screen.MousePointer = 11
           
        Set ws = DBEngine.Workspaces(0)
       
        Set dbExt = ws.OpenDatabase([CAMINHO_DO_BANCO_DE_DADOS], False, False, "MS Access;PWD=" & [SENHA_DO_BANCO_DE_DADOS] & "")
        Set DB = CurrentDb

       
        '-- Conexão com Back-End
       strConnect = "MS Access;PWD=" & [SENHA_DO_BANCO_DE_DADOS] & ";DATABASE=" & [CAMINHO_DO_BANCO_DE_DADOS]
        strSQL = "SELECT Name From MSysObjects WHERE Type = 1 and Name NOT LIKE 'MSys*' AND Flags = 0"
        Set rs = dbExt.OpenRecordset(strSQL)
       
       
       '-- Verifique se a tabela já está vinculada, se estiver, atualize a conexão.
       '-- Caso contrário, vincule a tabela.
       Do While Not rs.EOF   
            If IsNull(DLookup("[Name]", "MSysObjects", "[Name]='" & rs!Name & "'")) Then
                Set tdf = DB.CreateTableDef(rs!Name, dbAttachSavePWD, rs!Name, strConnect)
                DB.TableDefs.Append tdf
            Else
                DB.TableDefs(rs!Name).Connect = strConnect
            End If
            DB.TableDefs(rs!Name).RefreshLink
            rs.MoveNext
        Loop
       
        rs.Close
        Set rs = Nothing
       
       Screen.MousePointer = 0
       
        MsgBox "Atualização realizada com sucesso.", vbInformation, "Mensagem"
       
        Exit Function

    trata_erro:
       
        Screen.MousePointer = 0
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Function
       
    End Function




    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Como tratar Erro: Acesso a rede foi Interrompido Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    Como tratar Erro: Acesso a rede foi Interrompido Empty Re: Como tratar Erro: Acesso a rede foi Interrompido

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/10/2024, 22:13