Чтение онлайн

Макрос9 производит основную операцию – удаление записи. После этого выполняется цикл. Рассмотрим его подробнее.

При активной работе с БД может оказаться, что в какой-либо форме есть не одна, а несколько пустых записей. Например, вы нечаянно или с определенной целью не ввели в новую запись никаких данных, однако и не удалили ее. Щелкнув по кнопке Удалить запись, вы восстановите порядок, и все пустые записи будут уничтожены. Когда вы снова активизируете форму, она откроется на пустой записи, готовой к вводу информации.

Цикл имеет следующий синтаксис:

A:

DoCmd.RunMacro «Макрос7»

If IsNull(Forms![Hазначение]![Hазначение] = "") = True Then

DoCmd.RunMacro «МакросЗ»

DoCmd.RunMacro «Макрос9»

GoTo A

Else

End If

Программа Макрос7 осуществляет переход к последней записи. Затем уже знакомая нам логическая конструкция Then… If…Else (Если…То…Иначе) проверяет утверждение Forms![Hазначение]![Hазначение] = "". Иными словами, вы уточняете, есть ли в поле Назначение одноименной формы пустая строка. Проверка выполняется с помощью функции IsNull , которая возвращает значение типа Boolean. Оно показывает, является ли результатом выражения пустое значение (Null). Синтаксис функции:

IsNull(выражение)

Итак, функция IsNull возвращает True (Истина), если выражение имеет значение Null, в противном случае – False (Ложь). Предположим, результатом проверки будет True: в записи обнаружена пустая строка. Тогда с помощью программы Макрос7 блокируется вывод сообщения, а оператор Макрос9 удаляет эту запись и осуществляет переход на метку А. Она повторяет описанные процедуры для следующей пустой записи, и так продолжается до тех пор, пока не выяснится, что подобных записей больше нет. Тогда цикл заканчивается и начинает выполняться следующая группа операторов:

DoCmd.RunMacro «Макрос1»

Cod = DMax(«[Kод]», «Назначение») + 1

Forms![Hазначение]![Kод] = [Cod]

DoCmd.RunMacro «Макрос29»

Приведенный набор команд задает установку на последнюю пустую запись и определяет соответствующее значение для ее кода. (Подробно все это рассматривалось в предыдущем разделе.) Вот полный текст процедуры:

Private Sub Удалить_запись_Click

On Error GoTo Err Назначение Удалить_запись_Click

Dim Cod As Integer

DoCmd.RunMacro «МакросЗ»

DoCmd.RunMacro «Макрос9»

A:

DoCmd.RunMacro «Макрос7»

If IsNull(Forms![Hазначение]![Hазначение] = "") = True Then

DoCmd.RunMacro «МакросЗ»

DoCmd.RunMacro «Макрос9»

GoTo A

Else

End If

DoCmd.RunMacro «Макрос1»

Cod = DMax(«[]», «Назначение») + 1

Forms![Hазначение]![Kод] = [Cod]

DoCmd.RunMacro «Макрос29»

Exit_Назначение_Удалить_запись_Click:

Exit Sub

Err_Назначение_Удалить_запись_Click:

MsgBox Err.Description

Resume Exit_Назначение_Удалить_запись_Click

End Sub

1. В этой главе были рассмотрены основные положения языка программирования VBA, который стал стандартным средством макропрограммирования для различных приложений.

2. Сфера приложения VBA практически безгранична. В качестве примера в этой главе выбрано «обустройство» собственно базы данных – обеспечение удобства работы с ней для пользователя. Обычно у каждого пользователя свои взгляды на то, что удобно, а что нет, и нередко сервис базы данных приходится дорабатывать.

3. Обращение к VBA оправдано тогда, когда средства, заложенные в Access, либо не позволяют добиться нужного результата, либо предлагают сложное и громоздкое решение.

4. В качестве конкретных примеров использования языка VBA в настоящей главе рассмотрены:

– предупреждение дублирования записей при их вводе с помощью формы;

– установка на последнюю запись при открытии формы;

– удаление записи с дальнейшей установкой на последнюю запись.

Таблица П1.1.

База данных Microsoft Access

1 Под базой данных Microsoft Access (.mdb) понимается совокупность данных и объектов, относящихся к определенной задаче. Управление данными выполняется ядром базы данных Microsoft Jet.

2 Встроенный объект базы данных, определенный как системный, например таблица MSysIndexes, или системные объекты, определенные пользователем. Для определения системного объекта необходимо, чтобы его имя начиналось с символов USys. Объект – некоторая структура, рассматриваемая как самостоятельный файл в пределах Microsoft Access (таблица, запрос, форма, отчет, макрос, модуль, страница доступа к данным и др.).

3 Наборы описаний, инструкций и процедур, сохраненных под общим именем для организации программ на языке Microsoft Visual Basic.

Таблица П1.2. Таблица

Таблица П1.3. Запрос

Таблица П1.4. Форма и отчет

Таблица П1.5. Макрос

Таблица П1.6. Проект Microsoft Access

1 Проект Microsoft Access. Файл Microsoft Access, имеющий подключение к базе данных Microsoft SQL Server, который используется для создания приложений в архитектуре клиент/сервер. Проект не содержит данные или объекты определения данных, такие как таблицы и представления.

Таблица П1.7. Форма и отчет

Таблица П1.8. Макрос

Bookmark (закладка). Свойство объекта Recordset или формы, содержащее двоичную строку, определяющую текущую запись.

Building Applications with Forms and Reports (Разработка приложений с помощью форм и отчетов). Руководство, содержащее дополнительные сведения о языке Visual Basic, защите, элементах ActiveX и распространении приложений Microsoft Access. Доступно на Web-узле Microsoft www.microsoft.com.

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

MSDE. Совместимое с Microsoft SQL Server 7.0 ядро обработки данных в архитектуре клиент/сервер, обеспечивающее локальное сохранение данных на малых компьютерах, таких как рабочие станции пользователей или малые серверы рабочих групп.