[Resolvido]Log / Auditoria em form desacoplado

Olá pessoal.

Alguém conhece algum código que faz os log (auditoria) em formulários desacoplados ?

Olá José Moraes,

Já tentou a "Busca" aqui do fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Coloque na busca "Auditor" e verifique.
Ficamos aguardar o retorno.

Abraço

Ja sim colega, nesse e em muitos outros

Mas na achei para formulário desvinculado, apenas para o padrão

Olá,

Uma vez que é desvinculado, está a fazer tudo à unha.
Pode ser feito através de uma consulta Insert.
Veja se ajuda:
https://www.maximoaccess.com/t3799-resolvido-log-registro-de-entrada-saida-do-banco

Abraço

Na verdade eu fiz uma adaptação nesse código:

Option Compare Database
Option Explicit
Function CriarLOG(Evento As String)
On Error GoTo TratarErro
Dim DataHora As Variant
Dim Usuario As String
Dim Maquina As String
Dim Arquivo As String

DataHora = Now
Usuario = Environ("username")
Maquina = Environ("computername")

Arquivo = CriarArquivoLOG

Open Arquivo For Append As #1
Print #1, DataHora & " - " & Usuario & " - " & Maquina & " | " & Evento
Close #1
SairFunction:
Exit Function

TratarErro:
MsgBox Err.Description, vbCritical, " Erro " & Err.Number
Resume SairFunction
End Function
Function CriarArquivoLOG()
On Error GoTo TratarErro
Dim Arquivo As String

Arquivo = "C:\AccessLeanLog\LogAlteracao_" & Format(Date, "YYYY-MM") & ".log"

If Dir("C:\AccessLeanLog", vbDirectory) = "" Then MkDir "C:\AccessLeanLog"
If Dir("C:\AccessLeanLog\LogAlteracao_" & Format(Date, "YYYY-MM") & ".log", vbDirectory) = "" Then

Open Arquivo For Output As #1
Close #1

End If

CriarArquivoLOG = Arquivo

SairFunction:
Exit Function

TratarErro:
MsgBox Err.Description, vbCritical, " Erro " & Err.Number
Resume SairFunction
End Function
Function CriarLOGAbertura(Evento As String)
On Error GoTo TratarErro
Dim DataHora As Variant
Dim Usuario As String
Dim Maquina As String
Dim Arquivo As String

DataHora = Now
Usuario = Environ("username")
Maquina = Environ("computername")

Arquivo = CriarArquivoLOG

Open Arquivo For Append As #1
Print #1, "***************************************************************************************" 'Imprime o texto no arquivo
Print #1, DataHora & " - " & Usuario & " - " & Maquina & " | " & Evento
Print #1, "***************************************************************************************" 'Imprime o texto no arquivo

Close #1
SairFunction:
Exit Function

TratarErro:
MsgBox Err.Description, vbCritical, " Erro " & Err.Number
Resume SairFunction
End Function
Function CriarLOGEncerramento(Evento As String)
On Error GoTo TratarErro
Dim DataHora As Variant
Dim Usuario As String
Dim Maquina As String
Dim Arquivo As String

DataHora = Now
Usuario = Environ("username")
Maquina = Environ("computername")

Arquivo = CriarArquivoLOG

Open Arquivo For Append As #1
Print #1, DataHora & " - " & Usuario & " - " & Maquina & " | " & Evento
Print #1, "." 'Imprime o texto no arquivo
Print #1, "." 'Imprime o texto no arquivo
Print #1, "." 'Imprime o texto no arquivo
Print #1, "***************************************************************************************" 'Imprime o texto no arquivo

Close #1
SairFunction:
Exit Function

TratarErro:
MsgBox Err.Description, vbCritical, " Erro " & Err.Number
Resume SairFunction
End Function



Nas abertura do form principal ou login usa a chamada:

Call CriarLOGAbertura("Abertura do sistema")
Call CriarLOG("Tela de login solicitada")


No fechamento do form principal ou cancelamento do login usa a chamada:
Call CriarLOGEncerramento("Usuário """ & wUsuario & """, cancelou o login")



Para os demais formulários uso assim:

Ao carregar : Call CriarLOG("Usuário """ & UsuarioAtual & """, solicitou a tela de clientes")
Ao fechar : Call CriarLOG("Usuário """ & UsuarioAtual & """, fechou a tela de clientes")
Ao salvar : Call CriarLOG("Usuário """ & UsuarioAtual & """, adicionou o cliente, """ & TxtNome & """, com sucesso")
Ao Editar : Call CriarLOG("Usuário """ & UsuarioAtual & """, alterou as informações do cliente, """ & TxtNome & """, com sucesso")
Ao excluir: Call CriarLOG("Usuário """ & UsuarioAtual & """, excluiu o cliente, """ & ClinFor_Nome & """, com sucesso")


Mastigado para quem quiser usar

Cada ação é adicionado em um .txt

Obrigado


Mas esse ainda não é o que eu preciso

Mas no momento me serve

Olá, é uma solução.

Eu optava por uma tabela e uma função para fazer insert, em que passava nos parâmetros a ação,objeto, etc. ao gosto de cada um.

Claro que se os formulários são desvinculados, está tudo em código, ao alterar um campo, também poderia ser incluído no "log".

Diz que não era o que queria mas resolve, pergunto, o que pretende então?

Obrigado pela partilha do seu código.

Abraço

Pretendo ter uma tabela onde fica registrado as alterações feitas nos cadastros

Não achei ainda uma solução para os formulários desvinculado, o pois os mesmos na utilização do ctl.Value <> ctl.OldValue, não consigo obter a informação antiga para validar e então gravar na tabela

Olá,
Poste uma base de dados com um formulário como trabalha os dados desvinculados.
Assim, será mais fácil analisar o que pretende e para exemplificar.

Abraço

Resolvido

Olá José, que bom que resolveu.

Conseguiu em tabeela como pretendia?
Pode partilhar a solução?

Os membros do fórum agradecem.

Abraço

Olá.

Não consegui encontrar o que procuro, vou ficar com o código acima.

Obrigado pela atenção

Acrescentando ao tópico, o controle poderia ser feito direto via tabela com o uso de triggers (recurso existente a partir do access 2010)
https://www.maximoaccess.com/t34525-macros-de-dados-e-nomeadas#236447