[Resolvido]Fazer update de um sinal Visto, atraves de um botao

Boas Noites Pessoal!
Tenho este codigo VB, que serve para a alteração de Palavra Pass, que por sua vez foi bloqueada e passou a ter um visto na tabela de usuario a dizer que foi bloqueada. Apos nova entrada com senha alterada por Administrador, gostava que quando o User fosse por a sua pass e carrega-se no botao "BoataoAlterar" o visto saisse automaticamente.
Obrigado

Private Sub BotaoAlterar_Click()

If Not IsNull(CaixaLogin) Then

If IsNull(CaixaSenha) Then
MsgBox "Informe senha atual!", vbExclamation, "Alterar Senha"
CaixaSenha.SetFocus
ElseIf IsNull(CaixaNovaSenha) Then
MsgBox "Informe a nova senha!", vbExclamation, "Alterar Senha"
CaixaNovaSenha.SetFocus
ElseIf IsNull(CaixaConfirmarSenha) Then
MsgBox "Confirme a nova senha!", vbExclamation, "Alterar Senha"
CaixaConfirmarSenha.SetFocus
ElseIf CaixaConfirmarSenha <> CaixaNovaSenha Then
MsgBox "Erro na confirmação da nova senha!", vbExclamation, "Alterar Senha"
CaixaConfirmarSenha.SetFocus
ElseIf Me.CaixaSenha.Value = DLookup("[Password]", "[Assistente]", "[User] = '" & Me.CaixaLogin & "'") Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Update Assistente Set Password='" & CaixaNovaSenha & "' Where User='" & CaixaLogin & "'"
DoCmd.SetWarnings True
MsgBox "Senha alterada com sucesso!", vbInformation, "Alterar Senha"
DoCmd.Close
Else
MsgBox "Senha inválida!", vbExclamation, "Login"
End If

End If

End Sub

Tente assim

Private Sub BotaoAlterar_Click()
If MsgBox("A Alterar ?", vbYesNo, "Aviso") = vbNo Then
Me.Visto = -1
Me.Visto = 0
DoCmd.RunCommand acCmdSaveRecord
Else
Me.Visto = 0
Me.Visto = -1
DoCmd.RunCommand acCmdSaveRecord
End If

Boa Noite Assis,
Isso que me deste acrescento, correcto?

Aqui

Private Sub BotaoAlterar_Click()

Tava aqui a olhar para o codigo, mas este nao vai dar resultado, pois esse visto nao se encontra no mesmo formulario.
Esse visto esta somente numa tabela...
Imagina que o Usuario fez um bloqueio na conta e vai agora desbloquear...vai aparecer um formulario de alteração de password e ao clicar ele actualiza a pass e iria actualizar esse visto.
Mais ou menos esta parte do codigo
ElseIf Me.CaixaSenha.Value = DLookup("[Password]", "[Assistente]", "[User] = '" & Me.CaixaLogin & "'") Then
DoCmd.SetWarnings False
DoCmd.RunSQL "Update Assistente Set Password='" & CaixaNovaSenha & "' Where User='" & CaixaLogin & "'"
DoCmd.SetWarnings True
MsgBox "Senha alterada com sucesso!", vbInformation, "Alterar Senha"
Ele aqui faz uma actualização a senha, e o que quero é que faça tambem a um outro campo que nao esta presente.

Nao estaras a falar no botao antes de aparecer este formulario?
é que assim faz sentido

Já esta Assis
Obrigado

Bom dia Sardão

Ainda bem que resolveu, já agora como ?
E obrigado pelo retorno.

Bom dia Assis.
O que eu fiz foi o seguinte. Exactamente o mesmo codigo que me deste, mas no botao que me vai abrir o formulario de alteração da Pass.
Ou seja, no formulario de Prefil aparece um botao "txtPass" e eu inserir ai no evento "Click". Assim quando ele abre o formulario para alteração de password ele faz a alteração do visto.
So fiz uma pequena modificação ao codigo, foi mesmo so os numeros.

If MsgBox("A Alterar ?", vbYesNo, "Aviso") = vbNo Then
Me.Bloq2 = 0
Me.Bloq2 = -1
DoCmd.RunCommand acCmdSaveRecord
Else
Me.Bloq2 = -1
Me.Bloq2 = 0
DoCmd.RunCommand acCmdSaveRecord
End If
On Error GoTo Err_Cmd1_Click