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

    chama função de erro

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    chama função de erro

    Mensagem  maguim em 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


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: chama função de erro

    Mensagem  IvanJr. em 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
    ExemploErro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 2 vez(es)

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: chama função de erro

    Mensagem  maguim em 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 ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: chama função de erro

    Mensagem  IvanJr. em 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
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 16/12/2018, 11:20