MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Inserção de registros baseado no Login

    Compartilhe

    BITSILVA
    Novato
    Novato

    Respeito às Regras 100%

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

    Inserção de registros baseado no Login

    Mensagem  BITSILVA em Ter 26 Abr 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!


    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Inserção de registros baseado no Login

    Mensagem  Avelino Sampaio em Ter 26 Abr 2016, 21:29

    Olá!

    Veja se a dica 58 ajuda:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!



      Data/hora atual: Sex 24 Nov 2017, 01:40