[Resolvido]Formulario de Login

Olá Pessoal,

Estou precisando de uma ajuda o código abaixo de do mestre Jpaulo, gostaria de saber se podemos e como podemos adaptar esse código para o Administrador poder abrir qualquer formulario e o usuário abrir somente os que for definido.
Private Sub cmdEntrar_Click()
Dim Identificacao As Integer

If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
stDocName = "frmAdministrador"
Case 2
stDocName = "frmUsuario"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

End Sub

Não tem mais uma parte de código para abrir o formulário de acordo o tipo de usuário? Ao que parece, existe um formulário para administrador e outro para usuário, então talvez fosse o caso de alterar algo assim:

Dim Identificacao As Integer

If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
DoCmd.OpenForm "frmAdministrador"
Case 2
DoCmd.OpenForm "frmUsuario"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

Olá Criquio,

Nesse exemplo existem 2 formularios 1 para Administrador e outro para Usuário, o que pensei talvez fosse possível criar um campo em cada formulário ou tabela para fazer referencia com o código de nível de acesso, ou seja se eu tiver um campo com nivel 1 esse campo seria invisível para o usuário ele não conseguiria abrir o form, já se eletiver o nível 2 ele poderá abrir o formulário só que eu não sei como fazer isso talvez um módulo global.
Será que pode ??

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.