I have come across some code to walk through the records of a corrupt table
and copy it record by record to a new table.  It comes from the MVPS.Org
site and is as follows.
-----------------------
(Q) How can I recover records from a corrupt table?

(A) First, using Access while in the database window, copy the table's
structure only from the corrupt table, if possible. Then using the code
below, copy each individual row from the old table to the new one until it
encounters an error. The error routine displays the error, skips one row,
moves to the next and Resumes at Addit where it continues to move data from
the old table to the new table one row at a time.
'  ********* Code Start ***********
' This code was originally written by Norm Chezem

' It is not to be altered or distributed,

' except as part of an application.

' You are free to use it in any application,

' provided the copyright notice is left unchanged.

'

' Code Courtesy of

' Norm Chezem

'

Function CopyRes()

 Dim db As Database

 Dim OldRes As Recordset

 Dim NewRes As Recordset

 Dim ErrMsg1 As String

 Dim RecCount As Long

 On Error GoTo err_Proc

 Set db = CurrentDb()

 Set OldRes = db.OpenRecordset("tbl_Reservations")

 Set NewRes = db.OpenRecordset("tbl_New_Res")

 RecCount = 0

 OldRes.MoveFirst

Do While Not OldRes.EOF

Addit:

 NewRes.AddNew

 NewRes![ResID] = OldRes![ResID]

 'CONTINUE COPYING ALL ROWS FROM OLD TBL TO NEW

 NewRes.Update

 RecCount = RecCount + 1

 DoEvents

 If RecCount Mod 10000 = 0 then

   MsgBox RecCount 'Show progress every 10,000 rows

 End If

Loop

 MsgBox RecCount 'Show total successful record count

 OldRes.Close

 NewRes.Close

 db.close

Proc_Exit:

 Exit Function

Err_Proc:

 MsgBox "<Error>" & Error$

 OldRes.MoveNext 'Skip this corrupt row

 Resume Addit    'Continue at Addit

End Function

'  ********* Code End ***********

I have worked out that the NewRes![ResID]=OldRes![ResID] probably has to be
customised to reflect my unique record name.

What happens when I run this is I get an error for each row that occurs
whenever I have a [Required] field and it tells me that it can't be null as
it is a requred field.

I have the procedure in a module and I am simply typing CopyRes in the
Immediate window.  I have changed the table names in it to suit my
situation.  Can anyone see what I am doing wrong?

dixie