HELP!!! SERIOUS CRASH - Have been working for 20 hours...

[Torsten Juul Jensen]

Hi,

I desperately need some help!

My Access 97 database which I have been working on for 20 hours crashed this
morning...

When I try to open the MDB, I get the error message "'FILENAME.MDB' isn't an
index in this table. Look in the Indexes Collection of the TableDef object
to determine the valid index names"

Access Repair utility will not help me on this. Have you seen this one or do
you have a suggestion?

Torsten Juul Jensen
Chr. Hansen A/S
E-mail: tjj...@chr-hansen.com

[Lyle Fairfield]

You'll get the regular on this. Get JetComp.EXE from the Microsoft Site and
use it on the corrupted MDB. Usually works!
If not, then try to import the corrupted database's objects into a new one.
That's where I find the advice a little light. My experience is that this
SELDOM works in the interactiveAccess mode but will often work from code as
part of a transfer DataBase sub as below.

After that try PK Solutions. You can find them on the net. They're good and
they have a sense of humour.

Option Compare Database
Option Explicit
Const strMDBFullPath As String = "e:\my documents\access\esp\espapp.mdb"

Sub recovery()
Dim rcs As Recordset, lngType As Long
DoCmd.TransferDatabase acImport, "Microsoft Access", strMDBFullPath,
acTable, _
"MSysObjects", "SysObjects"
Set rcs = CurrentDb().OpenRecordset("SysObjects")
With rcs
Do
Select Case ![Type].Value
Case -32768
lngType = acForm
Case -32766
lngType = acMacro
Case -32761
lngType = acModule
Case 5
lngType = acQuery
Case -32764
lngType = acReport
Case 1
lngType = acTable
Case Else
lngType = 0
End Select
On Error GoTo TDErr:
DoCmd.TransferDatabase acImport, "Microsoft Access",
strMDBFullPath, lngType, _
![Name].Value, ![Name].Value
On Error GoTo 0
.MoveNext
If .EOF Then
Exit Do
End If
Loop
End With
Exit Sub
TDErr:
Debug.Print Err.Description
Debug.Print rcs![Name].Value
Resume Next
End Sub

In article <35dd2...@news4.image.dk>, "Torsten Juul Jensen"
<tjj...@chr-hansen.com> wrote:

>When I try to open the MDB, I get the error message "'FILENAME.MDB' isn't an
>index in this table. Look in the Indexes Collection of the TableDef object
>to determine the valid index names"

Ceterum censeo Carthaginem esse delendam - Cato
As to the rest, I think that Carthage should be destroyed.

[Tony Toews]

"Torsten Juul Jensen" <tjj...@chr-hansen.com> wrote:

>My Access 97 database which I have been working on for 20 hours crashed this
>morning...

I would suggest backups pretty much every day. In fact I move it to a
different directory and compact the MDB back.

>When I try to open the MDB, I get the error message "'FILENAME.MDB' isn't an
>index in this table. Look in the Indexes Collection of the TableDef object
>to determine the valid index names"

Known problem. Do a search at www.microsoft.com and/or jetcomp or see
my website below and download the fix found at "Access 97 Updated
Version of Microsoft Jet 3.5"

Strongly suggest you make a backup of the MDB before attempting any
fixes in case they make it worse.

Tony
----
Message posted to newsgroup and emailed.
Tony Toews, Independent Computer Consultant
The Year 2000 crisis: Will my parents or your grand parents still be receiving
their pension in January, 2000? See www.granite.ab.ca/year2000 for more info.
Microsoft Access Hints, Tips & Accounting Systems at www.granite.ab.ca/accsmstr.htm