Open;CloseCurrentDatabase

Hi,
How can i close the current database and open another one in the same window? i have tried using opencurrentdatabase and closecurrentdatabase but i just can't seem to get it. Any help would be great.
LVL 2
JambyteAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

ramromconsultant Commented:
Help says:
"You can use the OpenCurrentDatabase method to open an existing database as the current database. You can use this method to open a database from another application that is controlling Microsoft Access through Automation, formerly called OLE Automation. For example, you can use the OpenCurrentDatabase method from Microsoft Excel to open the Northwind sample database in the Microsoft Access window."
The key thing here that this method works when you are controlling Access from another application. It sounds like you want the access session itself to close one database and open another.

One way to do what you want is:

Sub Switch_To(new_mdb)
  SendKeys "%{f}c%{f}o" & new_mdb & ".mdb{enter}"
End Sub

Call this sub with the name of the .meb file you want to open, e.g. Switch_To "sales"

0
JambyteAuthor Commented:
I would rather not use sendkeys, its kind of slopy, do you know of another way?
0
ramromconsultant Commented:
Sloppy? what does that mean? IF it works, why not use it?

I know of no other way within access. Consider that access is only functional when an mdb file is open in it. There is very little that can be done with no mdb open. The only way I know is to use sendkeys as illustrated or some other 3rd party macro player such as tempo.
0
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

JambyteAuthor Commented:
is there a way to open a new database in a new window and then close the current database and window? programicaly? (w/o sendkeys)
0
ramromconsultant Commented:
Sub OpenDB(path) ' your pathname may vary
  Shell pathname:="c:\office97\office\msaccess.exe" & " " & _
  Chr(34) & path & Chr(34), windowstyle:=1
  Application.Quit
End Sub

Sub test()
  OpenDB "c:\foo\bar.mdb"
End Sub

0
TrygveCommented:
ramrom: I don't think Jambyte ment to offend you in any way. Sendkeys are sloppy programming because it makes your code depend on the user not touching the computer till the keys has done their job. My experience is that a lot of users get impatient and start cliking and typing "to see what happened" if the program does not appear to do anything. This could make the keys getting sent to the wrong destination (speaking from experience).

There is almost always a way around using the sendkeys approach; docmd domenuitem ... and in Access'97 docmd.runcommand ... But sometimes there is no way around and then we have to cross our fingers and hope that the user does not manage to interfer with the process.

Have a nice day !
0
JambyteAuthor Commented:
any other way?
0
peroveCommented:
Jambyte,
Somtimes ago i had the same problem. I worked a lot on it.And the only way I found was to use sendkeys.
perove
0
jtbCommented:
Have you tried this?

Dim acc As Object
Set acc = CreateObject("Access.Application.7")
acc.OpenCurrentDatabase "C:\MYDB.MDB"
Stop

Now your database is open, have a look.  If you want it to stay open, you should open a form or something.

acc.Docmd.openform "Formname"

Hope this helps,
jtb
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
kodiakbearCommented:
Fixed the -1 problem on this question.
Escrow points corrected.

kb
Community Support Moderator
Experts Exchange
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.