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

    [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 63 vez(es)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9376
    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 144 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9376
    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.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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: Qui 17 Ago 2017, 02:50