Help find lost taables!

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a user who can't open her .mde application. She sent me a copy of her
app_be.mdb file, and a group of 30 alphabetically-consecutive tables of a
total of 65 tables are missing. I can't believe they are gone, but can't
figure out how to find them. HELP!
 
open the database to the database window. click Tools | Options | View tab,
and checkmark the boxes next to "Hidden objects" and "System objects. (make
sure you don't do ANYTHING to any table whose name begins with "MSys..." !!)

if you don't see the tables now, i'd say they've been deleted from the
database. do you have any kind of security set up in the backend database to
prevent someone from opening it and deleting tables - whether accidentally
or maliciously?

hth
 
Have you checked to see if the SHOW HIDDEN TABLES property in the
OPTIONS window is selected? It may not be worded as such, but you'll
know which option I'm referring to. Also, open the MSysObjects table and
look for the table names in there. The table contains a list of every
Access object (table, form, query, etc.) in a database. If they're not
there, I would venture that they've been deleted. If the names exist
there and you're not able to view them or the Snoop below fails, I'm
thinking that they're lost.

Also, try this snoop...

Sub snoop()

Dim rs = DAO.RecordSet
Set rs = CurrentDb.OpenRecordset([missingTableName])

stop

rs.close
Set rs = nothing

end snoop

If the SET statement failes, something has gone horribly wrong.

David H
 
I did as you suggested, and the missing table names re-appeared, along with
the System Objects. However, the missing tables have the same icon as the
System Objects, and when I un-clicked the System Objects, the (to me) Hidden
Objects also disappeared. How do I get the missing ones to re-appear and get
them reclassified?

(Needless to say, I really appreciate the help!!!)
 
Try right clicking on a table icon and see if there are any option in
the pop-up window that help. I'm thinking that there's one that sets a
property which indicates that the table should be hidden.
 
First, I opended just the app _be.mdb database and set the check mark on the
Hidden Tables and System Tables. When I closed the options form, both sets
were visible, but the hidden tables listings looked like the system tables.
When I checked just the "System Tables" on and the Hidden Tables off, they
both continued to show. With only Hidden Tables checked, neither showed.

When the tables were visible, I tried to open several, and got the message
"could not read definitions. No read definitions permission for table or
query "tMembers" (table name).

I tried the snoop (after slight revision to make it a public function and
changing the dim statement to "as"). When I entered a table name of a
"visible" table, it completed the function. When I entered a "missing"
table, it gave the message "Records cannot be read; no read permission on
'tMembers'".

What the user told me was that she had completed entering the weekend's
data, then went to back up the table by a drag/drop to another hard drive.
It gave her an error message part-way through the copy process. Thereafter,
she couldn't open the program again because of "The expression On Open you
entered as the Event Property...."

From the size of the app_be.mdb file, I would guess that the tables are
probably still in there, but I can't see how to get at them.

Do you have any further suggestions?
--
Gordon Jones


David C. Holley said:
Have you checked to see if the SHOW HIDDEN TABLES property in the
OPTIONS window is selected? It may not be worded as such, but you'll
know which option I'm referring to. Also, open the MSysObjects table and
look for the table names in there. The table contains a list of every
Access object (table, form, query, etc.) in a database. If they're not
there, I would venture that they've been deleted. If the names exist
there and you're not able to view them or the Snoop below fails, I'm
thinking that they're lost.

Also, try this snoop...

Sub snoop()

Dim rs = DAO.RecordSet
Set rs = CurrentDb.OpenRecordset([missingTableName])

stop

rs.close
Set rs = nothing

end snoop

If the SET statement failes, something has gone horribly wrong.

David H

Gordon said:
I have a user who can't open her .mde application. She sent me a copy of her
app_be.mdb file, and a group of 30 alphabetically-consecutive tables of a
total of 65 tables are missing. I can't believe they are gone, but can't
figure out how to find them. HELP!
Click to expand...
Click to expand...
 
I tried that. There is a "Hidden" attribute box, but the check mark is
grayed-out, and is not able to be changed.
 
Nope. That's beyond my range of experience. However, to prevent this in
the future I would educate your users on the BACKUP DATABASE utility
available from the menu bar. I'm thinking that since its Access-resident
that if a problem did occur, the ramifications wouldn't be as serious.
Tough lesson to learn, but better now than later.
 
I have an "on exit" routine that cascade copies the db to 3 backup tables,
and a dos program that does the same thing. I'm not aware of a Backup
Database utility in Access 2002...??? Tools|Database Utilities| ??? Anyhow,
thanks for taking the time to get me this far.
 
Back
Top