Код обработчика событий элементов управления формы «Обложка»

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

Похожие работы

Информационные системы электронного маркетинга в Интернете

Скачать

43424

0

0

... любых СУБД с языком запросов SQL (MS SQL Server, MS Access, Oracle, PostgreSQL и др.), а в качестве Web-сервера — MS Internet Information Server, Apache и др. Система электронной коммерции UlterShop предназначена для построения интернет магазинов, которые ориентированны на розничную или оптовую торговлю штучными товарами Покупателями могут Выть и юридические, и физические лица. Система является ...

Создание отдела маркетинга на АО «ДСК»

Скачать

52260

0

5

... обязанности , права , ответственность . Далее я приведу "Положение об отделе" и должностные инструкции специалистов и руководителя отдела . Положение об отделе маркетинга АО "ДСК" Общие положения. 1.1 Отдел маркетинга АО "ДСК" создан для ведения деятельности по финансированию собственного и приравненному к нему строительства жилья , зданий и сооружений . Данная деятельность ...

Конcпект по маркетингу

Скачать

369263

8

7

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

Система интегрированного маркетинга на примере ОАО "Донецкая Мануфактура М"

Скачать

156192

7

4

... , а в отдельных случаях к реализации коммуникаций при меньших затратах, так как при этом проявляется принцип: «Целое - это больше, чем сумма составляющих ее частей». 2 АНАЛИЗ СИСТЕМЫ МАРКЕТИНГА ИНТЕГРИРОВАННЫХ МАРКЕТИНГОВЫХ КОММУНИКАЦИЙ ОАО «ДОНЕЦКАЯ МАНУФАКТУРА М». ОРГАНИЗАЦИЯ СЛУЖБЫ МАРКЕТИНГА   2.1 Анализ системы управления интегрированными маркетинговыми коммуникациями ОАО «Донецкая ...