Форумы HiProg.com - MS ACCESS, VBA, VB

ник: osmor
Пример не нашел, набросал как понял
На открытие формы пишите код

Const MENU_NAME = "mnu_open_objects" Dim mnuBar As CommandBar Dim mnuE1 As CommandBarControl Dim mnuE2 As CommandBarControl Dim objAccess As AccessObject On Error Resume Next      Set mnuBar = CommandBars(MENU_NAME)      If Err.Number = 0 Then          CommandBars(MENU_NAME).Delete         Err.Clear      End If               Set mnuBar = CommandBars.Add(Name:=MENU_NAME, Position:=msoBarTop, MenuBar:=True, temporary:=True)                  mnuBar.Protection = msoBarNoCustomize         Set mnuE1 = mnuBar.Controls.Add(Type:=msoControlPopup)         mnuE1.Caption = "Таблицы"         For Each objAccess In CurrentData.AllTables             If objAccess.IsLoaded Then                 Set mnuE2 = mnuE1.Controls.Add(msoControlButton, 1)                 mnuE2.Caption = objAccess.Name             End If         Next         Set mnuE1 = mnuBar.Controls.Add(Type:=msoControlPopup)         mnuE1.Caption = "Формы"          For Each objAccess In CurrentProject.AllForms             If objAccess.IsLoaded Then                 Set mnuE2 = mnuE1.Controls.Add(msoControlButton, 1)                 mnuE2.Caption = objAccess.Name             End If         Next         Set mnuE1 = mnuBar.Controls.Add(Type:=msoControlPopup)         mnuE1.Caption = "Отчеты"          For Each objAccess In CurrentProject.AllReports             If objAccess.IsLoaded Then                 Set mnuE2 = mnuE1.Controls.Add(msoControlButton, 1)                 mnuE2.Caption = objAccess.Name             End If         Next                            Set mnuBar = Nothing mnuBar.Visible = True

Получите меню содержащие открытые формы, таблицы и отчеты