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

  • Novo Tópico
  • Responder ao tópico

[Resolvido]Formulário para Alterar Senha

Compartilhe
avatar
Gleilsonblensh
Novato
Novato

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 49
Registrado : 02/07/2018

[Resolvido]Formulário para Alterar Senha

Mensagem  Gleilsonblensh em 15/10/2018, 12:29

Ola a todos, criei um sisteminha básico  aqui no trabalho onde o usuário faz login com senha, preciso fazer uma forma de cada usuário alterar sua senha não sei como, ja tentai algumas formas e quando o o usuário altera cria outro com o mesmo nome e a senha nova, alguém pode me dar um help, tentei postar o bd aqui não consegui segue link dele no drive.

https://drive.google.com/file/d/1PtFb1EpEdmjB2LRURnTMMSpzMT0FfL7c/view?usp=sharing


FabioGO
Intermediário
Intermediário

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 87
Registrado : 22/08/2012

Re: [Resolvido]Formulário para Alterar Senha

Mensagem  FabioGO em 15/10/2018, 17:20

Fiz um modelo em cima do seu, veja se atende o que precisa.

Após digitar o campo de confirmação de senha no form_mudasenha, se estiver tudo certo ele atualiza na tabela de usuários.

Para fazer essa atualização, tem que entrar com o usuário logado.
Anexos
Bkp_SiCoL_1110201809.zip
Você não tem permissão para fazer download dos arquivos anexados.
(1.7 Mb) Baixado 8 vez(es)
avatar
Gleilsonblensh
Novato
Novato

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 49
Registrado : 02/07/2018

Re: [Resolvido]Formulário para Alterar Senha

Mensagem  Gleilsonblensh em 15/10/2018, 18:56

FabioGO obrigado pela ajuda, vou testar e posto se deu bom.
avatar
Gleilsonblensh
Novato
Novato

Respeito às Regras 100%

Sexo : Masculino
Localização : Brasil
Mensagens : 49
Registrado : 02/07/2018

Re: [Resolvido]Formulário para Alterar Senha

Mensagem  Gleilsonblensh em 15/10/2018, 19:12

Caramba FabioGo Isso meso cara perfeito, obrigado pela ajuda, vou agora só dar uma melhorada no form visivelmente e o código que você fez coloquei em um botão junto com o comando pra fechar o formulário. vou colocar como resolvido!
pra futuras pesquisas segue o código:

If Me.SENHA = Me.CONF_SENHA Then
CurrentDb.Execute "UPDATE tblCadUSer SET [SENHA]='" & Me.SENHA & "',[CONF_SENHA]='" & Me.CONF_SENHA & "' WHERE [USUARIO]= '" & strUser & "'"
MsgBox "Senha alterada com sucesso"
ElseIf Me.SENHA = Null Or Me.SENHA = "" Then
MsgBox "Digite uma senha válida"
Me.SENHA.SetFocus
ElseIf Me.CONF_SENHA = Null Or Me.CONF_SENHA = "" Then
MsgBox "Digite a senha para confirmação"
Me.CONF_SENHA.SetFocus
ElseIf Me.SENHA <> Me.CONF_SENHA Then
MsgBox "Senha e confirmação de senha não coincide"
Me.SENHA.SetFocus
End If
docmd.close
  • Novo Tópico
  • Responder ao tópico

Data/hora atual: 18/1/2019, 00:00