MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

Obrigado

Administração do MaximoAccess

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]Log / Auditoria em form desacoplado

    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 23/02/2011

    [Resolvido]Log / Auditoria em form desacoplado Empty [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  JOSEMORAES 14/8/2018, 18:07

    Olá pessoal.

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


    .................................................................................
    [Resolvido]Log / Auditoria em form desacoplado 10715412
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7100
    Registrado : 15/03/2013

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  ahteixeira 14/8/2018, 18:38

    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
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 23/02/2011

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  JOSEMORAES 14/8/2018, 20:09

    Ja sim colega, nesse e em muitos outros

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


    .................................................................................
    [Resolvido]Log / Auditoria em form desacoplado 10715412
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7100
    Registrado : 15/03/2013

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  ahteixeira 14/8/2018, 22:33

    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
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 23/02/2011

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  JOSEMORAES 14/8/2018, 23:13

    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









    .................................................................................
    [Resolvido]Log / Auditoria em form desacoplado 10715412
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7100
    Registrado : 15/03/2013

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  ahteixeira 14/8/2018, 23:53

    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
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 23/02/2011

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  JOSEMORAES 15/8/2018, 00:46

    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


    .................................................................................
    [Resolvido]Log / Auditoria em form desacoplado 10715412
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7100
    Registrado : 15/03/2013

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  ahteixeira 15/8/2018, 08:48

    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

    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 23/02/2011

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  JOSEMORAES 16/8/2018, 03:43

    Resolvido


    .................................................................................
    [Resolvido]Log / Auditoria em form desacoplado 10715412
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7100
    Registrado : 15/03/2013

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  ahteixeira 16/8/2018, 08:11

    Olá José, que bom que resolveu.

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

    Os membros do fórum agradecem.

    Abraço
    avatar
    JOSEMORAES
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 198
    Registrado : 23/02/2011

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  JOSEMORAES 16/8/2018, 12:27

    Olá.

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

    Obrigado pela atenção


    .................................................................................
    [Resolvido]Log / Auditoria em form desacoplado 10715412
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Log / Auditoria em form desacoplado Empty Re: [Resolvido]Log / Auditoria em form desacoplado

    Mensagem  DamascenoJr. 11/3/2020, 02:23

    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



    .................................................................................
    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: 4/3/2021, 13:19