Issue with opening one database from another

[Metric]

Hello,

I have two databases and I'd like a button in one to be able to open the other. I've written this code:

Call Shell ("""C:\Program Files\Microsoft Office\Office16\MSACCESS.EXE"" ""C:Users\me\myfilename.accdb")

This works like a charm to actually open the database but with one issue - the newly opened file is underneath the existing one and therefore not obviously visible to the user. Is there a way to force it to open over top, like a pop up window?

Thanks!

 

[Isaac]

Have you considered using Access automation?

dim accessapp as object

set accessapp=createobject("access.application")

accessapp.opencurrentdatabase("path to database")

You might be able to use AppActivate to activate it, also, check out the WindowStyle argument of Shell

Shell function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

 

[arnelgp]

use code in post#2:

Option Explicit

Dim oAccess As Object

Private Sub yourButton_Click()
    Set oAccess = CreateObject("Access.Application")
    oAccess.OpenCurrentDatabase("C:\users\me\yourDatabaseHere.accdb")
End Sub

 

[Metric]

Have you considered using Access automation?

dim accessapp as object

set accessapp=createobject("access.application")

accessapp.opencurrentdatabase("path to database")

You might be able to use AppActivate to activate it, also, check out the WindowStyle argument of Shell

Shell function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

The WindowStyle details are exactly what I was looking for, thank you!

 

[Isaac]

The WindowStyle details are exactly what I was looking for, thank you!

I'm glad you got it working!