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

    Inserção de registros baseado no Login

    avatar
    BITSILVA
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 30/08/2010

    Inserção de registros baseado no Login Empty Inserção de registros baseado no Login

    Mensagem  BITSILVA 26/4/2016, 20:51

    Prezados(as) amigos(as),
    Criei um sistema de Login (Funcional e Senha) que está funcionando perfeitamente esse é o código abaixo:

    Dim VerificaUsuario
    Dim SenhaDoUsuario
    Dim userLevel

    'Pesquisa Usuário, Senha e Nível com Dlookup
    VerificaUsuario = DLookup("Funcionario", "tbUser", "Funcional = '" & Me.txtFuncional & "'")
    SenhaDoUsuario = DLookup("Senha", "tbUser", "Funcional = '" & Me.txtFuncional & "'")
    userLevel = DLookup("Nivel", "tbUser", "Funcional='" & txtFuncional & "'")

    'Verifica se o Usuário Existe
    If IsNull(VerificaUsuario) Then
    MsgBox "A FUNCIONAL informado não existe neste Sistema!", vbCritical + vbOKOnly, "Funcional Inválido"
    Me.txtFuncional.SetFocus
    Else

    'Verifica se a Senha Confere
    If Me.txtSenha = SenhaDoUsuario Then

    'Abre o formulário de acordo com o Nível
    If userLevel = "Admin" Then
    DoCmd.OpenForm "Menu"
    Forms![Menu]![txtLogin] = VerificaUsuario
    Else
    DoCmd.OpenForm "Menu2"
    Forms![Menu2]![txtLogin] = VerificaUsuario
    End If
    Else
    MsgBox "A Senha informada está incorreta, por favor, tente novamente!", vbCritical + vbOKOnly, "Senha Inválida"
    Me.txtSenha.SetFocus
    End If
    End If

    End Sub


    O que eu desejo agora é quando abrir os demais formulários (Vendas e etc..) de vendas que o nome do usuário logado apareça no formulário e seja salvo quando a venda for registrada.
    Já pesquisei mas confesso que não consegui concluir.

    Grato pela atenção de todos!


    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    Inserção de registros baseado no Login Empty Re: Inserção de registros baseado no Login

    Mensagem  Avelino Sampaio 26/4/2016, 21:29

    Olá!

    Veja se a dica 58 ajuda:

    http://www.usandoaccess.com.br/Dicas/dicas-praticas-de-access-parte-6.asp?id=1&idlista=215#inicio

    Sucesso!




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 28/3/2024, 15:40