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

Имя

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

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

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

Код кнопки «Сохранить»:

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

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

Код кнопки «Удалить»:

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

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

Код кнопки «Удалить»:

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

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

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

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 Поле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 "([Name] 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