MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

    Gravar em tabela todos acessos de usuários com data e hora

    avatar
    GeGera
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 24/01/2015

    Gravar em tabela todos acessos de usuários com data e hora Empty Gravar em tabela todos acessos de usuários com data e hora

    Mensagem  GeGera 8/2/2016, 19:53

    Boa tarde a todos, tenho um BD 2007 funcionando perfeito só que preciso agora que quando os usuários cadastrados façam o acesso ao clicar no botão este fique gravado em uma tabela a ser criada com os devidos campos USUÁRIO, DATA e HORA, segue o Cód. do botão de acesso

    Private Sub Acessar_Click()
    If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
    DoCmd.OpenForm "FiltrosSequenciais"
    DoCmd.OpenForm "FormSaudacao"
    Else
    MsgBox ("Usuário ou Senha Inválidos!")
    End If
    End Sub

    Agradeço desde já abç
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    Gravar em tabela todos acessos de usuários com data e hora Empty Re: Gravar em tabela todos acessos de usuários com data e hora

    Mensagem  philipp.moreira 8/2/2016, 20:57


    Private Sub Acessar_Click()
    If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
    DoCmd.OpenForm "FiltrosSequenciais"
    DoCmd.OpenForm "FormSaudacao"
    CurrentDB.Execute "INSERT INTO [sua tabela] ([camp1], [campo2], [campo3]) VALUES ('" & Environ("username") & "', '" & Date & "', '" & Time & "')"
    Else
    MsgBox ("Usuário ou Senha Inválidos!")
    End If
    End Sub
    avatar
    GILDEZIO
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 124
    Registrado : 23/04/2014

    Gravar em tabela todos acessos de usuários com data e hora Empty Re: Gravar em tabela todos acessos de usuários com data e hora

    Mensagem  GILDEZIO 10/2/2016, 20:14

    boa tarde amigos esses exempto é bastante legal mas eu estou aproveitado ele para meu BD mas só tem um problema no lugar do usuário que logou esta aparecendo o nome do cumputador.alguem pode mim ajudar
    tauron
    tauron
    VIP
    VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1282
    Registrado : 07/12/2011

    Gravar em tabela todos acessos de usuários com data e hora Empty Re: Gravar em tabela todos acessos de usuários com data e hora

    Mensagem  tauron 10/2/2016, 21:20

    De uma olhada neste exemplo do JPaulo, ele registra o usuario do pc, o usuario do bd e o ip da maquina utilizada.

    https://www.maximoaccess.com/t213-quem-introduziu-quem-alterou?highlight=introduziu
    avatar
    GeGera
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 24/01/2015

    Gravar em tabela todos acessos de usuários com data e hora Empty Re: Gravar em tabela todos acessos de usuários com data e hora

    Mensagem  GeGera 11/2/2016, 11:01

    Philipp.moreira

    Grato pela atenção, funcionou mas esta registrando o Id da maquina e não o Usuário

    Dei uma mexida e descobri o erro, funciona perfeito e mesmo que mude de maquina irá registrar a mesma tbm então ficou assim...

    Private Sub Acessar_Click()
    If txtUsuario.Value = txtUsuarioTab.Value And txtSenha.Value = txtSenhaTab.Value Then
    DoCmd.OpenForm "FiltrosSequenciais"
    DoCmd.OpenForm "FormSaudacao"
    CurrentDb.Execute "INSERT INTO [Registro Acesso] ([Maquina],[Usuario],[Data],[Hora]) VALUES ('" & Environ("Username") & "', '" & txtUsuario & "', '" & Date & "', '" & Time & "')"
    Else
    MsgBox ("Usuário ou Senha Inválidos!")
    End If
    End Sub

      Data/hora atual: 12/4/2021, 02:32