Tenho um formulário para que o usuário possa trocar a própria senha. O código é o seguinte:
Dim TabSenhas As DAO.Recordset
'Set TabSenhas = DBEngine(0)(0).OpenRecordset("Senhas")
Set TabSenhas = db.OpenRecordset("SELECT * FROM Senhas WHERE Usuário = '" & UsuárioAtual & "'")
With TabSenhas
.Edit
'.Seek "=", Usuário
'!Usuário = UsuárioAtual
!Senhasis = CripSenha(Senhasis)
'!Grupo = Grupo
.Update
End With
TabSenhas.Close
Set TabSenhas = Nothing
a = MsgBox("Usuário alterado com sucesso!", vbInformation)
DoCmd.Close acForm, Me.Name
Acontece que quando clica-se no botão alterar senha aparece a mensagem: erro 424 o objeto é obrigatório.
Alguém que já passou por isso sabe como resolver este problema?