Edit a preexisting database using RecordSets

[Philosophaie]

Set up a database and recordset that works in Excel 2007.
Error in rs.Edit.
Does .Edit need a separate Tools>References that I do not already have?
Or how do you edit a preexisting database using RecordSets?

    rs.MoveFirst
    Do Until rs.EOF
       If rs!Index = "106" Then
          rs.Edit
          rs!AmtPaid = "500"
          rs.Update
       End If
       rs.MoveNext
    Loop

[pbaldy]

If it gets to that point, I'd guess the recordset was opened on a read only source, or was opened in read only mode. By the way, an update query would be far more efficient than a loop.

[DepricatedZero]

the RecordSet should be declared from a Database object. Set the database to the preexisting DB, like so

Private Sub EditExternalDB()
   Dim db as DAO.Database
   Dim rs as DAO.Recordset

   Set db = OpenDatabase("C:\Path\Example.accdb")
   Set rs = db.OpenRecordset("QueryName")

   
   rs.MoveFirst
   Do Until rs.EOF
      If rs!Index = "106" Then
          rs.Edit
          rs!AmtPaid = "500"
          rs.Update
       End If
       rs.MoveNext
   Loop
   rs.close
   db.closeEnd Sub

What's the error that you're getting?

[Philosophaie]

Neglected in putting in my db and rs but they work.
Getting an error in rs.Edit it would not debug in Excel 2007 or Excel 2010.
Found it in the MSDN website but it did not say if it needed any extra references other than DAO and ActiveX.