| |
|
|
| | Народ подскажите, направьте, подсоветуйте.
Где то на форуме видел такой финт, когда при открытии формы, открываеться строка меня, где отражаються открытые в данный момент формы, отчёты, запросы.
Кто чем может помогие  | |
| |
| |
| |
|
|
| | Пример не нашел, набросал как понял
На открытие формы пишите код
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
|
Получите меню содержащие открытые формы, таблицы и отчеты | |
| |
| |
