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

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

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

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

Скачать

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 Анализ системы управления интегрированными маркетинговыми коммуникациями ОАО «Донецкая ...