6. Добавление командных кнопок перехода по записям

Командные кнопки управления вводом информации и вы­числительным процессом создаются следующим образом:

6.1. С помощью мыши расширьте Область данных формы "Платеж_Форма" вниз.

6.2. Кнопки "Первая запись", "Следующая запись", "Предыдущая запись", "Послед­няя запись", "Найти запись", с общепринятыми изображениями значков на кнопках объединены в группу "Переходы по записям". Остается их только подключить для работы. Подключение (создание) кнопки проводят в следующем порядке:

– на Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Кнопка, и создайте пустую кнопку в нужном месте разрабатываемой формы "Платеж_Форма". Автоматически откроется окно Мастер Создание кнопок (рис. 10.38);

– в разделе Категории выберите Переходы по записям, в разделе Действия кнопку Первая запись. Нажмите кнопку Готово;

­– в контекстном меню выберите команду Свойства и в появившемся окне Кнопка (рис. 10.39) задайте размеры и положение кнопки в форме.

Замечание: номер кнопки в Вашем случае будет другим.

6.3. Повторите пункт 6.2 и подключите недостающие кнопки "Следующая запись", "Предыдущая запись", "Послед­няя запись", "Найти запись".

Замечание: номера кнопок в Вашем случае будут другими.

6.4. Расположение кнопок перехода по записям приведено на рис. 10.25.

Рис. 10.38. Окно Создание кнопок

Рис. 10.39. Окно Кнопка

6.5. Перейдите в режим таблицы формы и, нажимая на созданные кнопки, убедитесь в их работоспособности.

6.6. При соз­дании кнопок перехода на "Первая запись", "Следующая запись", "Предыдущая запись", "Послед­няя запись", "Найти запись", были автоматически сформированы программы, реализующие действия указанных кнопок. Просмотреть программный код (рис. 10.40), сформированный для кнопок, можно выбрав меню "Сервис"  "Макрос"  "Редактор VB". В табл. 10.2 приведены полные тексты кодов программ для используемых кнопок перехода. Сравните тексты программ, полученные Вами в процессе создания кнопок перехода, с текстами программ, приведенными в табл. 10.2, и в случае необходимости скорректируйте тексты программ для кнопок перехода.

Замечание: номера кнопок 65-69 в Вашем случае будут другими. Для уточнения номера кнопки необходимо:

– перейти в режим конструктора формы;

– выбрать нужную кнопку;

- контекстном меню выбрать команду Свойства;

– в открывшемся окне Кнопка уточнить номер кнопки.

Рис. 10.40. Фрагмент окна редактора VB с кодами программ для кнопок перехода

Таблица 10.2

Тексты кодов программ для кнопок перехода

а) Первая запись		б) Следующая запись
Private Sub Кнопка66_Click() On Error GoTo Err_Кнопка66_Click DoCmd.GoToRecord , , acFirst Exit_Кнопка66_Click: Exit Sub Err_Кнопка66_Click: MsgBox Err.Description Resume Exit_Кнопка66_Click End Sub		Private Sub Кнопка67_Click() On Error GoTo Err_Кнопка67_Click DoCmd.GoToRecord , , acNext Exit_Кнопка67_Click: Exit Sub Err_Кнопка67_Click: MsgBox Err.Description Resume Exit_Кнопка67_Click End Sub
в) Предыдущая запись		г) Послед­няя запись
Private Sub Кнопка68_Click() On Error GoTo Err_Кнопка68_Click DoCmd.GoToRecord , , acPrevious Exit_Кнопка68_Click: Exit Sub Err_Кнопка68_Click: MsgBox Err.Description Resume Exit_Кнопка68_Click End Sub		Private Sub Кнопка65_Click() On Error GoTo Err_Кнопка65_Click DoCmd.GoToRecord , , acLast Exit_Кнопка65_Click: Exit Sub Err_Кнопка65_Click: MsgBox Err.Description Resume Exit_Кнопка65_Click End Sub
г) Найти запись
	Private Sub Кнопка69_Click() On Error GoTo Err_Кнопка69_Click Screen.PreviousControl.SetFocus DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70 Exit_Кнопка69_Click: Exit Sub Err_Кнопка69_Click: MsgBox Err.Description Resume Exit_Кнопка69_Click End Sub

7. Подключение календаря

Специальные объекты типа календаря активируются сле­дующим образом:

7.1. Перейдите в режим конструктора формы.

7.2. Нажмите на кнопку "Другие элементы" на Панели элементов (рис. 10.26).

7.3. В появившемся контекстном меню отыщите Элемент управления "Календарь 10.0" (находится в самом конце обширного списка меню) и активизируйте этот элемент.

7.4. Позиционируйте с помощью мыши расположение календаря в форме.

7.5. Активизируйте календарь и установите (увеличьте) необходимые размеры календаря.

7.6. Подключите элемент управления "Календарь" к полю "ДатаУплаты" формы, "Платеж_Форма". Для этого одним щелчком правой кнопки мыши вызовите Контекстное меню свойств и активизируйте команду "Свойство". В появившемся диалоговом окне «Элемент ActiveX:Calendar10" (рис. 10.41) в разделе "Данные" и строке "Данные" с помощью кнопки Список  выберите поле "ДатаУплаты".

7.7. Закройте диалоговое окно. Элемент подключен к необходи­мому полю.

7.8. Для проверки правильности подключения Календаря перейдите из режима конструктора формы в режим таблицы формы. Наберите на Календаре необходимую дату и щелкните мышью по полю ДатаУплаты. В поле ДатаУплаты должна установиться введенная Вами дата.

Рис. 10.41. Диалоговое окно "Элемент ActiveX:Calendar10"

8. Добавление командной кнопки Выход

Командную кнопку Выход можно добавить двумя способами: использовать стандартную и разработать свою.

8.1. Создание стандартной кнопки Выход:

– перейдите в режим конструктора формы;

– на Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Кнопка, и создайте пустую кнопку в нужном месте разрабатываемой формы "Платеж_Форма". Автоматически откроется окно Мастер Создание кнопок (рис. 10.38);

– в разделе Категории выберите Работа с формой, в разделе Действия кнопку Закрыть форму. Нажмите кнопку Готово;

­– в контекстном меню выберите команду Свойства и в появившемся окне Кнопка (рис. 10.39) задайте размеры и положение кнопки в форме;

– расположение стандартной кнопки Выход приведено на рис. 10.25;

– перейдите в режим таблицы формы и, нажимая на кнопку Выход, убедитесь в ее работоспособности.

– при соз­дании кнопки Выход автоматически формируется программа, реализующая действие кнопки. Просмотреть программный код (рис. 10.40), сформированный для кнопки, можно выбрав меню "Сервис"  "Макрос"  "Редактор VB". В табл. 10.3 приведен полный текст программы, для используемой кнопки. Сравните текст программы, полученной Вами в процессе создания кнопки Выход, с текстом программ, приведенной в табл. 10.3, и в случае необходимости скорректируйте текст программ для кнопки Выход.

Замечание: номер кнопки 75 в Вашем случае будет другим. Для уточнения номера кнопки смотрите замечание к п. 6.6.

Таблица 10.3

Текст программы для кнопки Выход

	Private Sub Кнопка75_Click() On Error GoTo Err_Кнопка75_Click DoCmd.Close Exit_Кнопка75_Click: Exit Sub Err_Кнопка75_Click: MsgBox Err.Description Resume Exit_Кнопка75_Click End Sub

8.2. Создание индивидуальной кнопки Выход:

– перейдите в режим конструктора формы;

– на Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Надпись;

– создайте надпись с именем Выход в нужном месте разрабатываемой формы "Платеж_Форма";

­– в контекстном меню выберите команду Свойства и в появившемся окне Надпись (рис. 10.42) в разделе Подпись введите Выход, а также задайте размеры и положение кнопки в форме (рекомендуемый набор параметров: Выравнивание текста: По центру; Размер шрифта: 14; Насыщенность: полужирный; Ширина: 3 см; Высота 0,6 см; Тип границы: сплошная; Оформление: приподнятое);

Рис. 10.42. Окно Надпись

– поскольку кнопка индивидуальная, то для обеспечения ее работоспособности, необходимо сформировать программу, реализующую действие кнопки. Подключите Редактор VB (меню "Сервис"  "Макрос"  "Редактор VB") В окне Редактора VB введите (скопируйте с помощью Буфера обмена) текст программы, приведенный в табл. 10.4.

Замечание: номер надписи 77 в Вашем случае будет другим. Для уточнения номера надписи смотрите замечание к п. 6.6.

– расположение индивидуальной кнопки Выход приведено на рис. 10.25;

– перейдите в режим таблицы формы и, нажимая на кнопку Выход, убедитесь в ее работоспособности.

Таблица 10.4

Текст программы для кнопки Выход

	Private Sub Выход_Click() On Error GoTo Err_Выход_Click DoCmd.Close Exit_Выход_Click: Exit Sub Err_Выход_Click: MsgBox Err.Description Resume Exit_Выход_Click End Sub