Problem with a MoveLast command

[GavC]

I was using this code successfully to move to the last recordset in an Access table

Set rsStudents = dbSJS1.OpenRecordset("Students", dbOpenTable)
rsStudents.MoveLast
txtIDNumber = rsStudents("ID Number&quot + 1

(to display what the current record will be numbered, once Updated), when out of the blue it won't move past record 77, even though I now have 85 records. Now it tells me each new record will be numbered 78, even though AutoNumber is still adding new records with no problem.

Does anyone know why this is?
Thanks,
Gav.

 

[Imhoteb]

Did you try to refresh the recordset before you go to the last record?

Set rsStudents = dbSJS1.OpenRecordset("Students", dbOpenTable)
rsStudents.Requery
rsStudents.MoveLast

Hope this helps

 

[GavC]

I found the answer to this problem.
Tools>Database Utilities>Repair Database &
Tools>Database Utilities>Compact Database
Which clears any dead or malfunctioning records from the database.