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

    [Resolvido]chama função de erro

    maguim
    maguim
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    [Resolvido]chama função de erro Empty [Resolvido]chama função de erro

    Mensagem  maguim 30/11/2018, 16:25

    amigos

    boa tarde!


    vou criar um log de erros em tabela, Só que tenho uma duvida?

    como posso criar um variável ou alguma parâmetro pra chamar a função do numero do erro pra inserção de dados na tabela

    exemplo:

    Qualquer erro do ACCESS numero tal? inserir no table X


    Código:
    variavel erro
    variavel formulario
    Dim db As Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb()
        Set rs = db.OpenRecordset("log de erro") 'tabela de log

     rs.AddNew
        rs("campo da tabela") = variavel de erro
      rs("campo da tabela") = variavel formulario
      rs("campo da tabela") = date
        rs.Update
        rs.Close
        db.Close
        Set rs = Nothing
        Set db = Nothing


    uma outra duvida é possivel inserir algum log de erro de corrupção de banco?

    Exemplo o banco corrompeu sabe ultimo formulario que ele se corrompeu sabe?


    eu vi que nao tem mais no repositorio

    abraços


    Última edição por maguim em 16/4/2019, 20:29, editado 1 vez(es)


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]chama função de erro Empty Re: [Resolvido]chama função de erro

    Mensagem  DamascenoJr. 30/11/2018, 17:25

    Em anexo exemplo para estudo.

    Tentando abrir um formulário inexistente para exemplificar erro:
    Código:
    Private Sub btAbrirCadastro_Click()
    On Error GoTo trataerro

        DoCmd.OpenForm "frmCadastro"

    sair:
        Exit Sub
       
    trataerro:
        Call fncRegistraErro(Me.Name, "btAbrirCadastro_Click", Err.Number, Err.Description)
        MsgBox "Ocorreu um erro inesperado que pode fazer o sistema funcionar de forma incorreta." & vbNewLine & _
              vbNewLine & _
              "Contacte o desenvolvedor.", vbCritical, "Erro"
        Resume sair:
       
    End Sub

    Função que registra o erro:
    Código:
    Public Sub fncRegistraErro(strNomeForm As String, _
                              strEvento As String, _
                              lngNumErro As Long, _
                              strDescricao As String)
                             
        CurrentDb.Execute "insert into tblErros ( formulario, evento, numero, descricao ) " & _
                          "values (""" & strNomeForm & """, """ & strEvento & """, " & lngNumErro & ", """ & strDescricao & """);"
                             
    End Sub
    Anexos
    [Resolvido]chama função de erro AttachmentExemploErro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 4 vez(es)
    maguim
    maguim
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 446
    Registrado : 15/05/2013

    [Resolvido]chama função de erro Empty Re: [Resolvido]chama função de erro

    Mensagem  maguim 30/11/2018, 17:55

    @ grande Ivan


    obg pelo exemplo vou dar uma estuda, agora pensando longe existe possibilidade de prever um corrupção do banco? no modulo

    existe algum parametro que no momento improprio de alguma falha ele inseri em uma tabela algo assim?

    abraços


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! Surprised
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]chama função de erro Empty Re: [Resolvido]chama função de erro

    Mensagem  DamascenoJr. 30/11/2018, 19:22

    Se existe eu desconheço.

    O que pode ser feito é criar logs das atividades do banco de dados e então após corrupção olhar estes logs e descobrir o que houve.

    No repositório achei estes exemplos/ideias
    https://www.maximoaccess.com/t8608-log-de-atividades-a-nivel-de-registro
    https://www.maximoaccess.com/t33909-log-registros-das-interacoes-nos-formularios
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2892
    Registrado : 22/11/2016

    [Resolvido]chama função de erro Empty Re: [Resolvido]chama função de erro

    Mensagem  DamascenoJr. 18/12/2018, 12:22

    Nathan, viu os links que indiquei na mensagem anterior? Eles atendem ao caso apontado neste tópico em particular?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 25/7/2021, 03:29