[Resolvido]Login validar niveis de segurança

eu tenho uma tabela com os campos:User, Senha, NivelSegurança
e três formulários:frmAdministrador, frmLogin, frmUsuario
no frmLogin eu tenho os campos usuario e senha e os botões Entrar e Sair
quando eu clico no botão entrar não acontece nada o que pode ser que eu estou errando
ai vai o código:

Option Compare Database
____________________________________________________________________________
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
_____________________________________________________________________________
Private Sub txtUser_AfterUpdate()
Me.txtSenha.SetFocus
End Sub

Boa tarde,
Suponho que sei o que pretende, mas não sei o que tem na tabela, nem o valor introduzido.

Faz um teste, inserindo as linhas abaixo antes da linha End Select:

Código:

Case Else
    MsgBox Identificacao

Amigo eu uso a função Dcount para buscar valores na tabela.. Tente trocar o  DLookup pelo Dcount.. Ou poste seu bd..

Fala Airton!!!!!

O que não faz muito sentido nesse código, é a linha "DoCmd.Close"
Acredito que com este comando, você esteja tentando fechar o formulário atual "frmLogin"!!!!

Caso seja essa a idéia....
Tenta rodar este o código... vamos ver se rola....

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

docmd.close acForm, "frmlogin"
End Sub


Desde já agradeço....

Abraço a todos!!!!

http://maximoaccess.forumeiros.com/t74-login-com-niveis-de-acesso