Информационная система отдела маркетинга

ВВЕДЕНИЕ

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

ВВЕДЕНИЕ

Перемены нашего времени обусловили возрастающий интерес разного рода коммерческих и некоммерческих организаций к применению компьютерной техники для обеспечения информационной поддержки своего бизнеса, что, несомненно, приводит к увеличению скорости обработки информации и сокращению времени получения результатов.
В условиях жесткой конкуренции и роста издержек непременным условием выживания компании становится маркетинг, именно он способствует более успешному выступлению на рынке. И чтобы должным образом функционировать в условиях маркетинга, необходимо получать адекватную информацию до и после принятия решения. Существует множество причин, в силу которых маркетинговая информация должна собираться при разработке, реализации, пересмотре каких-либо элементов маркетингового плана, ихраниться в удобном для маркетолога виде.[3]

ВВЕДЕНИЕ

Перемены нашего времени обусловили возрастающий интерес разного рода коммерческих и некоммерческих организаций к применению компьютерной техники для обеспечения информационной поддержки своего бизнеса, что, несомненно, приводит к увеличению скорости обработки информации и сокращению времени получения результатов.
В условиях жесткой конкуренции и роста издержек непременным условием выживания компании становится маркетинг, именно он способствует более успешному выступлению на рынке. И чтобы должным образом функционировать в условиях маркетинга, необходимо получать адекватную информацию до и после принятия решения. Существует множество причин, в силу которых маркетинговая информация должна собираться при разработке, реализации, пересмотре каких-либо элементов маркетингового плана, и храниться в удобном для маркетолога виде.[3]

Заказ.Цена, Заказ.КодИзготов, Заказ.Дата, Заказ.Код№
FROM Тип INNER JOIN (СписокВыставок RIGHT JOIN (Изготовитель RIGHT JOIN Заказ ON Изготовитель.КодИзготов = Заказ.КодИзготов) ON СписокВыставок.№ = Заказ.Код№) ON Тип.КодТип = Заказ.КодТип
WHERE (((Year([Заказ].[Дата]))=[ВВЕДИТЕ ГОД]));
3.6.4 Отчеты «RUSВизитка» и «ENGВизитка»
Отчеты представляют собой макеты визитных карточек на английском и русском языках. Макеты визиток представлены на рис.3.6.4 (а) и рис. 3.6.4 (б).
Источником записей для создания этих макетов является запрос «RUS/ENG»:
SELECT Сотрудник.КодСотрудник, Сотрудник.ФИО, Сотрудник.Должность,
Сотрудник.ВнутрТелефон, Сотрудник.МобТелефон,
Сотрудник.Email, Сотрудник.FIO, Сотрудник.Doljnost
FROM Сотрудник
WHERE (((Сотрудник.КодСотрудник)=[Forms]![Сотрудник]![КодСотрудник]));
3.6.5 Отчет «Приглашение на выставку»
Отчет представляет собой макет пригласительного письма. Он представлен на рис.3.6.5.
Источником записей для формирования отчета является запрос «КлиентЗапрос»:
SELECT СписокКлиентов.№,
СписокКлиентов.Организация,
СписокКлиентов.Фамилия,
СписокКлиентов.Адрес,
СписокВыставок.Название,
СписокВыставок.[Дата проведения],
Место.КодМесто,
Место.Место, Место.Адрес,
СписокКлиентов.ИО
FROM (Место INNER JOIN СписокВыставок ON
Место.КодМесто = СписокВыставок.КодМесто)
INNER JOIN СписокКлиентов ON
СписокВыставок.№ = СписокКлиентов.Код№
WHERE (((СписокКлиентов.№)=[Forms]![СписокКлиентов]![№]));
Готовый макет печатается на официальном бланке «УЗО-Электро».
3.6.6 Отчёт «Информационное письмо»
Отчет представляет собой макет информационного письма для почтовой рассылки. Он представлен на рис.3.6.6.
Источником записей для формирования отчета является таблица «СписокКлиентов».
Готовый макет печатается на официальном бланке «УЗО-Электро».
3.7 Описание методики тестирования
В процессе разработки системы, из-за невнимательности или неправильной трактовки задания, могут возникать ошибки, которые приводят к неправильной работе системы и выдаче неверных результатов. Следовательно, прежде чем широко использовать разрабатываемую информационную систему и полностью доверять полученным результатам, необходимо убедиться в том, что система отлажена.
При программировании могут быть допущены ошибки, которые принадлежат к одному из следующих типов:
Синтаксические ошибки – заключаются в нарушении установленных правил описания переменных, записи операторов, т.е. в несоблюдении синтаксиса языка. Такие ошибки обнаруживает компилятор;
Семантические ошибки или ошибки периода выполнения возникают, когда приложение выполняется, но предпринимается попытка выполнить недопустимое действие;
Логические ошибки имеют место, когда приложение работает не так, как это планировалось разработчиком. То есть синтаксически и семантически верная программа выдает неправильные результаты. Это связано с несоответствием алгоритма поставленной задаче.
Тестирование системы проводилось на всех этапах разработки. При разработке таблиц, проверялось правильность назначения типов полей. После разработки структуры базы и интерфейсной части проводилась проверка на предмет ввода информации в соответствующие поля таблиц, а также проверялась правильность отображения информации в окнах интерфейса путем сравнения информации в окнах интерфейса и непосредственно в полях таблиц. Во избежание ошибок, в системе предусмотрена возможность вывода сообщений, информирующих пользователя о необходимости заполнения определенных полей.
После устранения всех найденных ошибок и тестирования программа работает правильно.
4. РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ
Работа с информационной системой начинается с запуска базы данных «Market», при этом автоматически открывается окно формы «Обложка» (рис.3.5.1). В этой форме присутствует набор вкладок: реклама, выставки, сувениры/полиграфия, сотрудник, и кнопка «Выйти из программы». При переключении вкладок меняется содержимое (набор кнопок) главной формы.
При выборе кнопки «Показать все записи» из вкладки «Реклама», откроется форма «Размещение рекламы» (рис.3.5.2) с информацией о всей размещенной рекламе. Для поиска нужной записи можно воспользоваться строкой поиска. При нажатии кнопки «Годовой отчет» появится запрос с просьбой ввести год для формирования отчета «Расходы на рекламу» (рис.3.6.1). Пролистать весь список можно с помощью вертикальной полосы прокрутки или клавишами PageUp и PageDown. Чтобы редактировать, удалить или добавить запись, нужно щелкнуть левой кнопкой мыши по номеру записи. При этом откроется форма «ПравкаРеклама» (рис.3.5.3) с подробной информацией о выбранной записи. Чтобы сохранить изменения и закрыть форму, нужно нажать кнопку «Сохранить». Для добавления новой записи необходимо нажать кнопку «Добавить запись», а для удаления – кнопку «Удалить запись». Чтобы закрыть форму «Размещение рекламы» и вернуться к главной форме, необходимо нажать кнопку выхода или воспользоваться кнопкой оконного меню «х». Для получения отчета о размещенной рекламе, не открывая формы «Размещение рекламы», можно нажать на главной форме кнопку «Отчет по рекламе» из вкладки «Реклама», после чего появится запрос с просьбой указать год для формирования отчета.
При выборе кнопки «Выставки в Москве» из вкладки «Выставки», откроется форма «Участие в выставках» (рис.3.5.4) с краткой информацией о выставках. В форме предусмотрена возможность поиска нужной записи по названию выставки и сортировки списка по типу участия. Для сортировки необходимо указать тип участия: очное, заочное, посещение, не участвуем.
При нажатии кнопки «Годовой отчет» появится запрос с просьбой ввести год для формирования отчета «Выставки» (рис.3.6.2). Для редактирования, удаления или добавления записи, нужно щелкнуть левой кнопкой мыши по номеру записи. После чего откроется форма «Выставки» (рис.3.5.5) с подробной информацией о выставке. Чтобы просмотреть контактную информацию об организаторе выставки или о месте ее проведения, нужно нажать кнопку со стрелкой, при этом откроется одна из выбранных форм: «Место» (рис.3.5.6) или «Организатор» (рис.3.5.7.). В формах предусмотрена возможность редактирования, добавления и удаления записей (кнопка удаления). Для сохранения записи в форме «Выставки» и закрытия формы, необходимо нажать кнопку «Сохранить». Для добавления новой записи необходимо нажать кнопку «Добавить запись», а для удаления – кнопку «Удалить запись». Закрыть форму «Участие в выставках» и вернуться к главной форме можно, нажав кнопку выхода.
При выборе кнопки «Показать все записи» из вкладки «Сувениры/полиграфия», откроется форма «Заказ сувенир/полиграфия» (рис.3.5.8) с информацией о всех сделанных заказах. Форма позволяет просматривать весь список, редактировать, удалять и добавлять записи. Для поиска нужной записи можно воспользоваться строкой поиска, а для сортировки списка по типу продукции необходимо указать тип: сувенир или полиграфия. При нажатии кнопки «Годовой отчет» появится запрос с просьбой ввести год для формирования отчета «Сувенир/полиграфия» (рис.3.6.3). Закрыть форму «Заказ сувенир/полиграфия» и вернуться к главной форме можно, нажав кнопку выхода.
При выборе кнопки «Данные о сотрудниках» из вкладки «Сотрудник», откроется форма «Сотрудник» (рис.3.5.9) с информацией о сотруднике компании, о заказанных для него визитках и о клиентах, за которыми он закреплен. Чтобы получить эту информацию, необходимо указать фамилию сотрудника. Эта форма позволяет редактировать, удалять и добавлять записи. Чтобы получить полную информацию о потенциальном клиенте, необходимо дважды щелкнуть левой кнопкой мыши по названию организации. При этом откроется форма «Клиенты» (рис.3.5.10), позволяющая изменять, удалять и добавлять записи. Нажатие кнопки «Отправить Инф. письмо» позволяет открыть отчет «Информационное письмо» (рис.3.6.6), а нажатие кнопки «Приглашение» открывает отчет «Приглашение на выставку» (рис.3.6.5), но лишь в том случае, если в поле «пригласить на выставку» указано название выставки. Перед открытием выбранного отчета появляется запрос с предложением экспортировать письмо в Microsoft Word. Для этого в появившемся окне необходимо указать имя файла и нажать кнопку «Ok», в противном случае - кнопку «Cancel». Закрытие формы «Клиенты» осуществляется нажатием кнопки оконного меню «х».
Для составления, просмотра и печати макета визитных карточек, необходимо нажать кнопку «МАКЕТ(RUS)» или «МАКЕТ(ENG)». При нажатии кнопки «МАКЕТ(RUS)» открывается отчет «RUSВизитка» (рис.3.6.4 (а)) с данными на русском языке, а при нажатии кнопки «МАКЕТ(ENG)» открывается отчет «ENGВизитка» (рис.3.6.4 (б)) на английском языке. Для просмотра, изменения, удаления или добавления контактной информации изготовителя визиток, необходимо дважды щелкнуть левой кнопкой мыши по названию компании. После чего откроется форма «Изготовитель» (рис.3.5.11), выйти из которой можно нажатием кнопки оконного меню «х». Для завершения работы с формой «Сотрудник» и возвращения к главной форме, необходимо нажать кнопку выхода.
При нажатии кнопки «Годовой отчет» на одной из вкладок главной формы, появится запрос с просьбой ввести год для формирования нужного отчета.
Для завершения работы с информационной системой, необходимо нажать кнопку «Выйти из программы», которая расположена в нижнем правом углу формы «Обложка», после чего произойдет закрытие окна этой формы и выход из системы.
ЗАКЛЮЧЕНИЕ
В процессе работы над дипломным проектом была разработана информационная система отдела маркетинга. Она расположена на файл-сервере и предназначена для автоматизации процесса обработки данных в отделе маркетинга, а именно: снижения времени, затрачиваемого на обработку маркетинговой информации, снижения трудоемкости, повышения достоверности данных.
Информационная система разработана с помощью СУБД Microsoft Access 2000 в среде Microsoft Windows XP. В процессе проектирования системы была построена диаграмма бизнес-процессов, разработана структура базы данных (созданы ER-диаграмма и модель базы данных), разработан пользовательский интерфейс, написано руководство пользователя. Вся система, включая таблицы данных, экранные формы, запросы и отчеты, представлена в файле Market.mdb.
Диаграмма бизнес-процессов представляет собой описание предметной области. Для ее построения использовался метод построения моделей бизнес-процессов в форме диаграмм потоков данных (BMP – Business Process Modeler), позволяющий моделировать функционирование отдела маркетинга.
Для моделирования данных использовался метод «сущность-связь», основой которого является ER-модель (Entity–Relationship, ER).
В процессе отладки, система наполнялась тестовыми данными, отвечающими реальным характеристикам маркетинговой информации. Итоговое испытание системы показало, что она отвечает поставленным требованиям и готова к практическому применению.
ПРИЛОЖЕНИЕ
КОД ОБРАБОТЧИКА СОБЫТИЙ ЭЛЕМЕНТОВ УПРАВЛЕНИЯ
1. Код обработчика событий элементов управления формы «Обложка»
Код кнопки «Показать все записи» для вкладки «Реклама»:
Private Sub Кнопка5_Click()
On Error GoTo Err_ Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Реклама"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ Кнопка5_Click:
Exit Sub
Err_ Кнопка5_Click:
MsgBox Err.Description
Resume Exit_ Кнопка5_Click
End Sub
Код кнопки «Годовой отчет» для вкладки «Реклама»:
Private Sub Кнопка3_Click()
On Error GoTo Err_ Кнопка3_Click
Dim stDocName As String
stDocName = "Рекл"
DoCmd.OpenReport stDocName, acPreview
Exit_ Кнопка3 _Click:
Exit Sub
Err_ Кнопка3 _Click:
MsgBox Err.Description
Resume Exit_ Кнопка3 _Click
End Sub
Код кнопки «Выставки в Москве» для вкладки «Выставки»:
Private Sub Кнопка26_Click()
On Error GoTo Err_ Кнопка26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Участие"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ Кнопка26_Click:
Exit Sub
Err_ Кнопка26_Click:
MsgBox Err.Description
Resume Exit_ Кнопка26_Click
End Sub
Код кнопки «Годовой отчет» для вкладки «Выставки»:
Private Sub Кнопка52_Click()
On Error GoTo Err_ Кнопка52_Click
Dim stDocName As String
stDocName = "Выставка"
DoCmd.OpenReport stDocName, acPreview
Exit_ Кнопка52_Click:
Exit Sub
Err_ Кнопка52_Click:
MsgBox Err.Description
Resume Exit_ Кнопка52_Click
End Sub
Код кнопки «Показать все записи» для вкладки «Сувениры/полиграфия»:
Private Sub Кнопка36_Click()
On Error GoTo Err_ Кнопка36_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Сувенир"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ Кнопка36_Click:
Exit Sub
Err_ Кнопка36_Click:
MsgBox Err.Description
Resume Exit_Кнопка36_Click
End Sub
Код кнопки «Годовой отчет» для вкладки «Сувениры/полиграфия»:
Private Sub Кнопка54_Click()
On Error GoTo Err_ Кнопка54_Click
Dim stDocName As String
stDocName = "Сув"
DoCmd.OpenReport stDocName, acPreview
Exit_ Кнопка54_Click:
Exit Sub
Err_ Кнопка54_Click:
MsgBox Err.Description
Resume Exit_ Кнопка54_Click
End Sub
Код кнопки «Данные о сотрудниках» для вкладки «Сотрудник»:
Private Sub Кнопка43_Click()
On Error GoTo Err_ Кнопка43_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Сотрудник"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_ Кнопка43_Click:
Exit Sub
Err_ Кнопка43_Click:
MsgBox Err.Description
Resume Exit_ Кнопка43_Click
End Sub
Код кнопки «Выйти из программы»:
Private Sub Кнопка47_Click()
On Error GoTo Err_ Кнопка47_Click
DoCmd.Quit
Exit_ Кнопка47_Click:
Exit Sub
Err_ Кнопка47_Click:
MsgBox Err.Description
Resume Exit_ Кнопка47_Click
End Sub
2. Код обработчика событий элементов управления формы «Размещение рекламы»
Код кнопки «Годовой отчет»:
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
Dim stDocName As String
stDocName = "Рекл"
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Код поля «№»:
Private Sub №_Click()
On Error GoTo Err_№_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ПравкаРеклама"
stLinkCriteria = "[№]=" & Me![№]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_№_Click:
Exit Sub
Err_№_Click:
MsgBox Err.Description
Resume Exit_№_Click
End Sub
Код поля «Поиск»:
Private Sub Поле7_Change()
Dim rst As DAO.Recordset, frm As Form, s As String
On Error GoTo 999
Set frm = Me.ВыборРеклама.Form
Set rst = frm.RecordsetClone
rst.FindFirst "([Название] Like '" & Me.Поле7.Text & "*')=True"
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
End If
Exit Sub
999: MsgBox "Введите правильно данные!"
End Sub
Код кнопки «Выход»:
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
DoCmd.Close
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
3. Код обработчика событий элементов управления формы «ПравкаРеклама»
Код кнопки «Сохранить»:
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Реклама"
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Код кнопки «Добавить запись»:
Private Sub Кнопка3_Click()
On Error GoTo Err_Кнопка3_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка3_Click:
Exit Sub
Err_Кнопка3_Click:
MsgBox Err.Description
Resume Exit_Кнопка3_Click
End Sub
Код кнопки «Удалить запись»:
Private Sub Кнопка69_Click()
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Реклама"
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
4. Код обработчика событий элементов управления формы «Участие в выставках»
Код кнопки «Годовой отчет»:
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
Dim stDocName As String
stDocName = "Выставка"
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click
End Sub
Код поля «№»:
Private Sub №_Click()
On Error GoTo Err_№_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Выставки"
stLinkCriteria = "[№]=" & Me![№]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_№_Click:
Exit Sub
Err_№_Click:
MsgBox Err.Description
Resume Exit_№_Click
End Sub
Код поля «Поиск»:
Private Sub Поле7_Change()
Dim rst As DAO.Recordset, frm As Form, s As String
On Error GoTo 999
Set frm = Me.СписокВыставок.Form
Set rst = frm.RecordsetClone
rst.FindFirst "([Название] Like '" & Me.Поле7.Text & "*')=True"
If rst.NoMatch = False Then
frm.Bookmark = rst.Bookmark
End If
Exit Sub
999: MsgBox "Введите правильно данные!"
End Sub
Код поля «Участие»:
Private Sub Участие_AfterUpdate()
Me.СписокВыставок.Requery
End Sub
Код кнопки «Выход»:
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
DoCmd.Close
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
5. Код обработчика событий элементов управления формы «Выставки»
Код кнопки «Сохранить»:
Private Sub Кнопка2_Click()
On Error GoTo Err_Кнопка2_Click
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Участие"
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка2_Click:
Exit Sub
Err_Кнопка2_Click:
MsgBox Err.Description
Resume Exit_Кнопка2_Click
End Sub
Код кнопки «Добавить запись»:
Private Sub Кнопка17_Click()
On Error GoTo Err_Кнопка17_Click
DoCmd.GoToRecord , , acNewRec
Exit_Кнопка17_Click:
Exit Sub
Err_Кнопка17_Click:
MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
Код кнопки «Удалить запись»:
Private Sub Кнопка69_Click()
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Участие"
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Sub
Код кнопки со стрелкой для поля «Место проведения»:
Private Sub Кнопка49_Click()
On Error GoTo Err_Кнопка49_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![КодМесто]) Then
MsgBox "Укажите место проведения выставки!"
Else
stDocName = "Место"
stLinkCriteria = "[КодМесто]=" & Me![КодМесто]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_Кнопка49_Click:
Exit Sub
Err_Кнопка49_Click:
MsgBox Err.Description
Resume Exit_Кнопка49_Click
End Sub
Код кнопки со стрелкой для поля «Организатор»:
Private Sub Кнопка57_Click()
On Error GoTo Err_Кнопка57_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![КодОрганизатор]) Then
MsgBox "Укажите организатора выставки!"
Else
stDocName = "Организатор"
stLinkCriteria = "[КодОрганизатор]=" & Me![КодОрганизатор]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_Кнопка57_Click:
Exit Sub
Err_Кнопка57_Click:
MsgBox Err.Description
Resume Exit_Кнопка57_Click
End Sub
6. Код обработчика событий элементов управления формы «Место»
Код кнопки «Удалить»:
Private Sub Кнопка15_Click()
On Error GoTo Err_Кнопка15_Click
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Выставки"
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка15_Click:
Exit Sub
Err_Кнопка15_Click:
MsgBox Err.Description
Resume Exit_Кнопка15_Click
End Sub
7. Код обработчика событий элементов управления формы «Организатор»
Код кнопки «Удалить»:
Private Sub Кнопка12_Click()
On Error GoTo Err_Кнопка12_Click
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Выставки"
DoCmd.Close , , acForm
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Кнопка12_Click:
Exit Sub
Err_Кнопка12_Click:
MsgBox Err.Description
Resume Exit_Кнопка12_Click
End Sub
8. Код обработчика событий элементов управления формы «Заказ сувенир/полиграфия»
Код кнопки «Годовой отчет»:
Private Sub Кнопка11_Click()
On Error GoTo Err_Кнопка11_Click
Dim stDocName As String
stDocName = "Сув"
DoCmd.OpenReport stDocName, acPreview
Exit_Кнопка11_Click:
Exit Sub
Err_Кнопка11_Click:
MsgBox Err.Description
Resume Exit_Кнопка11_Click