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

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

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

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

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

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

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

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

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

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

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

If IsNull(Me![КодСотрудник]) Then

MsgBox "Укажите сотрудника!"

Else

stDocName = "СписокКлиентов"

stLinkCriteria = "[КодСотрудник]=" & Me![КодСотрудник]

DoCmd.OpenForm stDocName, , , 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

If IsNull(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.      Код обработчика событий элементов управления формы «Изготовитель»

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

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