Автоматизация приложения в СУБД Access

1

Размещено на http://www.allbest.ru

ТЕМА: АВТОМАТИЗАЦИЯ ПРИЛОЖЕНИЯ В СУБД ACCESS

1. ИСПОЛЬЗОВАНИЕ МАКРОСОВ

1.1 Общие сведения о макросах

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

Microsoft Access предоставляет различные типы макрокоманд, позволяющие автоматизировать работу приложения. Вы можете использовать макросы для выполнения следующих действий:

· Для открытия любой таблицы, запроса, формы или отчета в любом доступном режиме. С помощью макросов вы можете закрыть любую открытую таблицу, запрос, форму или отчет.

· Для открытия отчета в режиме предварительного просмотра или непосредственного вывода отчета на принтер. Вы можете вывести данные из отчета в файл в формате RTF (.rtf), в обычном текстовом формате (.txt) или в файл Microsoft Excel (.xls) и затем открыть их в Microsoft Word, Windows Notepad или в Microsoft Excel.

· Для выполнения запроса на выборку или запроса на изменение. При этом параметры запроса могут использовать значения элементов управления любой открытой формы.

· Для выполнения действий в зависимости от значений в базе данных, форме или отчете. Макросы могут запускать другие макросы или процедуры VBA. Вы можете прервать выполнение текущего макроса или всех макросов, отменить событие, которое запустило макрос, или даже выйти из приложения.

· Для установки значения любого элемента управления формы или отчета. Можно эмулировать работу с клавиатурой и передавать вводимые с клавиатуры данные в системные окна диалога. С помощью макросов можно обновлять значения в любых элементах управления, источником данных которых является запрос.

· Для применения фильтра, перехода к любой записи и поиска данных в базовой таблице или запросе формы.

· Для определения специальной строки меню, замещающей стандартную. Вы можете сделать доступным или не доступным, снять галочку или пометить пункт специального меню, в том числе и контекстного. Кроме того, с помощью макросов можно открыть или закрыть любую из стандартных или специальных панелей инструментов.

· Для выполнения любой команды любого меню Access.

· Для перемещения, изменения размеров, сворачивания или восстановления любого окна внутри рабочей области Access. Вы можете передавать фокус любому из окон или любому элементу управления в окне, выбирать страницу отчета и выводить ее в режиме предварительного просмотра.

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

· Для переименования любого объекта базы данных, копирования выбранного объекта в текущую или другую базу данных Access. Можете использовать макросы для сохранения или удаления объектов из вашей базы данных. Кроме того, макросы позволяют импортировать, экспортировать или связывать таблицы из других баз данных, импортировать или экспортировать электронные таблицы и текстовые файлы.

· Для запуска приложения, а также для обмена данными с приложением с помощью механизма DDE или буфера обмена. Вы можете вывести данные из таблицы, формы, запроса или отчета в выходной файл и открыть его в соответствующем приложении. Можно также передать последовательность нажатий клавиш в приложение, ожидающее ввода с клавиатуры.

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

Макросы особенно полезны для построения небольших персональных приложений или создания прототипов больших приложений. Для сложных приложений или для приложений, предназначенных для работы в сети в режиме коллективного пользования, вам скорее всего придется использовать VBA, но даже если вы считаете, что готовы сразу перейти к VBA, лучше сначала изучить макрокоманды, т.к. почти все из них вам придется использовать в VBA. Поэтому изучение макросов прекрасное введение в программирование в Access в целом.

1.2 Создание простого макроса

Для создания макроса в окне базы данных следует перейти «Макросы» и нажать кнопку «Создать», чтобы открыть окно нового макроса. Верхняя часть окна используется для определения нового макроса, а нижняя предназначена для ввода значений аргументов макрокоманд, включенных в макрос. В верхней части присутствуют по крайней мере два столбца с заголовками «Макрокоманда» и «Примечание». Вы можете увидеть все четыре столбца, нажав кнопки «Имена макросов» и «Условия» на панели инструментов.

В правой нижней части окна макроса выводится краткая справка. Содержание сообщения меняется в зависимости от положения курсора в верхней части окна макроса.

В столбце «Макрокоманда» задается одна из более чем 49 макрокоманд, предоставляемых Access. Если вы щелкните в любой ячейке столбца «Макрокоманда», то в правом конце ячейки появится кнопка со стрелкой вниз. Нажатие этой кнопки открывает список макрокоманд.

Чтобы познакомиться с работой окна макроса, выберите в списке макрокоманду «Сообщение». Она используется для открытия монопольного окна диалога с сообщением. Это прекрасный способ для вывода в приложении разного рода предупреждающих информационных сообщений без создания для этого специальной формы.

Пусть, например, сообщение представляет собой приветствие. Столбец «Примечание» особенно полезен для документирования сложных макросов, содержащих большое число макрокоманд. В столбце «Примечание» можно вводить дополнительные комментарии, размещая их на пустых строках, не содержащих макрокоманд.

После выбора макрокоманды, такой как «Сообщение», Access выведет в нижней части окна макроса ее аргументы



Как и в случае работы с окнами таблицы и запроса в режиме конструктора, для перехода из верхней части окна макроса в нижнюю и обратно вы можете воспользоваться клавишей F6.

Значение аргумента «Сообщение» представляет собой текст, который Access будет выводить в окне диалога. Аргумент «Сигнал» задает, будет ли звуковой сигнал сопровождать появление окна диалога. Аргумент «Тип» позволяет вставить в окно сообщения значок, например красный круг с белым перекрестием. В ячейку аргумента «Заголовок» вводится текст, который появится в заголовке окна диалога.

Перед запуском макрос необходимо сохранить. Выберите команду «Файл > Сохранить» (или «Файл > Сохранить как/Экспорт»). Access откроет окно диалога, в котором требуется ввести имя и нажать кнопку ОК, чтобы сохранить макрос.

1.3 Проверка работы макроса

Некоторые макросы могут быть запущены непосредственно из окна базы данных или окна макроса, поскольку они не зависят от элементов управления открытой формы или отчета. Если макрос зависит от какой-нибудь формы или отчета, его надо связать с соответствующим событием и запускать при возникновении этого события. Перед запуском макроса неплохо проверить его работу, выполнив макрокоманды в пошаговом режиме.

Чтобы начать пошаговую проверку, перейдите в окно базы данных, на вкладке «Макросы» выделите имя макроса, который вы хотите протестировать, и нажмите кнопку «Конструктор». После открытия окна макроса нажмите кнопку «По шагам» на панели инструментов либо выберите команду «Запуск > По шагам».

Теперь после запуска макроса Access будет открывать окно диалога «Пошаговое выполнение» макроса перед выполнением каждого шага. В этом окне вы увидите имя макроса, название макрокоманды, условие ее выполнения и аргументы макрокоманды.

Если проделать описанную процедуру с ранее созданным макросом, Access выведет на экран окно диалога «Пошаговое выполнение макроса. Если в этом окне вы нажмете кнопку «Шаг», то запустится макрокоманда, представленная в окне диалога, и Access выведет на экран монопольное окно с созданным вами сообщением. Нажмите кнопку ОК, чтобы закрыть окно. Если в макросе определено более одной макрокоманды, то после первого шага вы вновь вернетесь к окну диалога «Пошаговое исполнение макроса», которое покажет вам следующую готовую к исполнению макрокоманду. Поскольку в нашем случае макрос состоит всего из одной макрокоманды, Access возвратит вас в окно макроса.

Если во время выполнения приложения в каком-нибудь макросе встретится ошибка, то Access сначала выведет окно диалога, объясняющее ее. Затем вы увидите похожее на «Пошаговое исполнение макроса» окно диалога «Ошибка макрокоманды» с информацией о макрокоманде, вызвавшей ошибку. В этот момент можно нажать только кнопку «Прервать» и отредактировать макрос, чтобы устранить причину ошибки.

1.4 Обзор макрокоманд

Макрокоманды подразделяются на несколько классов, сформированных по функциональному принципу:

· Открытие и закрытие таблиц, запросов, форм и отчетов.

· Печать данных.

· Выполнение запроса.

· Проверка истинности условий и управление выполнением макрокоманд.

· Установка значений.

· Поиск данных.

· Построение специального меню и выполнение команд меню.

· Управление выводом на экран и фокусом.

· Сообщение пользователю о выполняемых действиях.

· Переименование, копирование, удаление, импорт и экспорт объектов.

· Запуск других приложений.

2. ПРИМЕНЕНИЕ МОДУЛЕЙ В СУБД ACCESS

2.1 Понятие модуля

Модули, также как и макросы используются для автоматизации приложений. Имеются рекомендации по применению макросов и модулей.

Когда следует использовать макросы

Используют макросы в приложении в тех случаях, когда:

§ не требуется отслеживать и обрабатывать ошибки;

§ не нужно вычислять или устанавливать параметры, передаваемые событиями, такими как после подтверждения Del, до подтверждения Del, ошибка, клавиша вниз, нажатие клавиши, клавиша вверх, кнопка вниз, перемещение указателя, кнопка вверх, отсутствие в списке, при обновлении;

§ приложение содержит всего несколько форм и отчетов;

§ приложение будет использоваться непрофессиональными программистами, которым тем не менее хотелось бы понять его работу или расширить его функции;

§ вы разрабатываете прототип приложения, и для демонстрации своего проекта вам нужно быстро автоматизировать выполнение некоторых задач.

Ниже приведен перечень задач, которые можно решить только с помощью макросов:

§ создание специальных меню и подчиненных меню для форм;

§ определение альтернативных действий для определенных нажатий клавиш;

§ создание на панели инструментов кнопки, запускающей макрос или процедуру пользователя;

§ управление запуском приложения при открытии базы данных.

Согда следует использовать VBA

Хотя макросы являются чрезвычайно мощным средством, все-таки существуют задачи, не разрешимые с помощью макросов, либо задачи, при решении которых предпочтительнее использовать процедуры VBA.

Используют процедуры VBA вместо макросов в тех случаях, когда:

§ нужно отслеживать и обрабатывать ошибки в приложении;

§ вы хотите создать свою функцию;

§ требуется проводить обработку событий с передачей или получением параметров;

§ во время работы приложения вам нужно создавать новые объекты (таблицы, запросы, формы или отчеты);

§ приложение должно взаимодействовать с другим приложением Windows, используя динамический обмен данными (DDE) или механизм управления объектами OLE (OLE Automation);

§ необходим прямой доступ к функциям Windows API;

§ нужно поместить часть программ приложения в библиотеку;

§ вы хотите обрабатывать отдельные записи, а не наборы записей;

§ для работы со связанными таблицами необходимо использовать некоторые функции исходных систем управления базами данных (процедуры SQL Server или средства определения данных);

§ необходимо создать приложение с высокой производительностью. В связи с тем, что модули компилируются, они выполняются несколько быстрее, чем макросы. Возможно, вы заметите эту разницу лишь на медленных процессорах.

Среда Visual Basic для приложений

Visual Basic для приложений заменил язык программирования Access Basic, который использовался в предыдущих версиях Access. VBA и Access Basic очень похожи; на самом деле оба происходят из одного раннего общего проекта. В последние годы VBA стал общим языком программирования для приложений Microsoft Office, включая Access, Microsoft Excel и Microsoft Project.

Наличие общего языка программирования для нескольких приложений обеспечивает ряд преимуществ. Достаточно знать один язык программирования, и можно интегрировать объекты в другие приложения с помощью VBA и механизма управления объектами OLE (OLE Automation). В дополнение к этим очевидным достоинствам VBA предоставляет более развитую среду по сравнению с Access Basic, в частности цветовое выделение различных синтаксических элементов и окно просмотра объектов. Кроме того, он имеет улучшенные средства отладки, которые помогут вам убедиться, что разработанная программа функционирует должным образом.

Модули

Все написанные программы хранятся в модулях. База данных может содержать два вида модулей: общие (стандартные), являющиеся объектами базы данных (процедуры преобразования), и модули форм или отчетов, которые являются частью этих объектов (процедуры обработки событий).

Общие модули

Чтобы увидеть общие модули открытой базы данных, необходимо в окне базы данных перейти на вкладку Модули. Общие модули используются для создания и хранения процедур, которые будут выполняться из запросов или из нескольких форм или отчетов приложения. Процедуры, определенные в общем модуле, могут быть вызваны из любого места в приложении. Чтобы создать новый модуль, нажмите кнопку «Создать». Разумно называть модули в соответствии с назначением. Например, модуль, содержащий процедуры, выполняющие вычисления для запросов, может быть назван modQuery Functions (Функции Запросов), а модуль с процедурами, предназначенными для непосредственной работы с функциями Windows, может быть назван modWindowsAPI Functions.



Модули форм и отчетов

Каждая форма или отчет содержат встроенный модуль, облегчающий создание процедур обработки событий, возникающих в форме или отчете. В такой модуль можно включить любые процедуры, доступные только из данной формы или отчета. Имеется возможность отредактировать модуль формы или отчета, открыв соответствующую форму или отчет в режиме конструктора и нажав кнопку Программа на панели инструментов или выполнив команду Вид > Программа. Модули форм или отчетов имеют два важных преимущества перед общими модулями:

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

§ Access загружает общий модуль базы данных при первом обращении к любой процедуре или ссылке на переменную модуля и оставляет его в памяти до закрытия базы данных. Модуль формы или отчета загружается только при открытии соответствующего объекта. В связи с этим на модули форм или отчетов расходуется память только при работе с соответствующими объектами.

Окно модуля

При открытии модуля в режиме конструктора Access выводит окно, содержащее раздел описаний, в котором объявляются переменные, общие для всех процедур данного модуля.

В верхней части окна модуля под строкой заголовка находятся два поля со списком:

Объект: при редактировании модуля формы или отчета служит для выбора в раскрывающемся списке форму или отчет, либо раздел или элемент управления формы или отчета, генерирующий событие.

Процедура: содержит доступные процедуры обработки событий для выбранного объекта, причем уже созданные процедуры выводятся полужирным шрифтом. Процедура, указанная в раскрывающемся списке, выводится в окне модуля. При открытии общего модуля этот список содержит все процедуры, включенные в него.

Чтобы создать новую процедуру в текущем модуле, введите на любой строке инструкцию Function или Sub и нажмите клавишу enter. (Можно также воспользоваться кнопкой Вставить процедуру на панели инструментов или командой Вставка >* Процедура.) Access вставит в модуль новую процедуру, добавив инструкцию End Function или End Sub (создаваемая процедура не внедряется в текущую). После ввода новой строки программы и нажатия клавиши enter Access проверяет синтаксис введенной строки и сообщает об обнаруженных ошибках.

При работе с модулем формы или отчета вы можете выбрать объект в поле со списком Объект, а затем открыть список процедур с перечнем возможных событий для объекта. Имя события, для которого уже создана процедура обработки, выводится полужирным шрифтом. Выберите имя события, отображенное шрифтом обычного начертания, и создайте для него процедуру обработки.

Окно отладки

Окно отладки -- это, пожалуй, одно из наиболее полезных средств при работе с модулями. Находясь в окне модуля, вы можете открыть окно отладки (рис. 21.4), нажав кнопку Окно отладки на панели инструментов или выбрав команду Вид > Окно отладки. (Окно отладки можно также открыть с помощью комбинации клавиш ctrl-g.)

В окне отладки вы можете немедленно выполнить любую синтаксически правильную инструкцию VBA. Например, вы можете присвоить значение Winthrop переменной gstrWhereClub, если введете с клавиатуры

gstrWhereClub = "Winthrop" а затем нажмете клавишу enter.

Объект, используемый для отладки программ в Visual Basic для приложений, называется Debug. У объекта Debug имеется специальный метод Print, который можно использовать для вывода данных в окне отладки. Для вывода текущего значения переменной gstrWhereClub введите в окне отладки строку Debug.Print gstrWhereClub и нажмите enter. Метод Debug.Print имеет сокращенное обозначение -- знак вопроса (?). Поэтому ? gstrWhereClub эквивалентно Debug.Print gstrWhereClub.

Чтобы запустить процедуру-функцию из окна отладки и увидеть на экране возвращаемое ею значение (если оно есть), вы можете присвоить некоторой переменной значение этой функции или использовать метод Debug.Print.

2.2 Переменные и константы

В дополнение к тому, что VBA позволяет работать с элементами управления любой открытой формы или отчета, можно также объявлять и использовать в программе VBA именованные переменные для временного запоминания информации, вычисления результатов или для выполнения операций с любыми объектами базы данных. Поэтому для передачи информации вместо «скрытых» элементов управления формы можно использовать общие.

Другим способом хранения данных в VBA являются константы. Константа -- это объект данных, имеющий фиксированное и неизменное значение. Вы уже встречались с несколькими встроенными константами Microsoft Access -- Null, True (Истина) и False (Ложь). Visual Basic для приложений также имеет большое число «внутренних» констант, которые можно использовать в выражениях для проверки типов данных и других атрибутов или в качестве фиксированных аргументов функций. Список внутренних констант VBA приведен в разделе «Константы Visual Basic» справочной системы Microsoft Access. Вы можете также описать свои собственные константы, необходимые для вашей программы.

Типы данных

Visual Basic для приложений поддерживает типы данных, подобные тем, которые вы использовали при определении полей таблиц в базе данных. Типы данных описываются в приведенной ниже таблице:

При первом упоминании переменной в программе вы можете объявить ее тип иных, добавив справа к имени переменной символ описания типа, указанный в третьей колонке таблицы. Например, переменная с именем Mylnt% имеет тип иных Integer. Если некоторая переменная в программе не объявлена явно и имя не снабжено символом описания типа, то Access назначает ей тип данных iriant. Обратите внимание, что хотя тип данных Variant наиболее гибок фактически он используется в качестве типа данных для всех элементов управления форм и отчетов, работа с ним менее эффективна, так как Access должен предпринимать дополнительные усилия для определения текущего типа данных переменной перед ее использованием в программе. Variant -- единственный тип данных, позволяющий переменной принимать значение Null,

ТИПЫ ДАННЫХ И ЗНАЧЕНИЙ
Типы данных	Префикс	Символ описания	Размер	Значение (может содержать)
Integer	Int	%	2 байта	Короткое целое число: от -32 768 до +32 767
Long	Lng	&	4 байта	Длинное целое число: от -2 147 483 648 до + 2 147 483 647
Single	Sng	1	4 байта	Число с плавающей точкой одинарной точности: от -3,4Е38 до +3.4Е38
Double	Dbl	#	8 байт	Число с плавающей точкой двойной точности: ОТ-1.79Е308 до 1.79Е308
Byte	Byt	(нет)	1 байт	Байт: от 0 до 255
Currency	Cur	. @	8 байт	Число с фиксированной точкой: от -922 337 203 685 477,5808 до +922 337 203 685 477,5807
String	Str	$	10 байт +2 байта На символ	Строка: от 0 до 65535 символов
Boolean	Bin	(нет)	2 байта	Булевское число: True или False
Date	Dat	(нет)	8 байт	Дата и время
Variant	Var	(нет)	1< 16 байт	Любые данные (универсального типа, определяемые пользователем)
Object	Obi	(нет)		Любая ссылка (указатель) на объект

По умолчанию Access включает инструкцию Option Explicit в раздел описаний каждого модуля. Это помогает избежать ошибок при использовании в программе переменной, которая не описана явно в инструкциях Dim, Public, ReDim, Static или Type или в списке аргументов инструкций Function или Sub (см. следующий раздел). Использование инструкции Option Explicit поможет обнаружить переменные, имена которых написаны с ошибками.

Тип данных Object используется при описании переменных, которые могут содержать определения объектов. Объектные типы данных -- это Application (Приложение), Container (Контейнер), Control (Элемент управления), Form (Форма), Database (База данных), Document (Документ), Error (Ошибка), Field (Поле), Group (Группа), Index (Индекс), Parameter (Параметр), Property (Свойство), QueryDef (Запрос), Recordset (Набор записей), Relation (Связь), Report (Отчет), Table-Def (Таблица), User (Пользователь) и Workspace (Сеанс работы).

Область определения переменных и констант

Область определения переменной или константы определяется тем, известны ли они только одной процедуре, всем процедурам в модуле или всем процедурам в базе данных. Иначе говоря, область определения переменной (или константы) определяется используемыми при ее описании ключевыми словами, а также областью описания -- на уровне модуля или на уровне процедуры. Вы можете создавать так называемые общие (Public) переменные или константы, доступные для любой процедуры в базе данных, и личные (Private) переменные или константы, применяемые только в процедурах конкретного модуля или даже в единственной процедуре (локальные переменные). Вы можете передавать значение переменной из одной процедуры в другую, используя список аргументов, причем переменные могут быть известны в обеих процедурах под различными именами.

Для определения общей переменной используйте инструкцию Public в разделе описаний общего модуля. Вы можете объявить общую константу, используя ключевое слово Public в инструкции Const в разделе описаний модуля. Инструкция и ключевое слово Public заменяют инструкцию и ключевое слово Global, применявшиеся в предыдущих версиях Access.

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

Инструкция Const

Инструкция Const используется для определения константы.

Синтаксис:

[Public I Private] Const [имя-константы [As тип-данных] = --л. <константное выражение>),...

Пример:

Для того чтобы определить константу PI, которой можно будет пользоваться во вex процедурах всех модулей, введите в разделе описаний любого общего моду ля следующую инструкцию:

Public Const PI = 3.14159

Инструкция Dim

Используйте инструкцию Dim в разделе описаний модуля, чтобы объявить переменную или массив переменных, которые можно будет использовать во всех процедурах этого модуля. Используйте инструкцию Dim внутри некоторой процедуры для объявления локальной переменной, доступной только для этой процедуры.

Синтаксис:

Dim {имя-переменной [([<границы-массива>],...)]--я. [As [New] тип-данных]}, ...

де <границы-массива> есть

[нижняя-граница То ] верхняя-граница

Примеры:

Чтобы объявить переменную с именем intMyInteger как целочисленную, введите:

Dim intMyInteger As Integer

Чтобы объявить переменную с именем dbMyDatabase как объект типа Database, введите:

Dim dbMyDatabase As Database

Чтобы объявить массив с именем StrMy'String, который содержит строки фиксированной длины по 20 символов, причем 50 элементов массива пронумерованы от 51 до 100, введите:

Dim strMyString (51 То 100) As String * 20

При создании сложных процедур имеет смысл использовать в качестве префиксов имен переменных обозначения типов данных. Это поможет вам убедиться, что вы не пытаетесь выполнить присваивание или вычисления с использованием несовместимых типов данных. (Например, употребление таких имен сделает очевидным, что попытка присвоить переменной с типом данных Integer значение с типом данных Long может вызвать ошибку.) Это также поможет вам проверить, что вы передаете в качестве аргументов процедур переменные подходящих типов. Наконец, включение префиксов в имена гарантирует, что вы не создадите имени переменной, которое совпадает с зарезервированным словом Access. В следующей таблице предложены префиксы, используемые для переменных наиболее употребительных типов данных:

Инструкция Public

Используйте инструкцию Public в разделе описаний общего модуля либо модуля формы или отчета, чтобы объявить переменные, доступные для всех процедур базы данных.

Синтаксис:

Public [имя-переменной [ ([<границы-массива>] ,. . .)]-[As [New] тип-данных}},...

,е <границы-массива> есть

[нижняя-граница То ] верхняя-граница

только в тот период времени, когда открыты соответствующие формы или отчеты

Синтаксис:

Static {имя-переменной [ ({<границы-ыассива>} , .. .)]--» [As [New] тип-данных]},...

где <границы-массиво> есть

[нижняя-граница То ] верхняя-граница

Примеры:

Чтобы объявить статическую переменную с именем intMyInteger как целую, введите:

Static intMyInteger As Integer

Чтобы объявить статический массив с именем strM у String, который содержит строки фиксированной длины по 20 символов, причем 50 элементов массива пронумерованы от 51 до 100, введите:

Static strMyString (51 То 100) As String * 20

Инструкция Type

Используйте инструкцию Type в разделе описаний модуля для создания собственного типа данных в виде структуры, содержащей одну или несколько переменных.

Синтаксис:

[Public I Private] Type имя-типа {имя-переменной As тип-данных}

End Type

Пример:

Чтобы определить специальный тип данных My Record, содержащий длинное целое и три текстовых поля, затем объявить переменную usrContacts с этим типом данных и присвоить первой текстовой переменной значение Jones, введите:

Type MyRecord

IngID As Long strLast As String strFirst As String strMid As String End Type Внутри процедуры введите:

Dim usrContacts As MyRecord usrContacts.strLast = "Jones"

Access предполагает, что [tbIClubs] ссылается на имя объекта в назначаемом по умолчанию семействе базы данных.

Чтобы создать объектную переменную, ссылающуюся на поле Notes в таблице tbIClubs, используя только что определенную переменную tbIMyTable, введите:

Dim fIdMyField As Field Set fIdMyField = tbIMyTable![Notes]

Методы объектов

Когда нужно выполнить некоторое действие с объектом в базе данных (например, открыть запрос как набор записей или перейти к следующей строке в наборе записей), вы можете применить метод объекта или объектной переменной, которая указывает на этот объект. В некоторых случаях методы используются для создания новых объектов. Многие методы имеют аргументы, позволяющие уточнить, как они должны действовать на объект. Например, при применении метода OpenRecordset к таблице вы можете создать динамический набор записей (обновляемый набор записей) либо статический набор записей, применяемый только для просмотра.

Microsoft Access поддерживает множество различных методов. Пожалуй, наиболее полезной является группа методов, позволяющая создать набор записей, а затем прочитать, обновить, вставить или удалить строку из набора данных.

Чтобы создать набор записей, сначала надо объявить объектную переменную типа Recordset. Затем откройте набор записей, применив метод OpenRecordset к текущей базе данных (указав имя таблицы, имя запроса или инструкцию SQL), объекту QueryDef, TableDef или другому объекту Recordset. Аргументы метода OpenRecordset позволяют открыть набор записей как таблицу (в этом случае для последующего быстрого поиска записей с использованием индексов можно применять метод Seek), как динамический набор записей или как статический набор записей. Для обновляемых наборов записей (таблиц или динамических наборов записей) можно запретить его обновление или чтение другими пользователями, открыть набор записей только для добавления или открыть набор записей как статический с последовательным доступом (что разрешает продвигаться по записям только в одном направлении: от начала набора записей к его концу).

Например, чтобы объявить набор записей для таблицы tbIClubs в базе данных Entertainment Schedule и открыть его как таблицу (так вам будут доступны индексы), введите следующий фрагмент программы:

Dim dbEntSched As Database

Dim rcdClubs As RecordSet Set dbEntSched = CurrentDbO

Set rcdClubs = dbEntSched.OpenRecordset("tbIClubs", _ dbOpenTable)

Чтобы открыть запрос qryActivePaidContracts как динамический набор записей, введите:

Dim dbEntSched As Database Dim rcdAPContracts As RecordSet Set dbEntSched = CurrentDbO Set rcdAPContracts = _ dbEntSched.OpenRecordSet ("qryActivePaidContracts")

(Обратите внимание, что если в качестве источника используется запрос, то по умолчанию открывается динамический набор записей.)

После открытия набора записей для перехода к определенной записи вы можете использовать один из методов Move. Чтобы перейти к первой, последней, следующей или предыдущей строке набора записей, применяйте соответственно методы MoveFirst, MoveLast, MoveNext или MovePrevious. Для перехода к определенной строке в наборе записей, удовлетворяющей заданным условиям, используется один из методов Find с заданием строковой переменной, содержащей условие поиска. Синтаксис условия такой же, как для предложения WHERE в SQL (см. главу 11 «Создание запросов с использованием SQL»), но само ключевое слово WHERE указывать не нужно. Например, чтобы найти первую строку в наборе записей запроса qryActivePaidContracts, в которой значение поля AmountOwed превышает 100 долларов, введите:

rcdAPContracts.FindFirst "AmountOwed > 100"

Если нужно удалить строку из обновляемого набора записей, переместитесь к этой строке и затем примените метод Delete. Например, чтобы удалить первую строку из набора записей запроса qryActivePaidContracts, в которой значение поля AmountOwed равно 0, введите:

Dim dbEntSched As Database Dim rcdAPContracts As RecordSet Set dbEntSched = CurrentDbO Set rcdAPContracts = _

dbEntSched.OpenRecordSet ("qryActivePaidContracts") rcdAPContracts.FindFirst "AmountOwed = 0" ' Проверка свойства набора записей NoMatch If Not rcdAPContracts.NoMatch Then

rcdAPContracts.Delete End If

Для обновления содержимого некоторых строк в наборе записей перейдите к первой изменяемой строке и примените метод Edit, чтобы заблокировать запись и разрешить ее обновление. После этого вы можете по имени обратиться к любому полю записи и изменить его значение. Перед переходом к другой строке используйте метод Update для сохранения изменений. Например, чтобы в наборе записей запроса qryActivePaidContracts увеличить на 10 процентов значение поля AmountOwed в первой строке, содержащей значение, превышающее 100 долларов, введите:

Dim dbEntSched As Database

Dim rcdAPContracts As RecordSet Set dbEntSched = CurrentDbO

Set rcdAPContracts = _

dbEntSched.OpenRecordSet("qryActivePaidContracts") rcdAPContracts.FindFirst "AmountOwed > 100" ' Проверка свойства набора записей NoMatch If Not rcdAPContracts.NoMatch Then

rcdAPContracts.Edit

rcdAPContracts![AmountOwed] = _ rcdAPContracts![AmountOwed] * 1,1

rcdAPContracts.Update End If

Наконец, для вставки новой строки в набор записей, используйте метод AddNew. После установки значений полей в строке примените метод Update для сохранения новой записи. Например, чтобы включить сведения о новом клубе в таблицу tbICIubs базы данных Entertainment Schedule, введите:

Dim dbEntSched As Database

Dim rcdClubs As RecordSet

Set dbEntSched = CurrentDbO

Set rcdClubs = dbEntSched.OpenRecordSet("tbICIubs")

rcdClubs.AddNew

rcdClubs![ClubName] = "Winthrop Brewing Co. "

rcdClubs![SreetAddress] = "155 Riverside Ave."

rcdClubs![City] = "Winthrop"

rcdClubs![State] = "WA"

rcdClubs![ZipCode] = "98862"

rcdClubs![ClubPhoneNumber] = "(509) 996-3183"

rcdClubs.Update

Более подробная информация о методах различных объектов приведена в разделе «Методы» справочной системы Microsoft Access.

2.3 Функции и подпрограммы

В Visual Basic для приложений имеются два типа процедур -- функции (процедуры Function) и подпрограммы (процедуры Sub). На языке VBA процедура -- это самостоятельная замкнутая программная единица, включающая операторов описания локальных данных процедуры и операторов, которые выполняются в ней.

Процедуры обоих типов могут иметь аргументы -- переменные, с помощью которых вы передаете значения, определяющие работу процедуры при конкретном вызове. Функция может возвратить единственное значение, а подпрограмма значений не возвращает. Кроме того, функции можно выполнять из любого места Microsoft Access, в том числе из выражений в запросах и из макросов. Подпрограмму можно выполнить только при вызове ее из функции, из другой подпрограммы или как процедуру обработки события в форме или отчете.

Инструкция Function

Инструкция Function используется для объявления новой функции, описания ее аргументов, типа возвращаемого значения и исходного текста программы функции.

Синтаксис:

[Public I Private] [Static] Function имя-функции --^ ([<аргументы>]) [As тип-данных]

[<инструкции-тела-функции>]

[имя-функции = <выражение>]

[Exit Function]

[<инструкции-тела-функции>]

[имя-функции = <выражение>] End Function

где <аргументы> -- это

{ [Optional] [ByVal I ByRef] [ParamArray] имя-аргумента --^ [As тип-данных} ], . . .

Пример:

Чтобы создать функцию с именем My Function, принимающую целочисленный и строковый аргументы и возвращающую значение с плавающей точкой двойной точности, введите:

Function MyFunction (intArg! As Integer, strArg2 As String) As Double

<инструкции-тела-функции> End Function

Инструкция Sub

Инструкция Sub используется для объявления новой подпрограммы, описания ее аргументов и исходного текста процедуры.

Синтаксис:

[Public | Private] [Static] Sub имя-подпрограммы --».

([<аргументы>]) [As тип-данных]

[ <инструкции-тела-подпрограммы> ]

[Exit Sub]

[ <инструкции-тела-подпрограммы> ] End Sub

где <аргументы> -- это

{ [Optional] [ByVal | ByRef] [ParamArray] имя-аргумента --а. [As тип-данных} } , . . .

Пример:

Чтобы создать подпрограмму с именем MySub, которая принимает два строковых аргумента, но может изменять только второй аргумент, введите:

Sub MySub (ByVal strArg! As String, strArg2 As _ String)

<инструкции-тела-подпрограммы> End Sub

Управление выполнением программы

VBA предоставляет целый ряд способов управления ходом выполнения инструкций в процедурах. Вы можете вызывать другие процедуры, организовывать циклическое выполнение блока инструкций заданное число раз или до тех пор, пока некоторое условие остается истинным. Вы можете также передать управление конкретной инструкции процедуры или в любой момент времени выйти из нее. В следующих разделах рассматриваются некоторые (но не все) возможности управления ходом выполнения инструкций в процедурах VBA.

Инструкция Call

Инструкция Call используется для передачи управления процедуре Sub.

Синтаксис:

Call имя-подпрограммы [(<аргументы>)] или

имя-подпрограммы [<аргументы>] где <аргументы> -- это

{ [ByVal | ByRef] <выражение>}, . . .

Примеры:

Чтобы вызвать подпрограмму с именем MySub и передать ей целую переменную и выражение, введите:

Call MySub (intMyInteger, curPrice * intQty) Другой синтаксически правильный способ вызова -- MySub intMyInteger, curPrice * intQty

Инструкция Do... Loop

Инструкция Do... Loop используется для определения блока инструкций, выполнение которого будет повторяться до тех пор, пока заданное условие является истинным.

Синтаксис:

Do [{While Until} <условие>]

[<инструкции-тела-цикла>]

[Exit Do]

[<инструкции-тела-цикла>] Loop или

Do

[<инструкции-тела-цикла>] [Exit Do]

[<инструкции-тела-цикла>] Loop [{While I Until} <условие>]

Пояснения:

Пример:

Чтобы прочитать все строки таблицы tbICIubs, пока не будет достигнут конец набора записей, введите:

Dim dbEntSched As Database

Dim rcdClubs As RecordSet

Set dbEntSched = CurrentDbO

Set rcdClubs = dbEntSched.OpenRecordSet("tbICIubs")

Do Until rcdClubs.EOF

<инструкции-тела-цикла>

rcdClubs.MoveNext Loop

Инструкция For... Next

Инструкция For... Next позволяет выполнить последовательность инструкции определенное число раз.

Синтаксис:

For счетчик = начальное-значение То конеуное-знауение[81ер шаг]

[<инструкции-тела-цикла>]

[Exit For]

[<инструкции-тела-цикла>] Next [счетчик]

Пример:

Чтобы в окне отладки вывести имена первых пяти запросов в базе данныз Entertainment Schedule, введите:

Dim dbEntSched As Database Dim inti As Integer Set dbEntSched = CurrentDbO For inti = 0 To 4

Debug.Print dbEntSched.QueryDefs(inti).Name Next inti

Инструкция For Each... Next

Инструкция For Each... Next позволяет выполнить блок инструкций процедурь для каждого элемента массива или семейства.

For Each элемент In группа

[<инструкции-тела-цикла>]

[Exit For]

[<инструкции-тела-цикла>] Next [элемент]

Пример:

Для вывода списка всех запросов в базе данных Entertainment Schedule можно использовать следующий цикл For Each:

Dim dbEntSched As Database

Dim qdf As QueryDef

Set dbEntSched = CurrentDbO

For Each qdf In dbEntSched.QueryDefs

Debug.Print qdf.Name Next qdf

Инструкция GoTo

Инструкция GoTo используется для выполнения безусловного перехода к другой инструкции в процедуре.

Синтаксис:

GoTo { метка | номер-строки}

Пример:

Чтобы перейти к строке с меткой SkipOver, введите:

GoTo SkipOver

Инструкция If...Then... Else

Инструкция If...Тhen... Else используется для выполнения той или друго! группы инструкций в зависимости от значений условных выражений.

Синтаксис:

!f <условие-1> Then

[ Инструкции-процедуры-!^ [Elself условие-2 Then

[<инструкции-процедуры-2>]]... [Else

[<инструкции-процедуры-п>]] End If

или

If <условие> Then <инструкция-то> [Else <инструкция-иначе>'

Пример:

Чтобы присвоить целочисленное значение переменной в зависимости от того, начинается ли строка символов с буквы в интервале от А до F, от G до N либо от О до Z, введите:

Dim strMyString As String, strFirst As String, _

intVal As Integer

strFirst = UCase$(Mid$(strMyString, 1, 1)) If strFirst >= "A" And strFirst <= "F" Then

intVal = 1 Elself strFirst >= "G" And strFirst <= "N" Then

intVal = 2 Elself strFirst >= "0" And strFirst <= "Z" Then

intVal = 3 Else

intVal = 0 End If

Инструкция Select Case

Инструкция Select Case используется для выполнения групп инструкций в зависимости от результата сравнения некоторого выражения со списком или диапазоном значений.

Синтаксис:

Select Case <проверяемое-выражение> [Case <список-сравнения-1> [ Инструкции-процедуры-1>] ]

[Case Else

[<инструкции-процедуры-п>'\ ] End Select

где <проверяемое-выражение> -- это некоторое числовое или строковое выражение, а <список-сравнепия> есть

{<элемент-сравнения>,...} где <элемент-сравнения> это

[выражение | выражение! То выражение 2 |--ь Is <оператор-сравнения> выражение}

и где <оператор-срав11ения> есть:

{= 1 о 1 < 1 > I <= I >=}

Пример:

Чтобы присвоить целочисленное значение переменной в зависимости от того, начинается ли строка символов с буквы в интервале от А до F, от G до N либс от О до Z, введите:

Dim strMyString As String, intVal As Integer Select Case UCase$(Mid$(strMyString, 1, 1)) Case "A" To "F"

intVal = 1 Case "G" To "N"

intVal == 2 Case "0" To "Z"

intVal = 3 Case Else

intVal = 0 End Select

Инструкция Stop

Инструкция Stop приостанавливает выполнение процедуры.

Синтаксис:

Stop

Инструкция While...Wend

Инструкция While... Wend используется для повторного выполнения блока инструкций до тех пор, пока условие остается истинным.

Синтаксис:

While <условие>

[<инструкции-тела-цикла>] Wend

Пример:

Чтобы прочитать все строки в таблице tbICIubs, пока не встретится конец набора записей, введите:

Dim dbEntSched As Database

Dim rcdClubs As RecordSet

Set dbEntSched = CurrentDbO

Set rcdClubs = dbEntSched.OpenRecordSet("tbICIubs")

While Not rcdClubs.EOF

<инструкции-тела-процедуры>

rcdClubs.MoveNext Wend

Инструкция With

Инструкция With позволяет выполнить последовательность инструкций, не повторяя имя указанного объекта в ссылках на семейства, объекты, свойства и методы.

Синтаксис:

With <объект> [<инструкции>] End With

Пример:

Чтобы добавить новую строку в таблицу, используя краткую запись ссылок, в которых участвует объект типа Recordset, введите:

Dim rst As qdf Recordset, db As Database Set db = CurrentDbO

Set rst = db.OpenRecordset("MyTable", db.OpenDynaset, _

dbAppendOnly) With rst

' Создание новой записи

*Addnew

' Установка значений полей

![FieldOne] = "1"

![FieldTwo] = "John"

![FieldThree] = "Viescas"

.Update

.Close End With

Запуск макрокоманд

Visual Basic для приложений позволяет выполнять многие макрокоманды Прямые эквиваленты VBA существуют только для некоторых макрокоманд. Для выполнения макрокоманд используются методы объекта DoCmd.

Объект DoCmd

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

Синтаксис:

DoCmd. метод [аргумент], . . .

Примеры:

Чтобы открыть форму Customer для ввода данных в режиме формы, введите:

DoCmd.OpenForm "Customer", acNormal, , , acAdd Чтобы закрыть форму Supplier, введите:

DoCmd.Close acForm, "Supplier"

Макрокоманды и их эквиваленты в vba

Некоторые макрокоманды не могут быть выполнены из процедуры VBA. Однако для них в Visual Basic для приложений существуют эквивалентные инструкции (см. приведенную ниже таблицу).

AddMenu Нет эквивалента

MsgBox Инструкция или функция MsgBox

RunApp функция Shell

RunCode Инструкция Call или функция Execute

SendKeys Инструкция SendKeys

SetValue Присвоение значения переменной (=)

StopAIIMacros Инструкция Stop или End

StopMacro Инструкция Exit Sub или Exit Function

Обработка ошибок

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

Инструкция On Error

Инструкция On Error используется для включения режима перехвата ошибок, передачи управления в блок обработки ошибок или для того, чтобы игнорировать некоторые ошибки или вовсе отключить режим перехвата ошибок.

Синтаксис:

On Error (GoTo идентификатор-строки | Resume [Next] I GoTo

Примеры:

Чтобы включить режим перехвата ошибок, но продолжить выполнение пр( дуры со следующей инструкции, введите:

On Error Resume Next

Чтобы включить режим перехвата ошибок и передать управление инструкщ меткой My Error в случае возникновения ошибки, введите:

On Error GoTo MyError:

Чтобы отключить режим перехвата ошибок в текущей процедуре, введите:

On Error GoTo 0

Размещено на Allbest.ru

...