Access 2007

Далее приведен пример, который просто отображает код нажатой клавиши в окне сообщения:

Private Sub MyTextBox_KeyPress(KeyAscii As Integer) MsgBox "Вы нажали клавишу с кодом: " & KeyAscii End Sub

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

метром.

Примечание

Формально параметры — разновидность переменных. Переменные — это удобные контейнеры, хранящие некоторые данные. (Эти данные могут меняться, поэтому их и назвали переменными.) Вы узнаете больше об использовании переменных а разд. "Хранение информации в переменных" главы 17.

Далее приведен пример для события Перемещение указателя (On Mouse Move), которое возникает при перемещении указателя мыши поверх элемента управления. Открывающееся объявление процедуры такой длины, что приходится разделить его на две строки с помощью знака подчеркивания:

Private Sub SomeControl_MouseMove(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

End Sub

В данном случае вы получаете четыре порции данных. Параметр Button обозначает, какие кнопки мыши нажаты в данный момент. Параметр Shift показывает, удерживаются ли нажатыми во время перемещения мыши клавиши <Shift>, <Ctrl> и <Alt>. И, наконец, параметры X и Y определяют местоположение указателя мыши (его координаты).

Применение объектов

Теперь, когда вы познакомились с основами языка Visual Basic, вам, наверное, не терпится начать писать реальный программный код. В следующих разделах представлены два примера, заставляющие элементы управления работать.

Подсказка

Если хотите знать больше, можно найти подробное руководство по применению объектов в справочной, системе Access. Для получения справки выберите в редакторе VESA2 Help → Справка: Microsoft Visual Basic (Help → Microsoft Visual Basic Help). Дальше последовательно выберите следующие темы: Visual Basic for Applications Language Reference → Microsoft Forms Visual Basic Reference → Reference. Затем вы увидите список всех объектов, предлагаемых программой Access (щелкните мышью строку Objects) или сформируйте комбинированный список событий, методов и свойств, предлагаемых объектами Access (щелкните кнопкой мыши строку Events, Methods или Properties).

2 Справка редактора VBA приводится на английском языке. —. Пер.

561

Обозначение измененной записи

Редактирование записи — двухэтапный процесс. Сначала вы изменяете одно или несколько значений полей, что переводит запись в режим редактирования. Затем вы закрываете форму или переходите к другой записи, что фиксирует внесенные вами изменения. Или вы нажимаете клавишу <Esc> для отмены изменений и затем возвращаетесь к первоначальным значениям.

Если вы пользуетесь панелью Запись (Record Selection) (при условии, что в свойстве Кнопки перехода (Record Selectors) установлено значение Да, стандартный вариант), программа Access показывает переход в режим редактирования, заменяя крошечную стрелку в верхнем левом углу формы маленькой пиктограммой карандаша. Эта пиктограмма — полезный индикатор того, что в вашей форме что-то изменено, и нужно решать, принимать ли эти изменения. Но новички программы Access, как и профессионалы, легко могут не заметить крошечную пиктограмму карандаша. Именно поэтому большинство пользователей предпочитают более явное свидетельство внесенных изменений, такое как отображение сообщения на форме или изменение цвета фона.

В следующем примере демонстрируется этот подход. Результат показан на рис. 16.8.

Для создания этого примера необходимо начать с построения подходящей формы. Возьмите обычную форму и добавьте элемент управления Подпись в раздел Примечание формы. Задайте для подписи приемлемое имя, например, InfoMessage (информационное сообщение), изменив значение свойства Имя в Окне свойств. Теперь можно начать писать программный код.

Примечание

Имена элементов управления важны. Они используются для ссылок на объекты в программном коде. Когда вы читаете фрагмент кода, никто, даже вы, не догадается, что обозначает имя Labеl44.

Прежде чем добавить ваш код к форме, необходимо определить следующее.

■Когда запустится ваш код? Иными словами, нужно указать событие, которое должно его запускать. После того как вы дали ответ на этот вопрос, можно создавать корректную процедуру.

■Что должен делать ваш код? Иначе говоря, следует решить, какие объекты использовать

икакие свойства изменять. Когда ответ найден, можно писать код в вашей процедуре.

Вданном примере необходимо реагировать на событие формы Изменение данных (On Dirty). Оно возникает, когда запись изменяется любым способом и форма переключается в режим редактирования. Если изменяются несколько значений, событие Изменение данных (On Dirty) возникает только для первого изменения. После этого форма уже находится в режиме редактирования.

Примечание

У каждого отдельного элемента управления есть собственное событие Изменение данных (On Dirty), которое происходит, когда кто-то в первый раз изменяет определенный элемент. Не стоит обращать внимание на эти события. Вам нужно использовать событие формы Изменение данных (On Dirty), таким образом вы поймаете все возможные изменения.

562

Рис. 16.8. Вверху; на первый взгляд форма кажется обычной. Внизу: если откорректировано какое-либо значение, цвет фона изменяется и в нижней части отображается текстовое сообщение

563

Далее приведена процедура, необходимая для реагирования на событие вашей формы

Изменение данных (On Dirty):

Private Sub Forrn_Dirty(Cancel As Integer) End Sub

Примечание

Эта процедура выглядит несколько иначе, чем виденные вами ранее процедуры, т. к. она включает поддержку отмены действий. Сейчас не обращайте внимания на этот параметр — вы узнаете о нем все в конце разд. "Принятие решений" главы 17.

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

Далее следует самая увлекательная часть — написание программного кода. Сначала вам нужен оператор, изменяющий цвет фона формы. У объекта Form нет свойства BackColor (цвет фона), зато такое свойство есть у объектов, представляющих отдельные разделы формы (Details (область данных), FormFooter (примечание формы) и FormHeader (заголовок формы)). Таким образом, можно применить следующий программный код: Detail.BackColor = vbRed

Необходимо также задать текст сообщения в элементе управления Подпись3: InfoMessage.Caption = "Вы изменили данную запись. " & _

"Если перейдете к другой записи, ваши изменения будут внесены. " & _ "Для отмены изменений нажмите клавишу Esc."

Поместите два оператора в процедуру Form_Dirty и все готово.

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

Если задавать цвет только с помощью ключевых слов, таких как vbRed, vbWhite и vbYellow, вы обделите себя. Существует множество пастельных тонов и волнующих оттенков, только и ждущих применения в вашем коде на языке Visual Basic. К сожалению, для задания этих цветов нельзя использовать ключевые слова. Вместо них придется применять числовые коды цветов.

Чаще всего вы не будете знать правильного числового кода для цвета, который хотите использовать. Но эту проблему можно решить с помощью удобной функции RGB, включенной в язык Visual Basic (как и функция MsgBox, которая применялась раньше). Функция RGB принимает три отдельных числа, представляющих красную, зеленую и синюю составляющие цвета, и преобразует их в код цвета, который можно использовать для задания свойств ForeColor или BackColor.

3 На рис. 16.8 текст сообщения выводится на английском языке. Вы, разумеется, можете тоже выводить текст на английском. — Ред.

564

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

Detail.BackColor = RGB(266, 160, 122)

Этот оператор выполняется в два этапа. Сначала программа Access выполняет функцию RGB для создания кода цвета. Затем она заносит код цвета в свойство BackColor. На первый взгляд преимущество применения функции RGB может показаться не столь очевидным, поскольку она требует указания трех отдельных чисел. На самом деле RGBобозначение цвета — общепринятый стандарт, применяемый в Web-пространстве и в большинстве Windows-приложений. Найти цвет можно даже в указателе цвета программы Access, а затем определить нужные RGB-компоненты, выполнив следующие действия.

1.Откройте форму в Конструкторе.

2.Выберите элемент управления и затем в Окне свойств щелкните кнопкой мыши поле Цвет текста (ForeColor) или Цвет фона (BackColor).

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

4.Выберите кнопку Другие цвета (More Colors) для отображения полного набора цветов.

5.Щелкните кнопкой мыши вкладку Спектр (Custom).

6.Выберите цвет, как показано на рис. 16.9.

7.Запишите RGB-значения. Их можно использовать в вашем программном коде.

8.Щелкните мышью кнопку Отмена (Cancel) для возврата в программу Access.

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

Для устранения ошибки необходимо отреагировать на другое событие: событие формы После обновления (After Update). Оно возникает после того, как программа Access успешно зафиксирует изменение в БД. Далее приведен код, необходимый для возврата обычного внешнего вида формы:

Private Sub Form_AfterUpdate () Detail.BackColor = vbWhite InfoMessage.Caption = "" End Sub

Примечание

He следует использовать событие До обновления (Before Update), поскольку оно возникает как раз перед фиксацией изменений. В этот момент вы не знаете, найдет ли программа Access некорректные данные, отобразит ли сообщение об ошибке и помешает ли обновлению (а в этом случае красный цвет фона следует сохранить).

565

Рис. 16.9. Для выбора цвета щелкните кнопкой мыши в цветовой сетке. (Перекрестье указывает вашу текущую позицию.) Затем используйте вертикальный ползунок для регулировки яркости цвета. Вы увидите, что по мере изменения цвета будут меняться значения Красный (Red), Зеленый (Green) и Синий (Blue)

Пример все еще не закончен. Помимо фиксации изменений пользователь может также нажать клавишу <Esc> для их отмены. На эту возможность тоже следует отреагировать и применить тот же код для возврата к обычному состоянию формы. В данном случае используется событие Отмена (On Undo):

Private Sub Form_Undo () Detail.BackColor = vbWhite InfoMessage.Caption = ""

EndSub

Этот шаг завершает пример. Для того чтобы увидеть все три процедуры вместе и испытать их в действии, загрузите из Интернета пример БД для данной главы (в разд. "Примеры" во введении объясняется, как обращаться с примерами БД).

Часто задаваемый вопрос.

Ленточные формы и неприсоединенные элементы управления

Я изменил свойство Режим по умолчанию (Default View) моей формы на значение Ленточные формы (Continuous Form), и мой программный код сошел с ума. Что произошло?

566

Режим Ленточные формы (Continuous Form) (см. разд. "Отображение нескольких записей в любой форме" главы 12) — удобный способ одновременного отображения нескольких записей на форме. Но у него появляется ряд существенных ограничений при соприкосновении с кодом. Вы увидите их, когда вставите свободные или неприсоединенные элементы управления — элементы управления, не связанные с каким-либо полем в БД. В предыдущем примере InfoMessage — образец свободного элемента управления. Ваш код применяет его для отображения текста по вашему желанию. Он не взаимодействует со значением поля в таблице.

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

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

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

Создание эффекта перемещения указателя мыши

Эффект перемещения указателя мыши (mouseover effect) — это действие, возникающее при перемещении мыши поверх какого-либо участка формы. Web-дизайнеры часто используют этот эффект для изменения внешнего вида кнопок при перемещении по ним указателя мыши.

Впрограмме Access легко создать эффект перемещения указателя. Необходимо только отреагировать на событие Перемещение указателя (On Mouse Move). Вы можете использовать событие формы Перемещение указателя (On Mouse Move), если хотите следить за перемещением мыши по всей форме. Но гораздо чаще событие Перемещение указателя (On Mouse Move) применяется к конкретным элементам управления, что позволяет определить перемещение указателя поверх этих элементов управления.

Вформе, приведенной на рис. 16.10, применяется эффект перемещения указателя мыши.

Как обычно для реализации подобного поведения, следует начать с добавления дополнительных необходимых элементов управления, например кнопки Don't Click Me (не щелкай меня мышью) и рисунка (названного HappyFace (счастливое лицо)).

Когда описанные детали добавлены, необходимо создать две процедуры. Первая реагирует на событие кнопки Перемещение указателя (On Mouse Move). Она заменяет рисунок счастливого лица рисунком с расстроенным лицом, когда мышь перемещается поверх кнопки:

Private Sub DoNotClickButton_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single)

HappyFace.Picture = "C:\Images\UnHappy.jpg" End Sub

567

Рис. 16.10. Вверху: первоначальное отображение формы. Внизу: когда мышь перемещается поверх кнопки Don't Click Me (не щелкай меня мышью), на изображении, расположенном сбоку, счастливое лицо сменяется расстроенным. Подвигайте мышь где-нибудь в другом месте, и счастливая физиономия вернется на экран

В этом коде предполагается, что файл с изображением (названный UnHappy.jpg) помещен в папку C:\Images.

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

Окно свойств (см. разд. "Помещение кода в форму "ранее в этой главе).

Подсказка

Событие Перемещение указателя (On Mouse Move) возникает очень часто. Когда мышь перемещается от одного края формы к другому, подобные события возникают многократно. По этой причине следует убедиться в быстроте выполнения написанного вами кода, реагирующего на данное событие, иначе он может сделать вашу форму медлительной.

Вторая процедура реагирует на событие Перемещение указателя (On Mouse Move) объекта формы Область данных, которая возникает, когда вы отодвигаете мышь от кнопки и

568

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

Private Sub Detail_MouseMove(Button As Integer, _

Shift As Integer, X As Single, Y As Single)

HappyFace.Picture = "C:\Images\Happy.jpg"

End Sub

У написанного кода есть один недостаток. В данный момент он рассчитывает на то, что файлы UnHappy.jpg и Happy.jpg находятся в конкретных местах жесткого диска. Эту деталь трудно гарантировать — в конце концов, кто сказал, что вы не можете перенести их куданибудь в другое место или попытаться открыть БД на другом компьютере?

Лучше поместить рисунки в ту же папку, что и файл БД. Вы можете указать программе Access на подобное местоположение с помощью следующего кода:

HappyFace.Picture = CurrentProject.Path & "\Happy.jpg"

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

Поместив эту строку, вы сможете спокойно копировать вашу БД куда угодно при условии, что файлы рисунков находятся в той же папке.

Практические занятия для опытных пользователей. Связывание записей с рисунками

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

Тем не менее вы сможете отображать рисунок в форме Access. Метод прост — выполните лишь следующие действия.

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

2.Создайте обработчик события формы Текущая запись (On Current), который запускается при каждом переходе к записи.

3.В обработчике события задайте в свойстве Picture (Рисунок) элемента управления то изображение, которое хотите вывести на экран. Если в вашей таблице есть поле, названное ImageFileName (имя файла с изображением), и элемент управления с именем Img, можно написать следующий код:

Img.Picture = CurrentProject.Path & _

"\Images\" & ImageFileName

569

В данном примере предполагается, что файлы рисунков хранятся в папке Images (изображения), находящейся в папке с файлом вашей БД. Когда форма загружается впервые (и при каждом переходе к другой записи), этот код выполняется и помещает соответствующее изображение в элемент управления Рисунок.

При использовании данного кода следует также применить обработку ошибок (см. разд. "Обработка ошибок" главы 17). Обработка ошибок важна, поскольку вы не можете быть уверены в том, что изображения не были перемещены или удалены, а если это произошло, вы заинтересованы в грамотном решении проблемы.

570