[Resolvido]Confere Senha

Olá, estou tentando fazer a verificação de senhas iguais ao cadastrar novo usuário, mas fiquei trancando no trecho da msg que diz que as "senhas devem ser iguais". Acho que deve ser a ordem do código , mas já inverti, reverti, modifiquei mas ou sai da sub ou fica preso na msg ou até mesmo exibe a msg e também grava. Peço uma ajuda ai...segue o código..

Private Sub cmdGravar_Click()

' nessa primeira parte que estou preso, antes de vInclusao

If (IsNull(Me.txtNomeUsuario) And Me.txtNomeUsuario = "") Or (IsNull(Me.txtSenha) And txtSenha = "") Or (IsNull(Me.txtSenhaConfere) And txtSenhaConfere = "") Then
MsgBox ("Campo Usuário, Senha ou Senha Confere em branco, verifique!!!"), vbCritical + vbOKOnly, "Campos Obrigatórios"
'Exit Sub
Me.txtNomeUsuario.SetFocus

ElseIf txtSenha <> txtConfereSenha Then
MsgBox (" O valor digitado nos campos Senha e SenhaConfere devem ser iguais, tente novamente!!"), vbCritical + vbOKOnly, "Senha Incorreta"

txtSenha.SetFocus
Exit Sub
End If

If vInclusao = True Then


'---------------------------------------------------------------------------------------------------
CurrentDb.Execute "Insert into tbUsuario (NomeUsuario, Senha, SenhaConfere, CodNivelSeguranca) VALUES ('" & txtNomeUsuario & "','" & txtSenha & "','" & txtSenhaConfere & "'," & ComboNivel & ")"

MsgBox ("Registro Salvo com Sucesso!!"), vbInformation, "Inclusão de Registro"
LimpaCampos
Forms!frmCadUsuario!ListBox1.Requery
DesabilitaCampos
HabilitaCmd
Me.ListBox1.Enabled = True
Else


CurrentDb.Execute "UPDATE tbUsuario SET NomeUsuario='" & Me.txtNomeUsuario & "', Senha='" & Me.txtSenha & "',SenhaConfere='" & Me.txtSenhaConfere & "' ,codNivelSeguranca=" & Me.ComboNivel & " where codUsuario=" & Me.txtCodUsuario

MsgBox ("Registro Atualizado com Sucesso!!"), vbInformation, "Atualização de Registro"

LimpaCampos
Forms!frmCadUsuario!ListBox1.Requery
DesabilitaCampos
HabilitaCmd
Me.ListBox1.Enabled = True
End If

End Sub

ALAN

tente assim:

Código:

If IsNull(txtNomeUsuario) then

MsgBox ("Campo Usuário, Senha ou Senha Confere em branco, verifique!!!"), vbCritical + vbOKOnly, "Campos Obrigatórios"
'Exit Sub
Me.txtNomeUsuario.SetFocus

elseif IsNull(txtSenha) then

MsgBox ("Campo Usuário, Senha ou Senha Confere em branco, verifique!!!"), vbCritical + vbOKOnly, "Campos Obrigatórios"
'Exit Sub
Me.txtNomeUsuario.SetFocus

elseif IsNull(txtSenhaConfere) then

MsgBox ("Campo Usuário, Senha ou Senha Confere em branco, verifique!!!"), vbCritical + vbOKOnly, "Campos Obrigatórios"
'Exit Sub
Me.txtNomeUsuario.SetFocus

ElseIf txtSenha <> txtConfereSenha Then

MsgBox (" O valor digitado nos campos Senha e SenhaConfere devem ser iguais, tente novamente!!"), vbCritical + vbOKOnly, "Senha Incorreta"

txtSenha.SetFocus

else


If vInclusao = True Then


'---------------------------------------------------------------------------------------------------
CurrentDb.Execute "Insert into tbUsuario (NomeUsuario, Senha, SenhaConfere, CodNivelSeguranca) VALUES ('" & txtNomeUsuario & "','" & txtSenha & "','" & txtSenhaConfere & "'," & ComboNivel & ")"

MsgBox ("Registro Salvo com Sucesso!!"), vbInformation, "Inclusão de Registro"
LimpaCampos
Forms!frmCadUsuario!ListBox1.Requery
DesabilitaCampos
HabilitaCmd
Me.ListBox1.Enabled = True
Else


CurrentDb.Execute "UPDATE tbUsuario SET NomeUsuario='" & Me.txtNomeUsuario & "', Senha='" & Me.txtSenha & "',SenhaConfere='" & Me.txtSenhaConfere & "' ,codNivelSeguranca=" & Me.ComboNivel & " where codUsuario=" & Me.txtCodUsuario

MsgBox ("Registro Atualizado com Sucesso!!"), vbInformation, "Atualização de Registro"

LimpaCampos
Forms!frmCadUsuario!ListBox1.Requery
DesabilitaCampos
HabilitaCmd
Me.ListBox1.Enabled = True

End If

End Sub

=>Nois, conforme o código que tu sugeriu também exibiu a msg de senhas diferentes,OK, mas o código seguiu e gravou mesmo assim. Preciso que informe o usuário para que seja corrigido, e só depois seguir para incluir ou editar o registro. Seguimos na luta.....

ALAN

tente essa alteração

Código:

If IsNull(txtNomeUsuario) then

MsgBox ("Campo Usuário, Senha ou Senha Confere em branco, verifique!!!"), vbCritical + vbOKOnly, "Campos Obrigatórios"

Me.txtNomeUsuario.SetFocus
Exit Sub

elseif IsNull(txtSenha) then

MsgBox ("Campo Usuário, Senha ou Senha Confere em branco, verifique!!!"), vbCritical + vbOKOnly, "Campos Obrigatórios"

Me.txtNomeUsuario.SetFocus
Exit Sub

elseif IsNull(txtSenhaConfere) then

MsgBox ("Campo Usuário, Senha ou Senha Confere em branco, verifique!!!"), vbCritical + vbOKOnly, "Campos Obrigatórios"

Me.txtNomeUsuario.SetFocus
Exit Sub

ElseIf txtSenha <> txtConfereSenha Then

MsgBox (" O valor digitado nos campos Senha e SenhaConfere devem ser iguais, tente novamente!!"), vbCritical + vbOKOnly, "Senha Incorreta"

txtSenha.SetFocus
Exit Sub


else



'---------------------------------------------------------------------------------------------------
CurrentDb.Execute "Insert into tbUsuario (NomeUsuario, Senha, SenhaConfere, CodNivelSeguranca) VALUES ('" & txtNomeUsuario & "','" & txtSenha & "','" & txtSenhaConfere & "'," & ComboNivel & ")"

MsgBox ("Registro Salvo com Sucesso!!"), vbInformation, "Inclusão de Registro"
LimpaCampos
Forms!frmCadUsuario!ListBox1.Requery
DesabilitaCampos
HabilitaCmd
Me.ListBox1.Enabled = True
Else


CurrentDb.Execute "UPDATE tbUsuario SET NomeUsuario='" & Me.txtNomeUsuario & "', Senha='" & Me.txtSenha & "',SenhaConfere='" & Me.txtSenhaConfere & "' ,codNivelSeguranca=" & Me.ComboNivel & " where codUsuario=" & Me.txtCodUsuario

MsgBox ("Registro Atualizado com Sucesso!!"), vbInformation, "Atualização de Registro"

LimpaCampos
Forms!frmCadUsuario!ListBox1.Requery
DesabilitaCampos
HabilitaCmd
Me.ListBox1.Enabled = True

End If

End Sub

Com o código da ultima msg o código faz a verificação, exibe msg que as senhas são diferentes aponta o foco para o campos para digitar novamente, só que fica trancado na mensagem de campos senha diferente. Mesmo se digitar as senhas iguais como deve ser, para na msg dizendo que as senhas não são iguais. Vou adiante até sair dessa...Enquanto isso vou tentar outras formas....

ALAN

=>Nois, corrigindo, deu certo o último código que passaste, achei que não havia dado certo, mas tinha um campo que digitei invertido anteriormente. Sendo assim, RESOLVIDO....

ALAN

obrigado pelo retorno.