Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
31<br />
DoCmd.OpenForm "Сотрудники"<br />
End Sub<br />
Sub Запрос<strong>Access</strong> ()<br />
DoCmd.SetWarnings False<br />
DoCmd.OpenForm "Сотрудники", acDesign, , , , acHidden<br />
DoCmd.OpenQuery "Запрос1"<br />
DoCmd.Close acForm, "Сотрудники"<br />
DoCmd.SetWarnings True<br />
End Sub<br />
Меню<br />
Меню создаются и редактируются под управлением редактора меню<br />
или с помощью процедур, размещаемых в модулях. Редактор меню<br />
представлен вкладкой Команды меню Вид .Панели инструментов<br />
.Настройка…<br />
Различают встроенные меню приложения и авторские меню<br />
пользователя. Каждому пункту авторского меню соответствует<br />
индивидуальный макрос или функция. Редактор меню позволяет удалять<br />
любой пункт меню, открыв его контекстное меню и выбрав из него Сброс<br />
или Удалить при открытом окне Настройка. При этом встроенные меню не<br />
удаляются, а скрываются. В любое меню можно добавить новый пункт через<br />
вкладку Команды меню Вид .Панели инструментов .Настройка,<br />
перетащив необходимый элемент из списка Команды в меню.<br />
Для программирования строк меню используются объекты классов<br />
CommandBars и CommandBar из библиотеки Microsoft Office. Первый из<br />
классов хранит все строки встроенных меню. Он служит инструментом<br />
использования меню приложения и создания авторских меню. Второй класс<br />
представляет все пункты конкретного меню. Он служит инструментом<br />
использования пунктов меню приложения и создания авторских пунктов.<br />
Ссылки <strong>на</strong> пункты меню определяются свойством Controls.<br />
Для отображения контекстных меню используется метод ShowPopup, а<br />
для удаления всех новых меню, не выведенных <strong>на</strong> экран, – методы Delete и<br />
Reset.<br />
Примеры<br />
Sub ВсеСтрокиМеню ()<br />
For Each строкаМеню In CommandBars<br />
Debug.Print строкаМеню.Index, " ", строкаМеню.Name<br />
Next<br />
End Sub<br />
Sub ВсеПунктыМеню ()<br />
For Each пункт In CommandBars ("Menu Bar").Controls<br />
список = список & пункт.Index & " " & пункт.Caption & Chr(13)