locked
Erro 424 O Objeto é Obrigatório RRS feed

  • Pergunta

  • 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?

    terça-feira, 13 de novembro de 2007 11:39

Todas as Respostas

  • 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()

     

     

    quinta-feira, 15 de novembro de 2007 05:05
    Moderador