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


4 participantes

    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 : 134
    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 : 1394
    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

    Conteúdo patrocinado


    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  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:30