Ive tried everything I can think of to solve my problem and using help from another has solved my problem. They have been very help but nothing has help.
Im hoping that some here might have to solution.
Im trying to compact my DB but Im getting a corrupt record somewhere, at least I think its a record. After attempting to compact a copy of DB is place in the same folder and the error code is 1611.
I made a copy of the DB and try to delete the tables one by one then tried to compact after each table was deleted. Still I couldnt compact. Hmmm
Im using A97 and get desperate for a solution because my DB is bloating a rediculeous size.
I tried using the following code supplied by R Hicks but It didnt help me. Im sure the code is fine but it just didnt me in this case. Im adding the code in case anyone might like to use it to find corrupt records.
Private Sub Command0_Click()
Dim MyDB As DAO.Database
Dim myset As DAO.Recordset
Dim myPrimaryKeyID As String
Dim myCurrentField As Variant
Dim myFieldCount As Long
Dim i As Long
Set MyDB = CurrentDb
Set myset = MyDB.OpenRecordset("tblreferrals")
myFieldCount = .Fields.Count - 1
Do Until .EOF
i = 0
myPrimaryKeyID = .Fields(0)
For i = 0 To myFieldCount Step 1
myCurrentField = myset.Fields(i)
Set myset = Nothing
Set MyDB = Nothing