(Resolvido) Registro Automático de Acesso

[LuizFaria]

Pessoal,

Preciso criar um meio de quando uma pessoa acessar um formulário para ler as informações, fique registrado esta entrada.

Alguém poderia me dar uma idéia.

Abraços,

Luiz Faria

[MrMALJ]

Se tiver um sistema de login basta criar uma tabela de logs e ir inserindo os acessos realizados ou no sistema ou para cada sessão.

[LuizFaria]

Caro Mr MALJ,

Não estendi a questão, fiz um sistema de login, mas como posso fazer para criar este log em cada seção?

Abraços,

Luiz

[MrMALJ]

Com eu disse no post anterior crie uma tabela para arquivar os passos dos usuários e sempre que ele fizer alguma ação (isso imaginando que você esteja mantendo os dados do usuário ativo disponível o tempo todo) como por exemplo abri um determinado formulário você poderia utilizar uma propriedade de evendo para incluir um texto assim assin na sua tabela:

"Usuário FULANO abriu formulário determinado no dia xx/xx/xxxx as xx:xxhs"

[LuizFaria]

Caro MrMALJ,

Poderia me auxiliar neste evento, não tenho conhecimento muito aprofundado no access e por isto tenho dificuldade nestes casos.

Abraços,

[MrMALJ]

Ummm fera assim que conseguir um tempinho, vou ver se faço um exemplo e posto.

[Humm]

nas propriedades de eventos do form, tem o evento onload(ao carregar) onde você pode colocar uma rotina que faça uma sql de acrescimo a tabela de logs

use o comando

docmd.runsql

ai crie um SQL de acrescimo q pegue o usuario logado, a data e hora atual com a função now() e ta tudo resolvido.

exemplo:

Private Sub Form_Load()
    Dim strSQL As String
    
    strLocal = Me.Caption
    
    strSQL = "INSERT INTO LOGS ( DATA, USER, FORM)" & _
    "SELECT Now(), USER_LOGADO.ID, """ & strLocal & """ FROM USER_LOGADO;"
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
End Sub

no exemplo eu tenho uma tabela chamada LOGS com os campos DATA, USER, FORM

então a SQL cria uma entrada nova nessa tabela a cada vez que alguém carrega o formulario

DATA recebe o valor de now() que é a data e hora atual do sistema

USER recebe o valor USER_LOGADO.ID que é uma consulta que checa o usuario logado no momento

FORM recebe o valor do nome de legenda do formulario aberto (me.caption)

divirta-se

[LuizFaria]

tópico resolvido, deu certo.

Grato,

Luiz faria