[Resolvido]Erro em Case

Boa tarde,

O que esta errado??

Private Sub cmdEntrar_Click()
Dim Identificacao As String

If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao
Case adm
DocName = "frmAdministrador"
Case usu
DocName = "frmUsuario"
End Select
DoCmd.OpenForm DocName
DoCmd.Close

Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

End Sub

Mostra erro na linha em vermelho. campos todos texto na tabela.

Qual é a mensagem de erro?

Verifique se não existe outros níveis de usuários, pois acho que se vc colocar um case else resolve.

Private Sub cmdEntrar_Click()
Dim Identificacao As String

If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao
Case adm
DocName = "frmAdministrador"
Case usu
DocName = "frmUsuario"
case else
msgbox"Nível invalido!"
exit sub
End Select

DoCmd.OpenForm DocName
DoCmd.Close

Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

End Sub

Bom dia criquio, a mensagem é "erro de compilação: End If sem bloco If.

Bom dia topbr, tentei colocar case else mas o erro continua o mesmo.


Att,

Com a permissão de todos !

Bom dia !

Veja se esse "erro de compilação: End If sem bloco If.,não está sendo gerado por algum outro formulário que esta sendo aberto.

Outra dica, use a depuração total, com certeza saberá onde está o erro.

Abraços a todos.

Mudando e testando, mudei o código para fazer o procedimento na saida da combox Senha e fiz alterações para ver se funfa, o problema é que agora não da erro mais também não funfa o case.

Private Sub Senha_Exit(Cancel As Integer)
On Error Resume Next
If Me!Senha = Me!cboUsuário.Column(2) Then

Forms![Principio 2]!OLENãoAcoplado61.Visible = True
Forms![Principio 2]!OLENãoAcoplado72.Visible = True
Forms![Principio 2]!OLENãoAcoplado73.Visible = True
Forms![Principio 2]!OLENãoAcoplado75.Visible = True
Forms![Principio 2]!OLENãoAcoplado70.Visible = False
Forms![Principio 2]!cboUsuário.Visible = False
Forms![Principio 2]!Senha.Visible = False

Dim Identificacao As String
If Identificacao = DLookup("[Grupo]", "[tblusuario]", "[Usuario] = '" & Me.Senha & "'") Then

Select Case Identificacao

Case "Administrador"
Forms![Principio 2]!Caixa6.Visible = True
Forms![Principio 2]!Caixa7.Visible = True
Forms![Principio 2]!btConfiguracao.Visible = True

Case "Supervisor"
Forms![Principio 2]!Caixa6.Visible = True
Forms![Principio 2]!Caixa7.Visible = True
Forms![Principio 2]!btConfiguracao.Visible = True

Case Else
Forms![Principio 2]!Caixa6.Visible = False
Forms![Principio 2]!Caixa7.Visible = False
Forms![Principio 2]!btConfiguracao.Visible = False
End Select

End If
End If
End Sub

onde esta o erro??

Att,

Algumas verificações a serem feitas.

Se a senha for diferente de Me!cboUsuário.Column(2), não vai entrar no Select Case.

If Identificacao = DLookup("[Grupo]", "[tblusuario]", "[Usuario] = '" & Me.Senha & "'") Then

Nesse momento, Identificacao está vazio, então o teste acima não faz sentido, e nunca entra no Select Case.

Nesse mesmo teste, está comparando [Usuario] com Me.Senha. É isso mesmo?

Boa tarde a todos,

Cláudio Más, Fiz a alteração do [Usuario] com Me.Senha. , para [Usuario] com Me.cbousuario, mas continuou do mesmo jeito.

Segue bd para melhor visualizarem e me auxiliar, o código VBA tem de funcionar para que o botão "manutenção" fique visível somente quando o usuário for administrador ou supervisor e a senha for corretamente a senha deste usuário.

Att,

Altere a linha abaixo:

If Identificacao = DLookup("[Grupo]", "[tblusuario]", "[Usuario] = '" & Me.Senha & "'") Then

para:

Identificacao = DLookup("[Grupo]", "[tblusuario]", "[id_usuario] = " & Me.cboUsuário)

Bom dia a todos,

Claudio não funcionou.

Att,

Up

Funcionou sim.

É que o Select Case está verificando os grupos "Administrador" e "Supervisor".
Só que na tabela os nomes dos grupos são "Administradores" e "Supervisores".

Ou corrige o código, ou altera os nomes dos grupos na tabela.

Bom dia Claudio, desculpe, vc esta certo, que vergonha. rsrsrs

Resolvido, muito obrigado a todos.


Att,