Павел Дубнов - Access 2002 - Самоучитель

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

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

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

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

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

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

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

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.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 ядро обработки данных в архитектуре клиент/сервер, обеспечивающее локальное сохранение данных на малых компьютерах, таких как рабочие станции пользователей или малые серверы рабочих групп.