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

    Compartilhe

    Jonatan
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Jonatan em Ter 08 Jul 2014, 00: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 : 227
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em Ter 08 Jul 2014, 00: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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

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

    Mensagem  Fernando Bueno em Ter 08 Jul 2014, 01: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 : 227
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em Ter 08 Jul 2014, 01:16

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

    Grato
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

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

    Mensagem  Fernando Bueno em Ter 08 Jul 2014, 01: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 : 227
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em Ter 08 Jul 2014, 01: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 26 vez(es)
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

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

    Mensagem  Fernando Bueno em Ter 08 Jul 2014, 12: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 59 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.]
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 08 Jul 2014, 14: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 .
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

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

    Mensagem  Fernando Bueno em Ter 08 Jul 2014, 15: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 : 227
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em Ter 08 Jul 2014, 19: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.
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1820
    Registrado : 13/04/2012

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

    Mensagem  Fernando Bueno em Ter 08 Jul 2014, 19: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 : 30/09/2014

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

    Mensagem  soltecitu em Seg 17 Nov 2014, 12:02

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

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Seg 17 Nov 2014, 12: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 : 30/09/2014

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

    Mensagem  soltecitu em Seg 17 Nov 2014, 13: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: Ter 27 Jun 2017, 21:46