Microsoft Access. Создание панели меню

Большинство коммерческих программ имеет в верхней части приложения свою панель элементов, на которой есть разные кнопки. Давайте напишем программу, которая создает панель меню без кнопок.

Вот так примерно выглядит редактирование кнопок меню для новой вкладки в Microsoft Access 2016.

Public Function funCreateMenu(strMenu As String) As Boolean

        Dim myBar As CommandBar

        'Создаем панель меню

        myBar = appAccess.CommandBars.Add(strMenu, msoBarTop, True)

        funCreateMenuControls strMenu '<10> Создаем кнопки меню

        myBar.Visible = True 'Отображаем меню

        funCreateMenu = True 'Возвращаем результат

End Function

Создание кнопок меню

В этой части лекций рассказывается о программе, которая создает две кнопки Помощник и Справка. При нажатии их будет отображаться файл справки и помощник по Вашей программе.

Public Function funCreateMenuControls(strMenu As String) As Boolean

    Dim but As CommandBarButton

    'Добавляем первую кнопку

    but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)

    With but

        .BeginGroup = True 'Начинаем размещение с начала группы

        .FaceId = 1 'Устанавливаем код кнопки

        .Style = msoButtonCaption 'Выбираем стандартный тип

        .Caption = "Справка" 'Называем кнопку

        .OnAction = "funCreateNewHelp" 'Определяем программу справки

    End With

    'Добавляем вторую кнопку

    but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)

    With but

        .Caption = "Помощник" 'Называем кнопку

        .Style = msoButtonCaption 'Выбираем стандартный тип

        .FaceId = 2 'Устанавливаем код кнопки

        .OnAction = "funCreateAssistant" 'Определяем программу помощника

    End With

    funCreateMenuControls = True 'Возвращаем результат

End Function

Заключение

Вот и все. Вы полностью прошли первый этап обучения, и теперь только на практике, разрабатывая программы от простых к сложным, Вы сможете создавать законченные приложения по Access. Несколько советов по написанию программ

• названия функций давайте только на английском языке, могут возникнуть проблемы в сложных программах;
• старайтесь почаще их комментировать, тогда Вам легче будет разбираться в их структуре;
• не старайтесь писать очень большие базы данных, размер ее – это не показатель качества;

ОГЛАВЛЕНИЕ	ССЫЛКИ ПО ТЕМЕ
Введение в проектирование Определение переменных Cоздание базы данных  Работа с таблицами  Работа с SQL запросами  Создание модуля  Создание формы Создание макроса Создание панели меню	Вся книга в интернете Форум по Microsoft Access  Книга для чтения в формате RSS Загрузить книгу в pdf формате Загрузить исходники по теме (скоро …) Подписка на новости по Email Сообщество Microsoft Access в Google + Заказ обучения или разработки программы