I would like to know if there is a way to open a different access database from the existing one, and in doing so, close the existing one.

I will probably use a switchboard button or similar for the user.

Its probably simple but I can't find it....

Thanks

Ha! I always find it as soon as I post....


Dim appAccess As Application

Sub OpenReportDatabase()
Set appAccess = CreateObject("Access.Application")
appAccess.OpenCurrentDatabase "G:\Shipping\OrdersReporting.mdb"
End Sub

You left out this line:

Application.Quit

to close the current database.


mmcdonal

Look it up at: http://wrox.books24x7.com