Multiple databases joined together in one form (1 Viewer)

mounty76

Registered User.
Local time
Today, 10:45
Joined
Sep 14, 2017
Messages
341
Hello!

I have 5 databases that I would like to use in a management system, they are all different in terms of content but I would like to make one form on one database that acts as a main menu to open up the individual databases at the click of a button.

I've seen quite a bit of code online to do it but the below code is only opening the db in a small window size, any ideas on how to open it up at maximum window size?

Also does anyone have any better ideas for doing this?

Private Sub Command6_Click()


Dim accessApp
Set accessApp = CreateObject("Access.Application")
accessApp.Visible = True

accessApp.UserControl = True

accessApp.OpenCurrentDatabase ("C:\A Folder\mydb.accdb")


End Sub


Many Thanks
 

Minty

AWF VIP
Local time
Today, 18:45
Joined
Jul 26, 2013
Messages
10,366
Add the following to your code ;

Code:
Private Sub Command6_Click()


Dim accessApp
Set accessApp = CreateObject("Access.Application")
accessApp.Visible = True

accessApp.OpenCurrentDatabase ("C:\A Folder\mydb.accdb")
[COLOR="Red"]accessApp.UserControl = True
accessApp.RunCommand acCmdAppMaximize[/COLOR]

End Sub
 

MajP

You've got your good things, and you've got mine.
Local time
Today, 13:45
Joined
May 21, 2018
Messages
8,525
Not sure if you are interested, but there is a way to open forms, reports, and queries from other databases in just one database. So instead of opening 5 different db applications you open only one.
 
Last edited:

Users who are viewing this thread

Top Bottom