[Resolvido]Formulário fechando

gabrielpn06 19/4/2017, 12:59

gabrielpn06: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 180
Registrado : 17/01/2017

Mensagem nº1

[Resolvido]Formulário fechando

Mensagem gabrielpn06 19/4/2017, 12:59

Bom dia amigos, tenho um pequeno sistema com entrada por meio de login e senha.
Até aí tudo certo, porém quando ponho a senha errada o formulário exibe a caixa de texto sinalizando que coloquei a senha incorreta e em seguida fecha meu formulário.
Gostaria que apenas exibisse a caixa de texto e mudasse o foco para a txt senha.
Podem me ajudar a identificar onde está o erro?
Segue o código que estou usando.

Código:: Dim UserLevel As Integer 'Compara Login e Senha Digitados com os Cadastrados e permite ou não o Login If IsNull(Me.txtUsuario) Then MsgBox ("Por favor, insira seu nome de Usuário"), vbInformation, "Usuário Solicitado" Me.txtUsuario.SetFocus ElseIf IsNull(Me.txtSenha) Then MsgBox ("Usuario e/ou Senha Incorretos"), vbInformation, "Senha Solicitada" Me.txtSenha.SetFocus Else If (IsNull(DLookup("[Usuario]", "Usuarios", "[Usuario] ='" & Me.txtUsuario.Value & _ "'And Senha = '" & Me.txtSenha.Value & "'"))) Then MsgBox ("Usuario e/ou Senha Incorretos"), vbInformation, "Senha Solicitada" Me.txtSenha.SetFocus Else UserLevel = DLookup("NivelSegurança", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'") Select Case UserLevel Case 1 'Admin DoCmd.OpenForm "FrmPrincipal" Case 2 'User/Revisor DoCmd.OpenForm "FrmPrincipal" Case 3 'User DoCmd.OpenForm "FrmFilaUser" Case 4 'User DoCmd.OpenForm "FrmFilaUser" Case 5 'User DoCmd.OpenForm "FrmFilaUser" Case 6 'User DoCmd.OpenForm "FrmFilaUser" Case 7 'User DoCmd.OpenForm "FrmFilaUser" Case 8 'User DoCmd.OpenForm "FrmFilaUser" Case 9 'User DoCmd.OpenForm "FrmFilaUser" Case 10 'User DoCmd.OpenForm "FrmFilaUser" Case 11 'User DoCmd.OpenForm "FrmFilaUser" Case 12 'User DoCmd.OpenForm "FrmFilaUser" Case 13 'User DoCmd.OpenForm "FrmFilaUser" End Select End If End If DoCmd.Close acForm, Me.Name End Sub

CassioFabre 19/4/2017, 13:14

CassioFabre

CassioFabre: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 731
Registrado : 18/01/2013

Mensagem nº2

Re: [Resolvido]Formulário fechando

Mensagem CassioFabre 19/4/2017, 13:14

Bom dia,

Substitua seu codigo por isso.

Dim UserLevel As Integer

'Compara Login e Senha Digitados com os Cadastrados e permite ou não o Login
If IsNull(Me.txtUsuario) Then
MsgBox ("Por favor, insira seu nome de Usuário"), vbInformation, "Usuário Solicitado"
Me.txtUsuario.SetFocus
ElseIf IsNull(Me.txtSenha) Then
MsgBox ("Usuario e/ou Senha Incorretos"), vbInformation, "Senha Solicitada"
Me.txtSenha.SetFocus
Else
If (IsNull(DLookup("[Usuario]", "Usuarios", "[Usuario] ='" & Me.txtUsuario.Value & _
"'And Senha = '" & Me.txtSenha.Value & "'"))) Then
MsgBox ("Usuario e/ou Senha Incorretos"), vbInformation, "Senha Solicitada"
Me.txtSenha.SetFocus

Else
UserLevel = DLookup("NivelSegurança", "Usuarios", "Usuario = '" & Me.txtUsuario.Value & "'")

Select Case UserLevel
Case 1 'Admin
DoCmd.OpenForm "FrmPrincipal"
Case 2 'User/Revisor
DoCmd.OpenForm "FrmPrincipal"
Case 3 'User
DoCmd.OpenForm "FrmFilaUser"
Case 4 'User
DoCmd.OpenForm "FrmFilaUser"
Case 5 'User
DoCmd.OpenForm "FrmFilaUser"
Case 6 'User
DoCmd.OpenForm "FrmFilaUser"
Case 7 'User
DoCmd.OpenForm "FrmFilaUser"
Case 8 'User
DoCmd.OpenForm "FrmFilaUser"
Case 9 'User
DoCmd.OpenForm "FrmFilaUser"
Case 10 'User
DoCmd.OpenForm "FrmFilaUser"
Case 11 'User
DoCmd.OpenForm "FrmFilaUser"
Case 12 'User
DoCmd.OpenForm "FrmFilaUser"
Case 13 'User
DoCmd.OpenForm "FrmFilaUser"

End Select
DoCmd.Close acForm, Me.Name
End If
End If
End Sub

O problema todo é que você colocou a instrução DoCmd.Close fora dos IF, ou seja, ele executa tudo e sai do IF, e quando sai encontra o doCmd.Close ali e o aciona. Alterando da forma que fiz, ele só fechará o formulário atual caso passe por todas as verificações.

Abraço.