Thread: Menu System

Originally Posted by Henley12

I am looking to build a menu system that will list all my databases and allow me to click to open whichever I choose. Can someone point me in the right direction?

Although that's possible, I wouldn't advise that you try to do that, for several reasons. First, you must realize that Access can only have one database open at a time, so as soon as you chose a database, the application which the menu is in would be closed, so you couldn't return to it; then, how would you find "all" your databases? You could put them all in one directory, I suppose, but that's generally not a good way to organize your hard drive.

I would suggest that you focus on either using Windows Explorer or possibly a Windows Scripting Host (WSH) script that presents a menu of all files with ".mdb" extension. I would not attempt to do it from within Access.

Originally Posted by Henley12

That's not exactly true. At least, in Access 2007, I can have more than one database open at the same time.

Yes, I was going to say the same thing. What is true is that any one INSTANCE of Access can only have one database open at any one time but you can open another instance of Access to do it.

Sample code for you to open from a combo box if the bound field is the full path and name of the database:

Code:

Function OpenNewDatabase(strDatabase As String)
    Dim appAcc As Access.Application
    
    Set appAcc = New Access.Application
    appAcc.Visible = True
    
    appAcc.OpenCurrentDatabase (strDatabase)
    appAcc.UserControl = True
    
End Function

code for the combo box's after update event:

Code:

OpenNewDatabase Me.ComboBoxNameHere

try this link

Originally Posted by http://hubpages.com/hub/MS_Access_Tips_Maximize_MS_Access_Window

Call this function in autoexec macro for example:


Function AccessMaximize()

AccessMaximize = ShowWindow(GetAccesshWnd(), SW_MAXIMIZE)

End Function

where GetAccesshWnd is defined by:


Function GetAccesshWnd()

Dim hWnd As Integer

Dim hWndAccess As Integer


' Get the handle to the currently active window.

hWnd = GetActiveWindow()

hWndAccess = hWnd


' Find the top window without a parent window.

While hWnd <> 0

hWndAccess = hWnd

hWnd = GetParent(hWnd)

Wend


GetAccesshWnd = hWndAccess


End Function



which uses these declarations:

Declare Function GetActiveWindow Lib "User32" () As Integer

Declare Function GetParent Lib "User32" (ByVal hWnd As Integer) As Integer


Declare Function ShowWindow% Lib "User32" (ByVal hWnd%, ByVal nCmdShow%)


Global Const SW_MAXIMIZE = 3

Global Const SW_SHOWNORMAL = 1

Global Const SW_SHOWMINIMIZED = 2

Hope this helps!