Файл: Е.А. Бессонов Access. Пользовательские функции.pdf

10

Select Case ПредСим

Case “A” To “Z”, “a” To “z”, “А” To “Я”, “а” To “я” Mid$(S,n,1) = LCase(ТекСим)

Case Else

Mid$(S,n,1) = UCase(ТекСим) End Select

ПредСим = ТекСим

Next n

Proper = CVar(S) End Function

Вначале аргумент Х проверяется встроенной функцией IsNull. Если аргумент пуст, то выполняется инструкция Exit Function. Происходит выход из процедуры без выполнения каких-либо действий. Если аргумент имеет значение, то оно преобразуется функцией Cstr в тип String (строка).

Цикл For перебирает все символы строки от первого до последнего. Номер последнего символа определяется встроенной функцией Len, возвращающей количество символов в строковом аргументе. В теле инструкции For очередной символ подвергается преобразованию.

Очередной символ выделяется функцией Mid$. Знак $ означает, что результат функции выдается в виде строки. Из строки S (первый аргумент) выделяется 1 символ (третий аргумент), начиная с позиции n (второй аргумент). Таким образом, переменная ТекСим теперь содержит очередной (текущий) символ.

Выражением в инструкции Select является переменная ПредСим (предыдущий символ). Вариант Case выполняется в случае, если предыдущий символ - буква. В этом случае текущий символ функцией LCase преобразуется к нижнему регистру, если не буква - к верхнему. Затем предыдущий символ заменяется на текущий. Если обрабатывается первый символ, то ПредСим имеет инициализированное (Empty) значение, и выполняется вариант Case Else.

DoCmd

Большие возможности предоставляют методы объекта DoCmd, реализующие выполнение макрокоманды из процедуры VBA DoCmd.макрокоманда [аргументы]

Макрокоманда - название макрокоманды на английском языке. По форме это метод объекта DoCmd.

11

Число и тип аргументов зависят от того, какую макрокоманду следует запустить. Например, макрокоманда ВыводНаЭкран имеет аргументы “Включить вывод”(с возможными значениями Да или Нет) и “Сообщение”. Первый аргумент используется для включения или отключения обновления экрана, а второй - для задания строки текста, которая будет выведена в строке состояния. По названию макрокоманды (например Echo) в справке можно найти описание аргументов и допустимых встроенных констант.

Пример

DoCmd.Echo False, “Обновление экрана отключено”

Если макрокоманда требует задания нескольких аргументов, то для их разделения используются запятые. Например, два аргумента макрокоманды Закрыть (Close), указывающие тип и имя закрываемого объекта базы данных, разделены запятой:

DoCmd.Close acForm, “Новый товар”

Первый аргумент, acForm, является встроенной константой MS Access, которая указывает, что закрываемый объект является формой.

Некоторые макрокоманды могут принимать необязательные аргументы. Если эти аргументы не будут указаны при вызове, то MS Access будет использовать их заданные по умолчанию значения. Так, например, макрокоманда Закрыть(Close) имеет аргументы “Тип объекта” и “Имя объекта”. Если опустить оба аргумента, MS Access закроет активный объект базы данных, какого бы типа он ни был: DoCmd.Close

Если требуется пропустить необязательный аргумент и в то же время указать аргумент, стоящий после необязательного, то нужно добавить в инструкцию запятую, которая отмечает место пропущенного аргумента. Например, приведенная ниже макрокоманда СдвигРазмер (MoveSize) использует заданные по умолчанию (текущие) значения для аргументов “Вправо” и “Вниз”, но определяет значения аргументов “Ширина” и “Высота”:

DoCmd.MoveSize , , 5000,3000

Некоторые макрокоманды в VBA выполнить нельзя.

Рассмотрим для примера макрокоманду ПанельИнструментов, которая выводит на экран или убирает с экрана любую стандартную или пользовательскую панель инструментов и имеет два аргумента. Первый аргумент задает имя панели. Второй аргумент определяет, скрыть панель (константа acToolbarNo) или вывести на экран (константа

12

acToolbarYes). Для этих целей можно использовать две следующие функции:

Function ПоказПанели() DoCmd.ShowToolbar “Панель 1”, acToolbarYes End Function

‘

Function СпрятатьПанель() DoCmd.ShowToolbar “Панель 1”, acToolbarNo End Function

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

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

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

Закрытие =СпрятатьПанель()

При каждом открытии формы наступает событие Открытие, и вычисляется соответствующее выражение. На экране появляется панель с именем “Панель 1”. При закрытии формы эта панель исчезает.

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

Function ПоказатьПанель(Имя, Показать) If Показать Then

DoCmd.ShowToolbar Имя, acToolbarYes

Else

DoCmd.ShowToolbar Имя, acToolbarNo End If

End Function

Свойства формы теперь надо записать иначе.

13

Открытие =ПоказатьПанель(“Панель 1”,Истина) Закрытие = ПоказатьПанель(“Панель 1”,Ложь)

В справке можно найти описание, формат любой макрокоманды и используемые константы. Так, если установить курсор на слове ShowToolbar и нажать F1, то можно получить по этому слову подробную справку.

Отметим, что в старых версиях у констант применялся префикс A_ (например A_Toolbar_Yes), а теперь ac (acToolbarYes). Для разделения отдельных слов ранее использовался знак подчеркивания (“_”). Теперь отдельные слова в составном имени пишутся слитно, но каждое слово пишется с заглавной буквы (например acToolbarNo). Access 2000 может воспринимать оба вида префиксов.

DoMenuItem

Очень мощной макрокомандой является RunCommand, которая позволяет выполнять команды меню или панелей инструментов. Для совместимости со старыми версиями Access сохранена макрокоманда DoMenuItem, которую рассмотрим на примере Access 2 с форматом DoCmd.DoMenuItem Меню, Название меню, Команда, Подкоманда, Версия

Эта макрокоманда позволяет выполнить любой пункт любого меню. Аргументы задаются номерами строк в соответствующих списках. Макрокоманда КомандаМеню имеет те же аргументы. Если раскрыть список Меню (первый аргумент), появится список всех допустимых для использования строк меню

15

Эта команда отменяет действие фильтра.

Некоторые команды имеют подкоманды. Так, например, если выбрать команду Перейти, появляется возможность выбора подкоманды из списка.

Команда

DoCmd.DoMenuItem A_Formbar, A_RecordsMenu, 1 , 1

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

Команда DomenuItem удобна, когда ведет к немедленному исполнению, а не к открытию окна диалога для задания дополнительных параметров.

Работа с датами

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

Function ДнейВМесяце (Дата) As Integer D1 = DateSerial (Year(Дата), Month(Дата), 1)

D2 = DateSerial (Year(Дата), Month(Дата) + 1, 1)

ДнейВМесяце = D2 - D1 End Function

Вначале функция ДнейВМесяце вычисляет две даты. D1 представляет собой первое число месяца, извлеченного из аргумента Дата, D2 - первое число следующего месяца. Следует учитывать, что дата в Access представляется в виде числа. Целая часть числа - количество дней после некоторой начальной даты, дробная - доля суток, прошедшая после полуночи. Разность дат - число. В нашем случае это число дней в месяце, к которому относится аргумент функции.

Function Високосный(Год) As Integer

Високосный = (ДнейВМесяце(DateSerial(Год,2,1)) = 29) End Function

Функция выдает результат сравнения числа 29 с числом дней в феврале года, заданного аргументом функции. Год в аргументе должен

16

быть задан четырехзначным числом. Результат сравнения - Истина или Ложь, но представленный целым числом (тип Integer). В Access логические значения представляются целыми числами. Ложь представляется нулем, Истина - числом -1. Любое число, отличное от 0, воспринимается как Истина.

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

Function ДнейНедели(Дата, ДеньНедели As Integer) As Integer

Месяц = Month(Дата)

День = DateSerial(Year(Дата), Месяц, 1) Do While WeekDay(День) <> ДеньНедели

День = День + 1

Loop n = 0

Do While Month(День) = Месяц n = n + 1

День=День + 7

Loop

ДнейНедели = n End Function

Под днем недели понимается номер в диапазоне от 1 до 7, причем воскресенье имеет номер 1, вторник -3, а суббота -7. Функции также передается дата (аргумент Дата), из которой с помощью встроенной функции Month извлекается номер месяца. Переменной День присваивается дата, относящаяся к первому числу этого месяца. Затем используется цикл вида

Do While Условие Инструкции

Loop

Цикл Do...Loop обычно применяется, когда заранее нельзя определить число повторений цикла. Тело цикла (инструкции) выполняется, пока (while) выполняется условие или до (until) выполнения условия. Если условие выполняется, то выполняются и инструкции (тело цикла), в противном случае - выход из цикла. Ключевое слово Loop возвращает к началу цикла, и действия повторяются. Конструкцию While Условие