[Resolvido]Problema no Formulario de Login

Pessoal, alguem consegue achar o problema abaixo?

Tabela TBLUsers
User Senha NivelSeguranca
Joao 1234 1


cx texto Login - txtUser
cx texto Senha - txtSenha
Botao Entrar - cmdEntrar

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 = "formularioinicial"
Case 2
stDocName = "formulariofinal"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, digite novamente a senha.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If
End Sub

Private Sub Detail_Click()
End Sub

Private Sub Form_Open(Cancel As Integer)
End Sub

Private Sub txtSenha_BeforeUpdate(Cancel As Integer)
End Sub

Private Sub txtUser_AfterUpdate()
Me.txtSenha.SetFocus
End Sub

Private Sub txtUser_BeforeUpdate(Cancel As Integer)
End Sub

*** ESSA ROTINA FUNCIONA PERFEITAMENTE ****


O PROBLEMA

Tentei repetir o mesmo codigo para criar uma segunda situação onde depois de logado, para acessar um determinado formulario, o sistema ira pedir uma nova senha, e fiz os seguintes ajustes:

Tabela TBLUsers2
User Senha NivelSeguranca
Joao 5678 1


cx texto Login - txtUser2
cx texto Senha - txtSenha2
Botao Entrar - cmdEntrar2

Private Sub cmdEntrar_Click()
Dim Identificacao As Integer
If Me.txtSenha.Value = DLookup("[Senha]", "]TBLUsers]", "[User] = '" & Me.txtUser2 & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "]TBLUsers]", "[User] = '" & Me.txtUser2 & "'")
Select Case Identificacao
Case 1
stDocName = "formulariogerencial"
Case 2
stDocName = "formulariofinal"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, digite novamente a senha.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha2.Value = ""
Exit Sub
End If
End Sub

Private Sub Detail_Click()
End Sub

Private Sub Form_Open(Cancel As Integer)
End Sub

Private Sub txtSenha_BeforeUpdate(Cancel As Integer)
End Sub

Private Sub txtUser_AfterUpdate()
Me.txtSenha.SetFocus
End Sub

Private Sub txtUser_BeforeUpdate(Cancel As Integer)
End Sub


OBS: QUANDO EXECUTO O SEGUNDO LOGIN, O SISTEMA NAO ENCONTRA A TABELA. ALGUEM SABE COMO POSSO RESOLVER ISSO?

Foi uma falha a copiar o texto ou tem o parentises recto ao contrario?

If Me.txtSenha.Value = DLookup("[Senha]", "]TBLUsers]", "[User] = '" & Me.txtUser2 & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "]TBLUsers]", "[User] = '" & Me.txtUser2 & "'")


Copie estas linhas, substitua no seu código e exeperimente:

If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser2 & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser2 & "'")

Notei que eu esqueci de colocar tambem no codigo a declaração TBLUsers2], mas no codigo esta correto como vc colocou na sua correção, com o acrescimo do 2, mas não rodou....

Ou seja, a declaração esta OK, colocando o algarismo 2 no nome da nova tabela e na extensao dos nomes dos componentes... e Executando não acha a Tabela TBLUsers2...

pode colocar aqui a bd para ver onde anda o erro?

Bom dia Amigo bitabit,

Segue o link para baixar o BD. No mesmo o problema que ocorre é que quando executo o frmlogin, o acesso tem como origem a tabela TBLUsers, mas quando executo a segunda tela de login (ACESSO RESTRITO), a tabela origem deveria ser TBLUsers2, mas não ta dando certo.

http://dl.dropbox.com/u/37315052/Database2.accdb


Abraço

hehehehe, esta era muito facil...

Fizeste uma rasteira a ti proprio.

No segundo Login, colocaste a combobox a ir buscar o user da tabela TBUSERS em vez de TBUSERS2.

Bastou alterar e já esta a funcionar perfeitamente.

Aqui está a db já corrigida:
http://dl.dropbox.com/u/10750210/Database2.accdb

Amigo bitabit,
Mandou muito bem!! Passou batido esse detalhe, mas agora esta ok!!
Muito obrigado!! Abraço!! Bom feriado!!