[Resolvido]Erro Script Troca de senha.

Boa noite Senhores..

Olha eu demovo, até peso desculpas mas estou aprendendo VBA agora as vezes da certo, mas as vezes da uns erros que eu não entendo:
Segue em anexo o print Screen das telas do erro:

Desde ja agradeço.

Olá,

Realmente não está muito claro o motivo do erro, seria necessário ter o banco de dados para testes, se possível.

Bom dia Claudio Mas.

Obrigado pelo retorno, segue em anexo o banco de dados e o front end.

Eu aqui de novo;

Amigão olho vivo ae.... 

Você tem

DoCmd.RunSQL "Update tblUsuario Set usuarioSenha='" & txtSenha & "' Where usuarioUsuario='" & txtUsuario & "'"

Mas o nome do campo é senhaUsuario

Bom dia mestre JPaulo..

Me desculpe pela vergonha, deu a mensagem de senha alterada, só que no banco de dados não alterou a senha.

Private Sub cmdAlterarSenha_Click()
If Not IsNull(txtUsuario) Then

If IsNull(txtSenha) Then
MsgBox "Informe senha atual!", vbExclamation, "Sistema para Analises de Sementes - Alterar Senha"
txtSenha.SetFocus
ElseIf IsNull(txtNovaSenha) Then
MsgBox "Informe a nova senha!", vbExclamation, "Sistema para Analises de Sementes - Alterar Senha"
txtNovaSenha.SetFocus
ElseIf IsNull(txtConfirmarSenha) Then
MsgBox "Confirme a nova senha!", vbExclamation, "Sistema para Analises de Sementes - Alterar Senha"
txtConfirmarSenha.SetFocus
ElseIf txtConfirmarSenha <> txtNovaSenha Then
MsgBox "Erro na confirmação da nova senha!", vbExclamation, "Sistema para Analises de Sementes - Alterar Senha"
txtConfirmarSenha.SetFocus
ElseIf verificaLogin(txtUsuario, txtSenha) Then
CurrentDb.Execute "UPDATE tblUsuario Set senhaUsuario='" & Me.txtConfirmarSenha & "' Where nomeUsuario='" & Me.txtUsuario.Column(0) & "'"
MsgBox "Senha alterada com sucesso!", vbInformation, "Sistema para Analises de Sementes - Alterar Senha"
DoCmd.Close
Else
MsgBox "Senha inválida!", vbExclamation, "Sistema para Analises de Sementes - Login"
End If
End If
End Sub

Mestre JPaulo, estou informando a senha atual, a nova senha e a confirmação, só que ele da um loop e me pede para digitar a senha atual novamente.

Você deletou todo o seu código e colou todo o que lhe passei ?

Se não o fez, aconselho a deletar todo e a colar de novo;


Private Sub cmdAlterarSenha_Click()
If Not IsNull(txtUsuario) Then

If IsNull(txtSenha) Then
MsgBox "Informe senha atual!", vbExclamation, "Sistema para Analises de Sementes - Alterar Senha"
txtSenha.SetFocus
ElseIf IsNull(txtNovaSenha) Then
MsgBox "Informe a nova senha!", vbExclamation, "Sistema para Analises de Sementes - Alterar Senha"
txtNovaSenha.SetFocus
ElseIf IsNull(txtConfirmarSenha) Then
MsgBox "Confirme a nova senha!", vbExclamation, "Sistema para Analises de Sementes - Alterar Senha"
txtConfirmarSenha.SetFocus
ElseIf txtConfirmarSenha <> txtNovaSenha Then
MsgBox "Erro na confirmação da nova senha!", vbExclamation, "Sistema para Analises de Sementes - Alterar Senha"
txtConfirmarSenha.SetFocus
ElseIf verificaLogin(txtUsuario, txtSenha) Then
CurrentDb.Execute "UPDATE tblUsuario Set senhaUsuario='" & Me.txtConfirmarSenha & "' Where nomeUsuario='" & Me.txtUsuario.Column(0) & "'"
MsgBox "Senha alterada com sucesso!", vbInformation, "Sistema para Analises de Sementes - Alterar Senha"
DoCmd.Close
Else
MsgBox "Senha inválida!", vbExclamation, "Sistema para Analises de Sementes - Login"
End If
End If
End Sub

O que seriamos de nós sem o mestre JPaulo..

Muito Obrigado JPaulo deu certo..

Mas não entendi o porque do erro se eu copiei o Script que você me passou em um caderno e depois passei para o modulo linha a linha e conferindo uma por uma. E ainda deu este erro.

Mas vou aprender.

Muito Obrigado.

Obrigado pelo retorno o forum agradece.