MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Confere Senha

    Compartilhe

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 25/07/2017

    [Resolvido]Confere Senha

    Mensagem  alantb em 6/3/2018, 15:00

    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
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 756
    Registrado : 09/11/2012

    Re: [Resolvido]Confere Senha

    Mensagem  =>Nois em 6/3/2018, 15:45

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 25/07/2017

    Re: [Resolvido]Confere Senha

    Mensagem  alantb em 6/3/2018, 16:35

    =>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
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 756
    Registrado : 09/11/2012

    Re: [Resolvido]Confere Senha

    Mensagem  =>Nois em 6/3/2018, 18:36

    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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 25/07/2017

    Re: [Resolvido]Confere Senha

    Mensagem  alantb em 6/3/2018, 19:40

    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

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 25/07/2017

    Re: [Resolvido]Confere Senha

    Mensagem  alantb em 7/3/2018, 00:34

    =>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
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 756
    Registrado : 09/11/2012

    Re: [Resolvido]Confere Senha

    Mensagem  =>Nois em 7/3/2018, 11:56

    cheers obrigado pelo retorno.


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: 23/10/2018, 15:30