MsgBox Err.Description
Resume Exit_Кнопка17_Click
End Sub
3. Код обработчика событий элементов управления формы «ПравкаРеклама»
Код кнопки «Сохранить»:
PrivateSub Кнопка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
EndIf
ExitSub
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. Код обработчика событий элементов управления формы «Выставки»
Код кнопки «Сохранить»:
PrivateSub Кнопка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
IfIsNull(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. Код обработчика событий элементов управления формы «Место»
Код кнопки «Удалить»:
PrivateSub Кнопка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. Код обработчика событий элементов управления формы «Организатор»
Код кнопки «Удалить»:
PrivateSub Кнопка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. Код обработчика событий элементов управления формы «Заказ сувенир/полиграфия»
Код кнопки «Годовой отчет»:
PrivateSub Кнопка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
EndIf
ExitSub
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
9. Код обработчика событий элементов управления формы «Сотрудник»
Кодкнопки «МАКЕТ (RUS)»:
Private Sub Кнопка40_Click()
On Error GoTo Err_Кнопка40_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "RUSВизитка"
DoCmd.OpenReport stDocName, acViewPreview
Exit_Кнопка40_Click:
Exit Sub
Err_Кнопка40_Click:
MsgBox Err.Description
Resume Exit_Кнопка40_Click
End Sub
Код кнопки «МАКЕТ (ENG)»:
Private Sub Кнопка47_Click()
On Error GoTo Err_Кнопка47_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ENGВизитка"
DoCmd.OpenReport stDocName, acViewPreview
Exit_Кнопка47_Click:
Exit Sub
Err_Кнопка47_Click:
MsgBox Err.Description
Resume Exit_Кнопка47_Click
End Sub
Кодполя «ФИО»:
Private Sub ФИО_AfterUpdate()
Me.Рассылка.Requery
Me.Визитки.Requery
Me.Sotrudnik.Requery
End Sub
Private Sub ФИО_DblClick(Cancel As Integer)
On Error GoTo Err_Кнопка5_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![ФИО]) Then
MsgBox "Укажитесотрудника!"
Else
stDocName = "Sotrudnik"
stLinkCriteria = "[КодСотрудник]=" & Me![КодСотрудник]
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Exit_Кнопка5_Click:
Exit Sub
Err_Кнопка5_Click:
MsgBox Err.Description
Resume Exit_Кнопка5_Click
End Sub
Код кнопки «Удалить из списка»:
Private Sub Кнопка16_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 Организация_GotFocus()
If IsNull(Me![КодСотрудник]) Then
MsgBox "Укажитесотрудника!"
Else
End If
End Sub
Private Sub Организация_DblClick(Cancel As Integer)
On Error GoTo Err_Организация_Click
Dim stDocName As String
Dim stLinkCriteria As String
IfIsNull(Me![КодСотрудник]) Then
MsgBox "Укажите сотрудника!"
Else
stDocName = "СписокКлиентов"
stLinkCriteria = "[КодСотрудник]=" & Me![КодСотрудник]
DoCmd.OpenFormstDocName, , , stLinkCriteria
End If
Exit_Организация_Click:
Exit Sub
Err_Организация_Click:
MsgBox Err.Description
Resume Exit_Организация_Click
End Sub
Код поля «Изготовитель»:
Private Sub КодИзготов_GotFocus()
If IsNull(Me![КодСотрудник]) Then
MsgBox "Укажитесотрудника!"
Else
End If
End Sub
Private Sub КодИзготов_DblClick(Cancel As Integer)
On Error GoTo Err_КодИзготов_Click
Dim stDocName As String
Dim stLinkCriteria As String
IfIsNull(Me![КодСотрудник]) Then
MsgBox "Укажите сотрудника!"
Else
stDocName = "Изготовитель"
stLinkCriteria = "[КодИзготов]=" & Me![КодИзготов]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
Exit_КодИзготов_Click:
Exit Sub
Err_КодИзготов_Click:
MsgBox Err.Description
Resume Exit_КодИзготов_Click
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
10. Код обработчика событий элементов управления формы «Клиенты»
Код кнопки «Отправить Инф. письмо»:
Private Sub Кнопка19_Click()
On Error GoTo Err_Кнопка19_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ИнфПисьмо"
DoCmd.OpenReport stDocName, acViewPreview
On Error Resume Next
Dim fn As String
fn = InputBox("Ведите название файла", "Экспорт письма в MS Word")
If fn <> "" Then
fn = fn + ".rtf"
DoCmd.OutputTo acOutputReport, "ИнфПисьмо", acFormatRTF, fn, False
End If
Exit_Кнопка19_Click:
Exit Sub
Err_Кнопка19_Click:
MsgBox Err.Description
Resume Exit_Кнопка19_Click
End Sub
Код кнопки «Приглашение»:
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull(Me![Код№]) Then
MsgBox "Укажитевыставку!"
Else
stDocName = "Приглашение"
DoCmd.OpenReport stDocName, acViewPreview
On Error Resume Next
Dim fn As String
fn = InputBox("Ведите название файла", "Экспорт пригашения в MS Word")
If fn <> "" Then
fn = fn + ".rtf"
DoCmd.OutputTo acOutputReport, "Приглашение", acFormatRTF, fn, False
End If
End If
Exit_Кнопка20_Click:
Exit Sub
Err_Кнопка20_Click:
MsgBox Err.Description
Resume Exit_Кнопка20_Click
End Sub
11. Код обработчика событий элементов управления формы «Изготовитель»
Код кнопки «Удалить»:
PrivateSub Кнопка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