[Resolvido]chama função de erro

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

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

@ 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

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

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