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 : 227
    Registrado : 03/05/2012

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

    Mensagem  Jonatan em Seg 07 Jul 2014, 11:37 pm

    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 Seg 07 Jul 2014, 11:53 pm

    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, 12:08 am

    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, 12:16 am

    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, 12:21 am

    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, 12:34 am

    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, 11:58 am

    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 : 2803
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Ter 08 Jul 2014, 1:27 pm

    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, 2:31 pm

    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, 6:16 pm

    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, 6:17 pm

    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 pm

    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 : 2803
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Seg 17 Nov 2014, 12:35 pm

    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, 1:26 pm

    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 26 Maio 2017, 1:40 am