What do you mean cutting out?

Don't forget to close the database and the record set

Hi Thomas

Either use rs. or rsquery.   Do not mix them. That is your problem. I don't know what your table was but I made one to use with the query.
Check this vba out and modify to your needs

Details

Private Sub testbtn_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Audits", dbOpenDynaset)
While Not rs.EOF

rs.Edit
MsgBox "do something" & " " & rs!id
rs.Update


rs.MoveNext
Wend
Set rs = Nothing
Set db = Nothing
rs.close
db.close
End Sub

HTH
John

Thanks John I'll try that!

Thank you Sami!

John Close the Recordset and Database BEFORE destroying the objects.

Thanks Kevin

Thank you Kevin

Recordsets

Closed recordset and database first
Thanks to Kevin who caught my sloppy paste

Private Sub testbtn_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Audits", dbOpenDynaset)
    While Not rs.EOF
    
        rs.Edit
        MsgBox "do something" & " " & rs!id
        rs.Update
        rs.MoveNext
    Wend
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

End Sub