MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Confere Senha

    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Confere Senha Empty [Resolvido]Confere Senha

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Confere Senha Empty Re: [Resolvido]Confere Senha

    Mensagem  =>Nois 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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Confere Senha Empty Re: [Resolvido]Confere Senha

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Confere Senha Empty Re: [Resolvido]Confere Senha

    Mensagem  =>Nois 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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Confere Senha Empty Re: [Resolvido]Confere Senha

    Mensagem  alantb 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
    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Confere Senha Empty Re: [Resolvido]Confere Senha

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Confere Senha Empty Re: [Resolvido]Confere Senha

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

    cheers obrigado pelo retorno.


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

    Conteúdo patrocinado


    [Resolvido]Confere Senha Empty Re: [Resolvido]Confere Senha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:02