Поможем в ✍️ написании учебной работы

Имя

Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

Выберите тип работыЧасть дипломаДипломная работаКурсовая работаКонтрольная работаРешение задачРефератНаучно - исследовательская работаОтчет по практикеОтветы на билетыТест/экзамен onlineМонографияЭссеДокладКомпьютерный набор текстаКомпьютерный чертежРецензияПереводРепетиторБизнес-планКонспектыПроверка качестваЭкзамен на сайтеАспирантский рефератМагистерская работаНаучная статьяНаучный трудТехническая редакция текстаЧертеж от рукиДиаграммы, таблицыПрезентация к защитеТезисный планРечь к дипломуДоработка заказа клиентаОтзыв на дипломПубликация статьи в ВАКПубликация статьи в ScopusДипломная работа MBAПовышение оригинальностиКопирайтингДругое

Нажимая кнопку "Продолжить", я принимаю политику конфиденциальности

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

Код кнопки «Показать все записи» для вкладки «Реклама»:

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

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

Код кнопки «Годовой отчет»:

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