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

    [Resolvido]Ajuda função dlookup login

    Compartilhe

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    Ajuda função dlookup login

    Mensagem  airtongt em Qui 31 Out 2013, 13:27

    eu estou querendo modificar esse codigo com base em um consulta qryTemAcesso se alguém poder da uma olhada no banco de dados muito obrigado
    obs:busca dados em um consulta



    VerificaUsuario = DLookup("Login", "Login_senha", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox
    SenhaDoUsuario = DLookup("Senha", "Login_senha", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox
    Anexos
    codigoConsul.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (936 Kb) Baixado 18 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Ajuda função dlookup login

    Mensagem  JPaulo em Qui 31 Out 2013, 14:47

    Ola;

    A sua combobox apenas tem uma coluna, por isso não deve referenciá-la, basta apenas;

    VerificaUsuario = DLookup("Email", "qryTemAcesso", "Email = '" & Me.txtLogin & "'")
    SenhaDoUsuario = DLookup("Senha", "qryTemAcesso", "Email= '" & Me.txtLogin & "'")

    E tinha muitos nomes de forms errados e da txtLogin;


    Private Sub cmdConfirmar_Click()
    Dim VerificaUsuario As Variant 'declaramos a variavel VerificaUsuario do tipo variant
    Dim SenhaDoUsuario As Variant 'declaramos a variavel SenhaDoUsusario do tipo variant
    Dim rst As Recordset

    VerificaUsuario = DLookup("Email", "qryTemAcesso", "Email = '" & Me.txtLogin & "'")
    SenhaDoUsuario = DLookup("Senha", "qryTemAcesso", "Email = '" & Me.txtLogin & "'")

    Set rst = CurrentDb.OpenRecordset("SELECT Cargos FROM Funcionário WHERE Email='" & VerificaUsuario & "'")

       'Verifica se o Usuário Existe
       If IsNull(VerificaUsuario) Then
           MsgBox "O Usuário informado não existe neste Sistema!", vbCritical, "Usuário Inválido"
       Else
       'Verifica se a Senha Confere
           If Me.txtLSenha = SenhaDoUsuario Then
              Select Case rst!Cargos
                       Case Is = 3
                 DoCmd.Close acForm, "frmLogin"
                 DoCmd.OpenForm "frmDirigentesFiliais"
                       Case Is = 1
                 DoCmd.Close acForm, "frmLogin"
                 DoCmd.OpenForm "frmSupervisoresMontagemVeiculo"
                       Case Is = 4
                 DoCmd.Close acForm, "frmLogin"
                 DoCmd.OpenForm "frmGerentesSetorFinanceiro"
                       Case Is = 5
                 DoCmd.Close acForm, "frmLogin"
                 DoCmd.OpenForm "frmAdministração"
               End Select
           Else
               MsgBox "A Senha que você digitou está incorreta, por favor, tente novamente!", vbCritical, "Senha Inválida"
           End If
       End If
    rst.Close
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    Re: [Resolvido]Ajuda função dlookup login

    Mensagem  airtongt em Qui 31 Out 2013, 16:08

    muito obrigado JPaulo
    que deus o abençoe muito mais
    valeu

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Ajuda função dlookup login

    Mensagem  JPaulo em Qui 31 Out 2013, 17:31

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: Sex 09 Dez 2016, 11:30