Multiple databases joined together in one form

[mounty76]

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]

Add the following to your 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]

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.