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]Login por níveis de funcionarios

    Compartilhe

    dantasr
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 05/09/2013

    [Resolvido]Login por níveis de funcionarios

    Mensagem  dantasr em Qui 24 Out 2013, 15:19

    Olá, estou enfrentando um problema. Estou com um problema no access.
    - Dirigentes - ID=3;
    - Setor financeiro ID=4;
    - Montagem de Veículos ID=1;
    - Administração ID= 5.
    Eu criei 4 formularios, um para cada setor. Se o funcionario é do setor 3 o formulario Dirigentes de filiais é aberto. Eu so consegui com que todos abram so um formulario, que é o formulario menu principal. Vou anexar o arquivo.
    Anexos
    Access.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (294 Kb) Baixado 59 vez(es)


    Última edição por dantasr em Seg 28 Out 2013, 17:30, editado 1 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Login por níveis de funcionarios

    Mensagem  JPaulo em Qui 24 Out 2013, 16:28

    Obs:
    Tente sempre colocar um título decente nos tópicos, o que você colocou "Visual Basic" não diz nada a ninguem para uma futura busca no forum.


    Para a sua duvida um pequeno Select Case resolve;
    Código:

    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("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

    Set rst = CurrentDb.OpenRecordset("SELECT Identificação FROM Controle_de_acesso_ao_sistema 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.txtSenha = SenhaDoUsuario Then
             
              Select Case rst!Identificação
                       Case Is = 3
                 DoCmd.Close acForm, "Login"
                 DoCmd.OpenForm "frm_Dirigentesdefiliais"
                       Case Is = 1
                 DoCmd.Close acForm, "Login"
                 DoCmd.OpenForm "frm_SupervisoresdeMontagem de Veículos"
                       Case Is = 4
                 DoCmd.Close acForm, "Login"
                 DoCmd.OpenForm "frm_GerentedeSetorfinanceiro"
                       Case Is = 5
                 DoCmd.Close acForm, "Login"
                 DoCmd.OpenForm "frm_Administraçã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
    Anexos
    Access_Login_OLD.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (155 Kb) Baixado 136 vez(es)


    .................................................................................
    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.]

    dantasr
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 05/09/2013

    Re: [Resolvido]Login por níveis de funcionarios

    Mensagem  dantasr em Qui 24 Out 2013, 20:35

    E tambem o texto que coloquei foi o errado, peco desculpa ao forum e muito obrigado pela ajuda JPaulo.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Login por níveis de funcionarios

    Mensagem  JPaulo em Qui 24 Out 2013, 21:32

    Tranquilaço...

    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: Dom 04 Dez 2016, 06:04