82942 (589721), страница 6

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 6)

End Sub

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

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

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

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

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

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

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

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

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

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

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

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

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

Код кнопки «МАКЕТ (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

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

Код кнопки «Отправить Инф. письмо»:

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

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

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

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

Характеристики

Список файлов ВКР