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


2 participantes

    Controle de Registro

    avatar
    eissoaimesmo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 25/04/2013

    Controle de Registro Empty Controle de Registro

    Mensagem  eissoaimesmo 21/10/2013, 20:33

    Boa tarde Senhores(as),


      Estou usando um modulo para fazer o controle de acesso, preciso de ajuda para pegar a informação do Usuário que esta logado no momento (strUsuarioAtual),e poder arquivar quem foi o usuário que criou ou atareou determinados registros .... Segue código:

    Option Compare Binary
    Option Explicit

    Private strUsuarioAtual As String
    Private Const SENHA_PADRAO = "123456"

    Function getSenhaPadrao() As String
     getSenhaPadrao = SENHA_PADRAO
    End Function

    Sub setUsuarioAtual(argLogin As String)
     strUsuarioAtual = argLogin
    End Sub

    Function getUsuarioAtual() As String
     getUsuarioAtual = strUsuarioAtual
    End Function

    Function getGrupoUsuarioAtual() As String
     
     getGrupoUsuarioAtual = Nz(DLookup("grupo", "Usuario", _
                       "login='" & strUsuarioAtual & "'"), "")
     
     Select Case getGrupoUsuarioAtual
       Case 0
         getGrupoUsuarioAtual = "Administradores"
       Case 1
         getGrupoUsuarioAtual = "Gerentes"
       Case 2
         getGrupoUsuarioAtual = "Usuários"
       Case 3
         getGrupoUsuarioAtual = "Visitantes"
       Case Else
         getGrupoUsuarioAtual = ""
     End Select
     
    End Function

    Function verificaLogin(argLogin As String, argSenha As String) As Boolean

       Dim criterio As String
       
       'Convertendo a senha clara
       'em código hash MD5 para
       'comparação e validação
       argSenha = getMD5(argSenha)
       
       criterio = "login='" & argLogin & "' And senha='" & argSenha & "'"
       
       If Nz(DCount("login", "Usuario", criterio), 0) > 0 Then
           verificaLogin = True
           setUsuarioAtual argLogin
       Else
           verificaLogin = False
       End If

    End Function

    Sub alterarSenha(argLogin As String, argSenha As String)

       Dim strSql As String
       
       'Convertendo a senha clara
       'em código hash MD5 para
       'armazenamento seguro
       argSenha = getMD5(argSenha)

       strSql = "Update Usuario Set senha='" & argSenha & "'" & _
               "Where login='" & argLogin & "'"
       DoCmd.SetWarnings False
       DoCmd.RunSQL strSql
       DoCmd.SetWarnings True
       
    End Sub


    Atenciosamente
    Eissoaimesmo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Controle de Registro Empty Re: Controle de Registro

    Mensagem  JPaulo 21/10/2013, 20:44

    Ola seja bem vindo ao forum,

    Veja se ajuda,

    http://maximoaccess.forumeiros.com/t2091-resolvidoalterar-o-exemplo-quem-introduziu-quem-alterou


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Controle de Registro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Controle de Registro Folder_announce_new 102 Códigos VBA Gratuitos...
    Controle de Registro Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 28/3/2024, 10:49