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 - Nível de Segurança

    Compartilhe

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 03/05/2012

    [Resolvido]Login - Nível de Segurança

    Mensagem  Jonatan em Seg 7 Jul - 19:37

    Olá amigos, tenho um probleminha com um form. de login.

    Usei o seguinte código do nosso amigo JPaulo:

    Dim User As Integer

       If Me.Senha.Value = DLookup("[Senha]", "[Usuários]", "[Usuário] = '" & Me.Usuário & "'") Then
           User = DLookup("[NívelSegurança]", "[Usuários]", "[Usuário] = '" & Me.Usuário & "'")
           
           Select Case User
               Case 1
                   stDocName = "Formulário_HomeAdmin"
               Case 2
                   stDocName = "Formulário_HomeLab"
           End Select
           
           If IsNull(OpenArgs) = False Then
               DoCmd.Close acForm, Screen.ActiveForm.Name
           End If
           
           DoCmd.Close
           DoCmd.OpenForm stDocName
         
         Else
           MsgBox "Senha incorreta. Por favor tente novamente.", vbInformation + vbOKOnly, "Erro"
           Me.Senha.Value = ""
           Me.Senha.SetFocus
           Exit Sub
       End If


    Tenho os seguintes usuários:
    Admin, segurança 1
    User1, segurança 2
    User2, segurança 2

    Para cada usuário há um form específico.

    Então preciso que ao selecionar um dos usuários de segurança 2 o código abra o form correto.


    Espero ter sido claro.

    Desde já grato a todos.

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 03/05/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Jonatan em Seg 7 Jul - 19:53

    Amigos consegui uma solução, usei um IF no CASE 2:

    Dim User As Integer

       If Me.Senha.Value = DLookup("[Senha]", "[Usuários]", "[Usuário] = '" & Me.Usuário & "'") Then
           User = DLookup("[NívelSegurança]", "[Usuários]", "[Usuário] = '" & Me.Usuário & "'")
           
           Select Case User
               Case 1
                   stDocName = "Formulário_HomeAdmin"
               Case 2
               If Me.Usuário = "User1" Then
                   stDocName = "Formulário_HomeLab"
               ElseIf Me.Usuário = "User2" Then
                   stDocName = "Formulário_HomeMed"
               End If
               
           End Select
           
           If IsNull(OpenArgs) = False Then
               DoCmd.Close acForm, Screen.ActiveForm.Name
           End If
           
           DoCmd.Close
           DoCmd.OpenForm stDocName
         
         Else
           MsgBox "Senha incorreta. Por favor tente novamente.", vbInformation + vbOKOnly, "Erro"
           Me.Senha.Value = ""
           Me.Senha.SetFocus
           Exit Sub
       End If


    Mas não fica tão interessante pra mim dessa forma, pois se mudar o nome do usuário também devo alterar no código.

    Há alguma forma do código reconhecer essa mudança?

    Grato

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 12/04/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Fernando Bueno em Seg 7 Jul - 20:08

    Legal, tinha duas ideias pra te dar...

    Uma é essa que você fez, a outra seria criar um outro Case tipo Case1 Case21 e Case22


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 03/05/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Jonatan em Seg 7 Jul - 20:16

    Como poderia fazer a outra opção, Fernando?

    Grato

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 12/04/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Fernando Bueno em Seg 7 Jul - 20:21

    Boa noite, você adicionaria mais um numero no nivel de segurança por exemplo:

    Nivel
    1
    2.1
    2.2

    Feito isso
    Código:
    Dim User As Integer

       If Me.Senha.Value = DLookup("[Senha]", "[Usuários]", "[Usuário] = '" & Me.Usuário & "'") Then
           User = DLookup("[NívelSegurança]", "[Usuários]", "[Usuário] = '" & Me.Usuário & "'")
          
           Select Case User
               Case 1
                   stDocName = "Formulário_HomeAdmin"
               Case 2.1
                   stDocName = "Formulário_HomeLab"
               Case 2.2
                   stDocName = "Formulário_HomeMed"
           End Select
          
           If IsNull(OpenArgs) = False Then
               DoCmd.Close acForm, Screen.ActiveForm.Name
           End If
          
           DoCmd.Close
           DoCmd.OpenForm stDocName
        
         Else
           MsgBox "Senha incorreta. Por favor tente novamente.", vbInformation + vbOKOnly, "Erro"
           Me.Senha.Value = ""
           Me.Senha.SetFocus
           Exit Sub
       End If

    Se não conseguir anexe seu bd para vermos como esta essa parte.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 03/05/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Jonatan em Seg 7 Jul - 20:34

    Não deu certo. Case 2.2 não funciona.

    Segue o BD.

    Grato
    Anexos
    teste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (31 Kb) Baixado 25 vez(es)

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 12/04/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Fernando Bueno em Ter 8 Jul - 7:58

    Bom dia Jonatan, realmente não aceitou ponto mais veja se te serve dessa forma.
    Anexos
    teste_II.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 58 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    Registrado : 29/06/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Noobezinho em Ter 8 Jul - 9:27

    Jonatan

    Gostaria de um Acesso a nivel de grupo mais elaborado?

    Aqui tem um  exemplo

    Bom estudo

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 12/04/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Fernando Bueno em Ter 8 Jul - 10:31

    Muito bom esse exemplo do nosso amigo Noob, postei um com ribbons e niveis de acesso

    para um colega do forum se quiser ver também.

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


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    Registrado : 03/05/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Jonatan em Ter 8 Jul - 14:16

    Noobezinho, obrigado pela dica, vou dar uma estudada a respeito. Fernando, já havia conseguido. Fiz como você fez, mesmo assim muito obrigado. Ainda criei um campo com a descrição de cada nível para ficar mais fácil de usar.

    Grato a todos.

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 12/04/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Fernando Bueno em Ter 8 Jul - 14:17

    Ok, agradecemos pelo retorno.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    soltecitu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 29/09/2014

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  soltecitu em Seg 17 Nov - 7:02

    Gostei muito é o que estou precisando, mas não entendi como foi feito.
    Alguém pode ajudar?

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2483
    Registrado : 29/06/2012

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  Noobezinho em Seg 17 Nov - 7:35

    João

    O que é que não entende?


    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    soltecitu
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 29/09/2014

    Re: [Resolvido]Login - Nível de Segurança

    Mensagem  soltecitu em Seg 17 Nov - 8:26

    Amigo, Noob
    Não consegui entender como faço para colocar níveis de usuário no formulário, ou seja um usuário com acesso a tudo e outro limitado.

    João

      Data/hora atual: Sex 2 Dez - 23:36