Erro 424 O Objeto é Obrigatório

Question

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?

Answer 1

Você não disse em qual linha ocorreu o erro, mas imagino que seja na db.OpenRecordset, já que não declarou nenhum objeto de nome db:

 

Dim db As DAO.Database

Set db=CurrentDB()