Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Лаб практикум Часть 1.doc
Скачиваний:
1
Добавлен:
25.09.2019
Размер:
990.72 Кб
Скачать

Самостоятельное задание и контрольные вопросы

  1. Создайте подобные модули и макросы для личной базы данных (см. Задание №2 на самостоятельную работу).

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

  3. Назовите основные объекты, с которыми Вы работали при выполнении обучающего и самостоятельного заданий.

  4. Какие выражения VBA были использованы Вами при создании модулей и макросов в учебной и личной базе данных? Что означают эти выражения?

Литература

Основная и дополнительная литература

1. Основная литература

1.1.

Бойс Д. Осваиваем Windows 95 (русская версия). - М.: Бином, 1997.

-416 с.

1.2.

Вейскас Дж. Эффективная работа с Microsoft Access 2000. – СПб.: Питер, 2001. – 1040 с.

1.3.

Павлова Н.Г., Румянцев С.С., Сивоволов П.Н. Практикум по вычислительной технике. Метод. указания.- Н.Новгород: ВГАВТ, 2000.

1.4.

Павлова Н.Г., Румянцев С.С., Соловьева В.Г. Проектирование базы данных. Метод. указания.- Н.Новгород: ВГАВТ, 2001.

1.5.

Пайк М. Internet в подлиннике. - СПб, BHV-Санкт-Петербург, 1997. -

640 с.

1.6.

Симонович С. Windows 98: Учебный курс. - СПб,: ПитерКом, 1999.

- 508 с.

1.7.

Фигурнов В.Э. IBM PC для пользователя: Краткий курс. 7-е изд.

-М.: Инфо-М., 1999. - 479 с.

1.8.

Экономическая информатика /Под ред. П.В.Конюховского и Д.Н.Колесова. – СПб.: Питер, 2000. – 560 с.

2. Дополнительная литература

2.1.

Симонович С.В., Евсеев Г.А., Алексеев А.Г. Windows: Лаборатория мастера: Практическое руководство по эффективным приемам работы с компьютером. – М.: АСТ-ПРЕСС:Информком-Пресс, 2001. –656 с.

2.2.

Пасько В. Access 2000 (русифицированная версия). – К.:Издательская группа BHV, 1999. – 384 с.

2.3.

Сагман С.В. Microsoft Windows. Проблемы и решения: Практ. пособ. /Пер. с англ. – М.: Издательство ЭКОМ, 2001. –432 с.

2.4.

Нортон П., Мюллер Дж. Windows 98: Пер. с англ. – СПб.: БХВ-Петербург, 2001. –598 с

2.5.

Краммеш К. Word 7.0 для занятых. - СПб.: Питер, 1997. - 320 с.

2.6.

Комягин В.Б. Программирование Excel 5.0 и Excel 7.0 на языке Visial

Basic.- М.: Радио и связь, 1997.

2.7.

Чернин А.Э., Компьютерные сети для пользователя Microsoft Windows

95: Начальный курс. - М.: “Русская редакция”, 1997. - 96 с.

Приложение 1 Структура Учебной базы данных

Имя поля

Тип данных

Размер поля

Формат

поля

Маска

ввода

Условие на значение

Обя-зат.

поле

Пус-тые стро-ки

Индексиров.

поле (совпадения)

Примечание

Таблица Специальность

КодСпециальности

Текстов.

1

>L

In ("М";"У";"Ф";"Э")

Да

Нет

Да (не допускаются)

Ключевое поле

НомерСпециальности

Текстов.

4

0000

In("0604";"0605";

"0608";"0611")

Да

Нет

Нет

НаименованиеСпециальности

Текстов.

50

Да

Нет

Нет

Таблица Дисциплины

КодДисциплины

Текстов.

9

Да

Нет

Да (не допускаются)

Ключевое поле

НаименованиеДисциплины

Текстов.

100

>L<??(99 раз)

Да

Нет

Нет

Таблица Преподаватели

КодПреподавателя

Счетчик

Длинное целое

0000

Да

Нет

Да

Ключевое поле

Фамилия

Текстов.

20

>L<?(19 pаз)

Да

Нет

Нет

Имя

Текстов.

10

>L<?(9 раз)

Нет

Нет

Нет

Отчество

Текстов.

20

>L<?(19 pаз

Нет

Нет

Нет

Таблица Студенты

КодСтудента

Текстов.

5

00000

Да

Нет

Да (не допускаются)

Ключевое поле

Фамилия

Текстов.

20

>L<? (19 раз)

Да

Нет

Да (допускаются)

Имя

Текстов.

10

>L<?(9 pаз

Нет

Нет

Нет

Отчество

Текстов.

20

>L<?(19 pаз

Нет

Нет

Нет

ДатаРождения

Дата

Краткий формат

00.00.00; 0;#

<Date()

Нет

Нет

Адрес

Текстов.

255

Нет

Нет

Нет

КодСпециальности

Текстов.

1

>L

In ("М";"У";"Ф";"Э")

Да

Нет

Да (не допускаются)

Подстановка

из табл.Специ

альность

Курс

Целое

0

Да

Нет

Подстановка

из списка

Группа

Целое

Да

Нет

Подстановка

из списка

Подгруппа

Целое

Да

Нет

Подстановка

из списка

Таблица Результаты

КодРезультата

Счетчик

Длинное целое

Да

Нет

Да (не допускаются)

Ключевое поле

КодСтудента

Текстов.

5

00000

Да

Нет

Да (не допускаются)

Подстановка

из табл.

Студенты

КодДисциплины

Текстов.

9

Да

Нет

Да (не допускаются)

Подстановка

из табл.

Дисциплины

КодПреподавателя

Числовой

Длинное целое

0000

Нет

Да (допускаются)

Подстановка

из табл.Пре-

подаватели

ДатаСдачи

Дата

Краткий формат

00.00.00;0;#

Нет

Нет

Результат

Текстов.

1

>&

In(“5”;”4”;”3”;”2”;

”+”;”-“;”П”)

Нет

Нет

Нет

Подстановка

из списка

Приложение 2

Связи между таблицами Учебной базы данных

Приложение 3

Пример запроса «Студенты по специальности»

Приложение 4

Пример запроса «Не сдали сессию»

Приложение 5

Пример запроса «Результаты студента»

Приложение 6

Пример формы «Студенты»

Приложение 7

Пример кнопочной формы «Заставка»

Приложение 8

Пример отчета «Не сдали сессию»

Приложение 9

Пример отчета «Возраст студентов»

Приложение 10

Функции и операторы VBA и MS Access

Математические функции

Функция

Возвращаемое Значение

Abs (числовое выражение)

Модуль (абсолютная величина) числа

Atn (числовое выражение)

Арктангенс

Cos (числовое выражение)

Косинус

Exp (числовое выражение)

Экспонента, т.е. результат возведения основания натурального

Log (числовое выражение)

Натуральный логарифм

Rnd (числовое выражение)

Случайное число из интервала [0,1). Если число меньше нуля, то Rnd возвращает каждый раз одно и то же число, используя аргумент в качестве опорного числа; если число больше нуля или аргумент опущен, то - следующее случайное число в последовательности; если число равняется нулю, то - случайное число, возвращённое при предыдущем вызове этой функции. Перед вызовом функции Rnd используйте инструкцию Randomize без аргумента.

Sgn (числовое выражение)

Знак числа

Sin (числовое выражение)

Синус

Sqr (числовое выражение)

Квадратный корень из числа

Tan (числовое выражение)

Тангенс

Fix (числовое выражение) и Int (числовое выражение)

Обе функции, Int и Fix, отбрасывают дробную часть числа и возвращают целое значение. Различие между функциями Int и Fix состоит в том, что для отрицательного значения аргумента число функция Int возвращает ближайшее отрицательное целое число, меньшее либо равное указанному, а Fix - ближайшее отрицательное целое число, большее либо равное указанному.

Функции проверки типов

Функция

Проверка

IsArray (переменная)

Возвращает True – если переменная типа Variant является массивом и False в противном случае

IsDate (Выражение)

Возвращает True – если Выражение является датой и False в противном случае

IsEmpty (Выражение)

Возвращает True – если Выражение типа Variant была инициализирована (или описана Dim) и False в противном случае

IsError (Выражение)

Возвращает True – если Выражение является ошибочным и False в противном случае

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

Является ли Выражение пустым значением (Null)

IsNumeric (Выражение)

Является ли Выражение числовым значением

IsObject (Ссылка)

Возвращает True – если параметр относится к типу Object и False в противном случае

TypeName (ИмяПеременной)

Возвращаемая строка содержит информацию о переменной-параметре

VarType(ИмяПеременной)

Возвращает значение типа Integer, указывающее на разновидность значения, содержащегося в Variant-переменной, передаваемой в качестве параметра

Функция

Функции преобразования

Format

Возвращает значение типа Variant (String), содержащее выражение, отформатированное согласно инструкциям, заданным в описании формата.

Синтаксис:

Format (Выражение [, Формат [, ПервыйДеньНедели [, ПерваяНеделяГода]]] )

Выражение - любое допустимое числовое выражение

ПервыйДеньНедели - постоянная, определяющая первый день недели ПерваяНеделяГода - постоянная, определяющая первую неделю года

Формат - любое допустимое именованное или определяемое пользователем выражение формата

Именованные форматы

General Number

Число без разделителя тысяч

Currency”

Денежный формат

Fixed”

Отображает, по крайней мере, одну цифру слева и две справа от десятичной точки

Standard”

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

Percent”

Отображает число в процентах с двумя знаками после десятичной точки

Scientific”

Использует формат с плавающей десятичной точкой

Yes/No”

Отображает No, если число равно нулю, и Yes – в противном случае

True/False”

Отображает False , если число равно нулю, и True – в противном случае

On/Off”

Отображает Off, если число равно нулю, и On – в противном случае

General Date”

Выводит дату или время. Если нет дробной части, то выводит только дату

Long Date”

Выводит дату в соответствии с полным форматом Windows

Medium Date”

Выводит дату в соответствии с обычным форматом Windows

Short Date”

Выводит дату в соответствии с сокращенным форматом Windows

Long Time”

Выводит часы, минуты и секунды

Medium Time”

Выводит часы и минуты в 12-часовом формате

Short Time

Выводит часы и минуты в 24-часовом формате

Символы пользовательского формата

0

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

#

Резервирует позицию цифрового разряда. Отображает цифру или ничего не отображает. Если у числа, представленного аргументом, есть какая-нибудь цифра в той позиции разряда, где в строке формата находится #, функция отображает эту функцию аргумента, если нет - в исходной позиции не отображается ничего. Действие данного символа аналогично действию 0, за исключением того, что лидирующие нули не отображаются

.

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

%

Резервирует процентное отображение числа

,

Разделитель разряда сотен от тысяч

:

Разделитель часов, минут и секунд в категории форматов Время (Time)

/

Разделитель дня, месяца и года в категории форматов Дата (Date)

Е+, Е-, е+, е-

Разделитель мантиссы и порядка в экспоненциальном формате

Кроме функций Val и Str в VBA имеются следующие функции преобразования типов выражений из данного в указанный.

Функции преобразования

Функции

Тип, в который преобразуется выражение

Asc(СтрокаСимволов)

Возвращает ASCII код первого символа строки

CBool (Выражение)

Преобразует числовое выражение или строку в булево значение (тип Boolean): True – если значение выражения отлично от нуля; False – если равно нулю

CByte (Выражение)

Преобразует числовое выражение или строку в тип Byte. Аргумент может принимать значение в диапазоне 0-255

CCur (Выражение)

Преобразует числовое выражение или строку в число денежного формата (тип Currency)

CDate (Выражение)

Преобразует числовое выражение или строку в дату (тип Date)

CDbl (Выражение)

Преобразует числовое выражение или строку в число типа Double

CDec (Выражение)

Преобразует числовое выражение или строку в число типа Decimal

CInt (Выражение)

Преобразует числовое выражение или строку в число типа Integer

CLng (Выражение)

Преобразует числовое выражение или строку в число типа Long

CSng (Выражение)

Преобразует числовое выражение или строку в число типа Singl

CVar (Выражение)

Преобразует числовое выражение или строку в число типа Variant

CStr (Выражение)

Преобразует числовое выражение или строку в строку типа String

Str (Числовое _выражение)

Преобразует числовое выражение в строку типа String. В качестве допустимого десятичного разделителя функция Str воспринимает только точку.

Val(Строка)

Преобразует строку цифровых символов в число

Функции обработки строк

Функция

Возвращаемое выражение

Синтаксис

Asc

Возвращает ASCII-код первой буквы строки

Asc (строка)

Chr

преобразует ASCII-код в строку

Chr (Код)

Например, Chr (13) - переход на новую строку, Chr (97) = "а"

Lcase

Преобразует строку к нижнему регистру

Lcase (Строка)

Ucase

Преобразует строку к верхнему регистру

Ucase (Строка)

Left

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

Left (string, lenght)

Аргументы:

lenght - число символов

string - исходная строка

Right

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

Right (string, lenght)

Аргументы:

lenght - число символов

string - исходная строка

Mid

Возвращает подстроку строки, содержащую указанное число символов

Mid (string, start[, lenght])

Аргументы:

string - строковое выражение, из которого извлекается подстрока

start - позиция символов в строке string, с которого начинается нужная подстрока

lenght - число возвращаемых символов строки

Len

Возвращает число символов строки

Len(Строка)

Ltrim

Возвращает копию строки без пробелов в начале

Ltrim(Строка)

Rtrim

Возвращает копию строки без пробелов в конце

Rtrim(Строка)

Replace

Находит и заменяет в строке подстроку другой подстрокой

Replace(Expression, Find, Replacewith [,Start[, Count [, Compare]]])

Аргументы:

Expression – строка, в которой заменяется подстрока;

Find – заменяемая подстрока;

Replacewith – подстрока, на которую заменяется подстрока, указанная в качестве значения параметра find;

Start – позиция в строке, с которой ищется подстрока, указанная в качестве значения параметра find. Если этот параметр опущен, то поиск производится с первой позиции;

Count – указывает, сколько найденных подстрок надо заменить. Если этот параметр опущен, то будут произведены все замены;

Compare – критерий сравнения при поиске подстроки. Допустимые значения: 0 (для двоичного сравнения), 1 (посимвольное сравнение без учета регистра).

Trim

Возвращает копию строки без пробелов в начале и в конце

Trim(Строка)

Space

Возвращает строку, состоящую из указанного числа пробелов

Space(Число)

String

Возвращает строку, состоящую из указанного числа повторений одного и того же символа

String (number, “character”)

Аргументы:

number - число повторений символа

character - повторяемый символ

StrComp

Возвращает результат сравнения двух строк

StrComp (string1, string2 [, compare])

Аргументы:

string1 и string2 - два любых строковых выражения compare - указывает способ сравнения строк

Допустимые значения: 0 (двоичное сравнение), 1 (посимвольное сравнение без учёта регистра)

Возвращаемые значения:

string1 меньше, чем string2, то -1 string1 равняется string2, то 0 string1 больше, чем string2, то 1

StrReverse

Возвращает строку в обратном порядке

StrReverse (string)

InStr

Возвращает позицию первого вхождения одной строки внутри другой строки

Instr([start, ]string1, string2 [, compare])

Аргументы:

start - числовое выражение, задающее позицию, с которой начинается каждый поиск. Если этот аргумент опущен, поиск начинается с перввого символа строки

string1 - строковые выражение, в котором выполняется поиск

string2 - искомое строковое выражение

compare - указывает способ сравнения строк.

Допустимые значения: 0 (для двоичного сравнения), 1 (посимвольное сравнение без учёта регистра)

Некоторые функции имеют по две версии, одна из которых возвращает тип данных Variant, а другая – тип данных String (к имени этой функции справа добавляется символ $, например, Date$()). Первая версия является более удобной, так как для значений типа Variant преобразование типов данных выполняется автоматически. Вторая версия, возвращающая тип String, использует меньше памяти и может быть полезна для экономии памяти, если в программе имеется очень много переменных, или при выполнении прямой записи данных в файлы с произвольным доступом. Функции типа String имеют такое же применение и синтаксис, как и их эквиваленты типа Variant.

Функции времени и даты

Функция

Возвращаемое значение

Синтаксис \ Примеры

Date

Возвращает значение типа Variant (Date), содержащее текущую системную дату

Time

Возвращает значения типа Variant (Date), содержащее текущее время по системным часам компьютера

Now

Возвращает значение типа Variant (Date), содержащее текущую дату и время по системному календарю и часам компьютера

Hour, Minute, Second

Возвращает значение типа Variant (Integer), содержащее целое число, которое представляет часы, минуты и секунды в значении времени

Hour (время)

Minute (время)

Second (время)

время - значение времени или выражение, его определяющее

В следующем примере переменной Час присваивается 16, Минута - 35 и Секунда - 17: РасчётнВремя = #4:35:17 РМ#

Час = Hour (РасчётеВремя)

Минута = Minute (РасчётнВремя)

Секунда = Second (РасчётнВремя)

Day, Month, Year

Возвращает целое значение Variant (Integer), содержащее целое число, которое представляет день, месяц, год в значении даты

Day(дата)

Month(дата)

Year (дата)

дата - значение даты или выражение, её определяющее

В следующем примере переменной День присваивается 17, Месяц - May, Год - 1960:

День Рождения = #May 17, 1960# День = Day (День Рождения) Месяц = Month (День Рождения) Год = Year (День Рождения)

Weekday

Возвращает значение типа Variant (Integer), содержащее целое число, представляющее день недели

Weekday (date, [firstdayofweek])

date - выражение, представляющее дату

firstdayofweek - указывает первый день недели. Если этот аргумент опущен, подразумевается vbSunday (воскресенье). Допустимы также значения: vbMonday (понедельник), vbTruesday (вторник), vbWednesday (среда), vbThursday (четверг), vbFriday (пятница) и vbSaturday (суббота) В следующем примере переменной ДеньНедели присваивается 3, т.е. вторник: ДеньРождения = #May 17, 1960# ДеньНедели = Weekday (ДеньРождения)

Timer

Возвращает значение типа Single, представляющее число секунд, прошедших после полуночи

DateDiff

Возвращает значение типа Variant (Long), указывающее число переменных интервалов между двумя датами.

DateDiff (interval, date1, date2[, firstdayofweek[, firstweekofyear]])

Аргументы:

interval - строковое выражение, указывающее тип временного интервала, который следует использовать при вычислении разности между датами date1 и date2.

Допустимые значения:

уууу (год), q (квартал), m (месяц), y(день года), d (день месяца), w (день недели), ww (неделя), h (часы), m (минуты), s (секунды) date1, date2 - значение типа Variant (Date).

Две даты, разность между которыми следует вычислить firstdayofweek - постоянная, указывающая первый день недели firstweekofyear - постоянная, указывающая первую неделю года В следующем примере переменной ПрожилМесяцевСРождения присваивается 465: ПрожилМесяцевСРождения = DateDiff ("m", #/5/17/60#, Now)

DatePart

Возвращает значение типа Variant (Integer), содержащее указанный компонент даты

DatePart (interval, date[, firstdayofweek[, firstdayofyear]])

DateAdd

Возвращает значение типа Variant (Date), содержащее дату, к которой добавлен указанный временной интервал

DateAdd (interval, number, date)

Аргументы:

interval - строковое выражение, указывающее тип добавляемого временного интервала.

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

date - значение типа Variant (Date) или литерал даты, представляющий дату, к которой добавляется указанный временной интервал В следующем примере переменной День присваивается 03/17/63: День = DateAdd ("m", 34, #05/17/60#)

TimeSrial

Возвращает значение типа Variant (Date), содержащее значение времени, соответствующее указанным часу, минуте и секунде

TimeSerial (hour, minute, second)

Аргументы:

hour, minute и second - значения типа Variant (Integer) В данном примере переменной Время присваивается 16:35:17: Время = TimeSerial (16, 35, 17)

DateSerial

Возвращает значение типа Variant (Date), соответствующее указанным году, месяцу и дню

DateSerial (year, month, day)

Аргументы:

year, month и day - значения типа Integer. В следующем примере переменной Дата присваивается 05/17/60: Дата = DateSerial (1960, 5,17)

TimeValue

Преобразует строку в формат времени

Функции выбора

Функция

Возвращаемое значение

Iif

Возвращает одну из двух альтернатив.

Синтаксис:

Iif (expr, truepart, falsepart)

expr - проверяемое выражение

truepart - значение или выражение, возвращаемое, если expr имеет значение True

falsepart - значение или выражение, возвращаемое, если expr имеет значение False

В следующем примере, если значение переменной ОценкаЦифрой равно 5, то переменной ОценкаПрописью присваивается строковая константа Отлично. В противном случае ей присваивается значение Не отлично:

ОценкаПрописью = Iif (ОценкаЦифрой = 5, "Отлично", _

"Не отлично")

Choose

Возвращает значение выбранное из списка аргументов.

Синтаксис:

Choose (индекс, вариант-1[, вариант-2, … [,вариант-n]])

индекс - числовое выражение или поле, значением которого является число, лежащее между 1 и числом элементов в списке

вариант - выражение типа Variant, содержащее один из элементов списка

Действие функции Choose: если индекс равняется 1, возвращается первый элемент списка, если индекс равняется 2, возвращается второй элемент списка и т.д.

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

В следующем примере, если аргумент Выбор принимает значение 3, то переменной РезультатВыборы присваивается значение "три":

РезультатВыборы = Choose (Выбор, "один", "два", "три")

Switch

Возвращается значение соответствующее первому истинному выражению в списке.

Синтаксис:

Switch (выражение-1, значение-1[, выражение-2, значение-2 … [, выражение-n, значение-n]])

выражение - выражение типа Variant, подлежащее вычислению

значение - возвращаемое значение или выражение, если соответствующее выражение принимает значение True

В сленующем примере функция по указанной фамилии возвращает название должности сотрудника некоторой фирмы:

Должность = Switch (Фамилия = "Парижский", "Президент", _

Фамилия = "Быстров", "Менеджер", _

Фамилия = "Курочкина", "Референт")

Встроенные диалоговые окна

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

Функция

Возвращаемое значение

Функция

InputBox

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

Синтаксис:

InputBox (promt [, title] [, default] [, xpos] _

[, ypos] [, helpfile, context])

Аргументы:

promt - строковое выражение, обозначаемое как сообщение в диалоговом окне. Строковое значение promt может содержать несколько строк. Для разделения строк допускается использование символа возврата каретки (Chr (13)), символа перевода строки (Chr (10)) или комбинацию этих символов (Chr (13) & Chr (10))

title - строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен, поле ввода изображается пустым

xpos - числовое выражение, задающее расстояние по горизонтали между левой гланицей диалогового окна и левым краем экрана. Если этот аргумент опущен, диалоговое окно выравнивается по центру экрана по горизонтали

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

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

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

Процедура

MsgBox

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

Синтаксис:

MsgBox promt [, buttons] [, title] [, helpfile, contex]

Аргументы:

promt - строковое выражение, отображаемое как сообщение в диалоговом окне

buttons - числовое выражение, представляющее сумму значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку и модальность окна сообщения. Значение по умолчанию этого аргумента равняется 0. Значения констант, определяющих число и тип кнопок приведены в таблицах, представленных ниже.

title - строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен в строку заголовка помещается имя приложения

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

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

Значения аргумента buttons процедуры MsgBox, определяющие отображаемые кнопки в диалоговом окне

Константа

Значение

Отображаются кнопки

vbOKOnly

0

ОК

vbOKCancel

1

ОК

Отмена

vbAbortRetryIgnore

2

Стоп

Повтор

Пропустить

vbYesNoCancel

3

Да

Нет

Отмена

vbYesNo

4

Да

Нет

vbRetryCancel

5

Повтор

Отмена

Значения аргумента buttons процедуры MsgBox, определяющие отображаемые информационные значки в диалоговом окне

Константа

Значение

Значок сообщения

vbCritical

16

vbQuestion

32

vbExclamation

48

!

vbInformation

64

i

Значения аргумента buttons процедуры MsgBox, определяющие основную кнопку в диалоговом окне

Константа

Значение

Номер основной кнопки

vbDefaultButton2

0

1

vbDefaultButton2

256

2

vbDefaultButton3

512

3

vbDefaultButton4

768

4

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

Константа

Значение

Нажатая кнопка

vbOk

1

ОК

vbCancel

2

Отмена (Cancel)

vbAbort

3

Прервать (Abort)

vbRetry

4

Повторить (Retry)

vbIgnore

5

Пропустить (Ignore)

vbYes

6

Да (Yes)

vbNo

7

Нет (No)

Статистические функции

Функции MS Access

Функция

Выполняемая операция

Avg

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

Min, Max

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

Count

Вычисляет количество записей, возвращаемых запросом.

Sum

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

Var, VarP

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

Операторы MS Access

Операторы

Выполняемая операция

Mod (математический)

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

Between (сравнения)

Проверяет значение поля на соответствие заданному диапазону значений

In (сравнения)

Проверяет на равенство любому значению из списка

Like

(сравнения)

Проверяет соответствие текстового поля, гиперссылки или поля MEMO заданному шаблону символов

And

(логический)

Логическое умножение

Or

(логический)

Логическое сложение

Not

(логический)

Логическое отрицание

Xor

(логический)

Исключающее Or

&

Сцепление символьных строк

 Обратите внимание на наличие в кнопочной форме элемента управления «Флажок» с надписью «Больше не показывать окно». Как может быть реализован этот режим?

©ВГАВТ, Кафедра учета, анализа и аудита, Румянцев С.С., 2002 стр. 26 из 51