Группа = Группа - Разряд * 100
If Группа > 19 Then
Разряд = Группа \ 10
Пропись = Пропись & " " & Десятки(Разряд)
Остаток = Остаток - Разряд * 10
Группа = Группа - Разряд * 10
End If
Разряд = Группа
Пропись = Пропись & " " & Единицы(Разряд, "Женский")
Остаток = Остаток - Разряд
Пропись = Пропись & " " & Гривны(Разряд)
End If
Суммапрописью = Пропись
End Function
Откомпилировать модуль можно, нажав кнопку .
Функция Суммапрописью разрешает перевести Общую сумму в символьную константу. При этом используются глобальные аргументы Сумма, Остаток, объявленные в третьей строке модуля. Функция использует вспомогательные функции Тысячи, Сотни, Десятки, Единицы, Гривны для перевода отдельных разрядов Общей Суммы в число прописью.
В отчете Квитанции следует добавить поле в область Примечание отчета, изменить надпись на Сумма прописью, в поле ввести выражение, которое вызовет функцию модуля =Суммапрописью(Sum([Стоимость]-[Стоимость]*[Скидка])).
2.3.16 Создания форм, отчетов и макросов для собственной базы данных
Для собственной БД необходимо разработать формы для заполнения таблиц, которые входят в состав БД, продемонстрировать на этих формах возможности ввода и редактирования информации, поиска данных, использования фильтров. Во время создания форм желательно использовать новые элементы панели инструментов, например, список, рисунок и тому подобное. Следует создать 2-3 отчета на базе таблиц и запросов, обязательно используя в отчетах вычислительные поля и группировку информации. Необходимо создать соответствующие макросы для открытия форм и отчетов, создать главную форму БД по типу Панели управления и организовать дружеский интерфейс работы с БД. Пример организации интерфейса с пользователем для БД индивидуальных телефонов города приведен в приложении Б.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.