looping to delete records

[rwahdan@gmail.com]

Hi,

I am trying to delete records from table when closing the form. I have the code but not sure where i went wrong?

Set rst1 = db1.OpenRecordset("SELECT * FROM grade4MultiAnswers")
    
    rst1.MoveFirst
    Do Until rst1.EOF
    rst1.Edit
    rst1!theanswer = ""
    rst1!iscorrect = 0
    
    rst1.MoveNext
    rst1.Update
    Loop

Thanks

[June7]

Your code is not deleting records from form. It is editing data of a recordset object.

Update before MoveNext

[Minty]

Why loop at all? One update query would achieve this;

Dim sSql as string

sSql = "UPDATE  grade4MultiAnswers SET theanswer = '', iscorrect = 0 "

currentdb.execute sSql, dbSeechanges

[orange]

As others have said, you are not deleting records.
You are updating a table.
You should review basic SQL query types.

SQL will do the job quite efficiently as Minty suggests.