Deleting Multiple records using DAO 1

[Joshy]

Ok, I got the following code: (with the DAO 3.6 as reference)

Public Sub DeletingRecords ()

Dim db as Database
Dim rec as Recordset

Set db = CurrentDb ()
Set rec = db.OpenRecordSet ("tblResult&quot

For intX = 1 to 24
rec.Delete
Next

... ...
... ...

rec.Close

End Sub

I get a run time error (at "rec.Delete&quot, the database can't seem to delete more than one record at a time (the records are stored in a table) But I'm trying to delete the records within a 'For... Next' loop, what can I do??
any help would be greatly appreciated
Josh

 

[Rohdem]

You need to add
rec.movenext
to advance to the next record in the recordset. Mike Rohde
rohdem@marshallengines.com