MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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!



    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    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!




    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

      Data/hora atual: Dom 04 Dez 2016, 20:20