I have three databases on my server. I have created buttons on my main page
that open another databse from the one I was in, however It dise not close
the original database I was in when it transfers. It remains open behind the
new database. Can I close the orginal database once I have transfered to the
new one.
Help anyone.

Signature
Lisa S.
J - 04 Jun 2007 20:31 GMT
'After your lines of code that open the other database,
Application.CloseCurrentDatabase
~J
> I have three databases on my server. I have created buttons on my main page
> that open another databse from the one I was in, however It dise not close
[quoted text clipped - 4 lines]
> --
> Lisa S.
Lisa - 12 Jul 2007 13:42 GMT
That does not work. Access closes and does not reopen

Signature
Lisa S.
> 'After your lines of code that open the other database,
> Application.CloseCurrentDatabase
[quoted text clipped - 9 lines]
> > --
> > Lisa S.
MacDermott - 12 Jul 2007 16:07 GMT
You might want to try this utility:
http://www.trigeminal.com/utilities/TsiSoon90.zip
The website is a little dated, so I don't know if it will work with your
version of Access.
HTH
> That does not work. Access closes and does not reopen
>
[quoted text clipped - 15 lines]
>> > --
>> > Lisa S.
Lisa - 12 Jul 2007 17:00 GMT
That will not work I need a more updated version. Any other ideas.

Signature
Lisa S.
> You might want to try this utility:
> http://www.trigeminal.com/utilities/TsiSoon90.zip
[quoted text clipped - 23 lines]
> >> > --
> >> > Lisa S.
Lisa - 24 Jul 2007 13:30 GMT
I have 3 databases and I would like to move from one database to another
without closing access. I have been able to do so with 2 of my databses but
not with the third. I have ctrated buttons on my main page. when you click
one database closes and another one opens. Below is the code I used in VBA to
create the button to work. One works and the other does not.
If you have any other suggestions great.
Please help.
This one does not work.
Private Sub cmdGoToVelocityDatabase_Click()
Dim app As Access.Application
Set app = New Access.Application
app.OpenCurrentDatabase "S:\Product Info\Velocity\Velocity.mdb"
app.Visible = True
DoCmd.Close acForm, "frmMain"
End Sub
This one does work.
Private Sub cmdGoToGiftCardDatabase_Click()
Dim app As Access.Application
Set app = New Access.Application
app.OpenCurrentDatabase "S:\Database\Gift Cards.mdb"
app.Visible = True
DoCmd.Close acForm, "frmMain"
End Sub
I also have a macro that exits access on the button.

Signature
Lisa S.