10.7. Текст программы в окне редактора Visual Basic необходимо скорректировать:
– номер надписи 47 в Вашем случае будет другим. Он соответствует командной кнопке РАСЧЕТ, созданной в п. 9. Для уточнения номера надписи смотрите замечание к п. 6.6;
– номера полей 33 – 45 в Вашем случае будут также другими. Указанные поля были созданы ранее в п. 4.3 – 4.6. Для уточнения номеров полей смотрите замечание к п. 6.6.
10.8. Перейдите в режим таблицы формы и, нажав на кнопку РАСЧЕТ, убедитесь в ее работоспособности (рис. 10.47). В правой части формы Платеж_Форма в соответствующих полях должны появиться расчетные данные.
Рис. 10.47. Вид формы " Платеж_Форма" с результатами расчета
11. Добавление командной кнопки Переходы
11.1. Перейдите в режим конструктора формы.
11.2. На Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Надпись.
11.3. Создайте надпись с именем Переходы в нужном месте разрабатываемой формы "Платеж_Форма" (рис. 10.47).
11.4. В контекстном меню выберите команду Свойства и, в появившемся окне Надпись (рис. 10.42), в разделе Подпись введите Переходы, а также задайте размеры и положение кнопки в форме.
11.5. В контекстном меню (рис. 10.48) выберите команду Последовательность перехода.
11.6. В появившемся окне Последовательность перехода (рис. 10.49) формируете желаемую последовательность перехода от одного поля формы к другому полю формы. Для этого в разделе Последовательность с помощью мыши расставляете поля в нужной Вам последовательности. В последствии при работе с формой в режиме таблицы, переход от одного поля к другому в заданной Вами последовательности будет происходить автоматически при нажатии клавиши TAB (или ENTER).
Замечание:
– созданная кнопка Переходы при работе с формой в режиме таблицы не функционирует. Ее единственное назначение задать последовательность обхода полей и кнопок формы на этапе разработки формы;
– в случае необходимости с помощью мыши Вы в любой момент можете нарушить порядок обхода полей в форме, щелкнув мышью по нужному полю.
Рис. 10.48. Контекстное меню
Рис. 10.49. Окно Последовательность перехода
13. Добавление командной кнопки Статистика
Назначение кнопки Статистика обеспечить переход из формы Платеж_Форма к форме Статистик_Форма.
Командную кнопку Статистика можно добавить двумя способами: использовать стандартную и разработать свою.
13.1. Создание стандартной кнопки Статистика:
– перейдите в режим конструктора формы;
– на Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Кнопка, и создайте пустую кнопку в нужном месте разрабатываемой формы "Платеж_Форма". Автоматически откроется окно Мастер Создание кнопок (рис. 10.38);
– на первом шаге (рис. 10.50) разделе Категории выберите Работа с формой, в разделе Действия кнопку Открыть форму. Нажмите кнопку Далее;
Рис. 10.50. Окно Создание кнопок. Шаг 1
– на втором шаге (рис. 10.51) выберите форму Статистик_Форм, которая будет открываться с помощью создаваемой кнопки. Нажмите кнопку Готово;
Рис. 10.51. Окно Создание кнопок. Шаг 2
– в контекстном меню выберите команду Свойства и в появившемся окне Кнопка (рис. 10.39) задайте размеры и положение кнопки в форме;
– расположение стандартной кнопки Статистика приведено на рис. 10.47;
– перейдите в режим таблицы формы и, нажимая на кнопку Статистика, убедитесь в ее работоспособности.
– при создании кнопки Статистика автоматически формируется программа, реализующая действие кнопки. Просмотреть программный код (рис. 10.40), сформированный для кнопки, можно выбрав меню "Сервис" "Макрос" "Редактор VB". В табл. 10.6 приведен полный текст программы, для используемой кнопки. Сравните текст программы, полученной Вами в процессе создания кнопки Статистика, с текстом программ, приведенной в табл. 10.6, и в случае необходимости скорректируйте текст программ для кнопки Статистика.
Замечание: номер кнопки 78 в Вашем случае будет другим. Для уточнения номера кнопки смотрите замечание к п. 6.6.
Таблица 10.6
Текст программы для кнопки Статистика
|
|
Private Sub Кнопка78_Click() On Error GoTo Err_Кнопка78_Click
Dim stDocName As String Dim stLinkCriteria As String
stDocName = ChrW(1057) & ChrW(1090) & ChrW(1072) & ChrW(1090) & ChrW(1080) & ChrW(1089) & ChrW(1090) & ChrW(1080) & ChrW(1082) & ChrW(95) & ChrW(1060) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка78_Click: Exit Sub
Err_Кнопка78_Click: MsgBox Err.Description Resume Exit_Кнопка78_Click
End Sub |
|
|
|
13.2. Создание индивидуальной кнопки Статистика:
– перейдите в режим конструктора формы;
– на Панели элементов (рис. 10.26) с помощью мыши выберите инструмент Надпись;
– создайте надпись с именем Статистика в нужном месте разрабатываемой формы "Платеж_Форма";
– в контекстном меню выберите команду Свойства и в появившемся окне Надпись (рис. 10.52) в разделе Подпись введите Статистика, а также задайте размеры и положение кнопки в форме (рекомендуемый набор параметров: Выравнивание текста: По центру; Размер шрифта: 12; Насыщенность: полужирный; Ширина: 3 см; Высота 0,6 см; Тип границы: сплошная; Оформление: приподнятое);
Рис. 10.52. Окно Надпись
– поскольку кнопка индивидуальная, то для обеспечения ее работоспособности, необходимо сформировать программу, реализующую действие кнопки. Подключите Редактор VB (меню "Сервис" "Макрос" "Редактор VB") В окне Редактора VB введите (скопируйте с помощью Буфера обмена) текст программы, приведенный в табл. 10.7.
Замечание: номер надписи 83 в Вашем случае будет другим. Для уточнения номера надписи смотрите замечание к п. 6.6.
– расположение индивидуальной кнопки Статистика приведено на рис. 10.47;
– перейдите в режим таблицы формы и, нажимая на кнопку Статистика, убедитесь в ее работоспособности.
Таблица 10.7
Текст программы для кнопки Статистика
|
|
Private Sub Статистика_Click() On Error GoTo Err_Статистика_Click
Dim stDocName As String Dim stLinkCriteria As String
stDocName = ChrW(1057) & ChrW(1090) & ChrW(1072) & ChrW(1090) & ChrW(1080) & ChrW(1089) & ChrW(1090) & ChrW(1080) & ChrW(1082) & ChrW(95) & ChrW(1060) & ChrW(1086) & ChrW(1088) & ChrW(1084) & ChrW(1072) DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Статистика_Click: Exit Sub
Err_Статистика_Click: MsgBox Err.Description Resume Exit_Статистика_Click
End Sub |
|
|
|