Thanks for the help Dave, I got it sorted. :)
Now a big problem. I have been working on a large database that I need to submit on Friday at the latest but today when I tried to open it I got the error "AOIndex is not an index in this table." and cannot open the DB.
I googled that and found an apparent fix but dont know how to write the .VBS script properly. Heres what the suggested script is....
=============================================
Const strDB = "C:\MYDATABASE.MDB"
Dim dbConnection
Set dbConnection = CreateObject("ADODB.Connection")
dbConnection.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" &
strDB & ";Uid=Admin;Pwd=;"
dbConnection.Execute "Drop Table MSysAccessObjects"
dbConnection.Close
Set dbConnection = nothing
MsgBox "You should now be able to open the database!"
=======================================================
It said to change the variable for the correct path to the DB. The DB is on a flash drive, drive J: in My Computer.
This is the script I made with the suggestion...
======================================================
Const strDB = "J:\mymusiccollection.MDB"
Dim dbConnection
Set dbConnection = CreateObject("ADODB.Connection")
dbConnection.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" &
strDB & ";Uid=Admin;Pwd=;"
dbConnection.Execute "Drop Table MSysAccessObjects"
dbConnection.Close
Set dbConnection = nothing
MsgBox "You should now be able to open the database!"
=============================================================
When I try to open the DB now I still get the original error.
If I click on the .VBS script I get the following, which may be a clue...
Any clues about the script? where should I store it? and I guess the path is wrong.
Any help greatly appreciated because I just do not have the time to start the DB all over again.
Thanks!
