Откройте пользовательскую форму Расход в режиме конструктора.
Для создания собственной панели инструментов войдите в меню Вид/Панели инструментов/Настройка.
Перейдите на вкладу Панели инструментов, нажмите кнопку Создать. Присвойте имя новой панели на – Учебная панель. Нажмите кнопку Ок.
После нажатия кнопки Ок, у вас появится пустая панель инструментов, которую можно настроить и нужно заполнить данными.
В нашем случае создадим на панели собственное меню. Для этого перейдите на вкладку Команды, выберите из Категории объект Новое меню. Перетащите левой кнопкой мыши объект команды Новое меню в пустую нашу панель инструментов и отпустите кнопку мыши.
Для переименования нового меню нажмите на нем в панели правой клавишей и выберите из контекстного меню свойство Имя и напишите туда новое имя «Работа с файлами».
Чтобы добавить команду в меню, сначала щелкните на меню, чтобы оно открылось. Затем перейдите на вкладку Команды диалогового окна Настройка. Выберите из категории объект Все макросы/Сохранить данные в файл.
Аналогично добавьте в меню макрос Открыть данные из файла.
Чтобы закрепить нашу новую панель инструментов к форме, откройте Свойства формы, перейдите на вкладку Все, найдите свойство Панель инструментов и из списка выберите Учебная панель.
Сохраните форму и откройте ее для просмотра.
Однако еще лучше сначала закрепить саму форму, чтобы она отображалась всегда в определенном месте экрана. Это можно настроить с помощью диалогового окна Свойства. Однако, эту же задачу можно решить программно. Для этого в диалоговом окне Свойства формы перейдите на вкладку События/Изменение размера, выберите Программа.
В созданной заготовке процедуры обработки события введите следующий код:
Private Sub Form_Resize()
DoCmd.MoveSize 50, 350, 10000, 8000
End Sub
Где с помощью к обращению объекта DoCmd –позволяет выполнить макрос или встроенную инструкцию Access с помощью процедуры на Visual Basic. При помощи DoCmd можно выполнить множество важных операций.
Применение метода MoveSizeпозволяет программно установить размеры диалогового окна.
Метод DoCmd.MoveSize() изменяет размеры активного объекта (например, нашей формы, если она активна).
Метод MoveSizeимеет следующие параметры , с помощью которых можно установить координаты левого верхнего угла окна, его высоту и ширину.
Выйдите из редактора VBA и откройте форму для просмотра.
Перейдите в режим конструктора.
Переместите панель инструментов в верхний левый угол формы над ее заголовком, см. рис.
Войдите в панель инструментов и нажмите правую клавишу мыши. Из контекстного меню выберите Настройка.
В диалоговом окне настройка выберите панель «Учебная панель», нажмите кнопку Свойства и выберите из списка закрепление – Изменения не возможныи уберите галочку напротив свойства Перемещения. Нажмите кнопку Закрыть.
Чтобы панель инструментов Учебная панель автоматически появлялась при открытии формы Расход и автоматически исчезала с экрана после закрытия формы, напишем два обработка события для формы.
Перейдите на вкладку Свойства, выберите из раскрывающегося списка объекта – Форма, выберите вкладку События.
Создадим обработчик события активации формы, для этого выберите свойство Загрузка и примените к данному свойству Программу.
В редакторе кода VBA вам автоматически создаться готовая заготовка процедуры активации формы. Внутри данной процедуры впишите следующий код
