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

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.

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

Legal, tinha duas ideias pra te dar...

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

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

Grato

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.

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

Segue o BD.

Grato

Bom dia Jonatan, realmente não aceitou ponto mais veja se te serve dessa forma.

Jonatan

Gostaria de um Acesso a nivel de grupo mais elaborado?

Aqui tem um  exemplo

Bom estudo

Noob

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.

http://maximoaccess.forumeiros.com/t19232-resolvidosistema-de-login-e-ribbons

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.

Ok, agradecemos pelo retorno.

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

João

O que é que não entende?


Noob

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