Sub ДобавлениеНовойЗапис_Click ()

On Error GoTo Err_ДобавлениеНовойЗапис_Click

DoCmd GoToRecord , , A_NEWREC

Exit_ДобавлениеНовойЗапис_Click:

Exit Sub

Err_ДобавлениеНовойЗапис_Click:

MsgBox Error$

Resume Exit_ДобавлениеНовойЗапис_Click

End Sub

Sub ДублироватьЗаписьВВы_Click ()

On Error GoTo Err_ДублироватьЗаписьВВы_Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_COPY, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 6, , A_MENU_VER20'Paste Append

Exit_ДублироватьЗаписьВВы_Click:

Exit Sub

Err_ДублироватьЗаписьВВы_Click:

MsgBox Error$

Resume Exit_ДублироватьЗаписьВВы_Click

End Sub

Sub УдалениеЗаписиВВыпус_Click ()

On Error GoTo Err_УдалениеЗаписиВВыпус_Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20

Exit_УдалениеЗаписиВВыпус_Click:

Exit Sub

Err_УдалениеЗаписиВВыпус_Click:

MsgBox Error$

Resume Exit_УдалениеЗаписиВВыпус_Click

End Sub

Sub ВызовФормы_Концентра_Click ()

On Error GoTo Err_ВызовФормы_Концентра_Click

Dim DocName As String

DocName = "Концентрация Стоков"

DoCmd OpenForm DocName, , , "[Выпуск] = Forms![Предприятие]![Выпуск].Form![Выпуск]"

Exit_ВызовФормы_Концентра_Click:

Exit Sub

Err_ВызовФормы_Концентра_Click:

MsgBox Error$

Resume Exit_ВызовФормы_Концентра_Click

End Sub

Sub Кнопка47_Click ()

On Error GoTo Err_Кнопка47_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = "КонтрольныйСтвор"

LinkCriteria = "[Контрольный Створ] = Forms![Предприятие]![Выпуск].Form![Поле46]"

DoCmd OpenForm DocName, , , LinkCriteria

DoCmd GoToControl "Внедренный_объект16"

Forms![КонтрольныйСтвор]![ПереходКПервойЗаписиВПредприятиях].Доступ = 0

Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ = 0

Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ = 0

Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ = 0

Forms![КонтрольныйСтвор]![Кнопка20].Доступ = 0

Forms![КонтрольныйСтвор]![Кнопка21].Доступ = 0

Forms![КонтрольныйСтвор]![Кнопка22].Доступ = 0

Forms![КонтрольныйСтвор]![Название].Доступ = 0

Exit_Кнопка47_Click:

Exit Sub

Err_Кнопка47_Click:

MsgBox Error$

Resume Exit_Кнопка47_Click

End Sub

Sub Кнопка2_Click ()

On Error GoTo Err_Кнопка2_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = "Предприятие"

DoCmd OpenForm DocName, , , LinkCriteria

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Error$

Resume Exit_Кнопка2_Click

End Sub

Sub Кнопка3_Click ()

On Error GoTo Err_Кнопка3_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = "КонтрольныйСтвор"

DoCmd OpenForm DocName, , , LinkCriteria

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Error$

Resume Exit_Кнопка3_Click

End Sub

Sub Кнопка9_Click ()

On Error GoTo Err_Кнопка9_Click

DoCmd Close

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Error$

Resume Exit_Кнопка9_Click

End Sub

Sub Кнопка6_Click ()

On Error GoTo Err_Кнопка6_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = "О программе"

DoCmd OpenForm DocName, , , LinkCriteria

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Error$

Resume Exit_Кнопка6_Click

End Sub

Sub Кнопка5_Click ()

On Error GoTo Err_Кнопка5_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = "Вещество"

DoCmd OpenForm DocName, , , LinkCriteria

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Error$

Resume Exit_Кнопка5_Click

End Sub

Sub Form_Close ()

Forms![КонтрольныйСтвор]![ПереходКПервойЗаписиВПредприятиях].Доступ = 1

Forms![КонтрольныйСтвор]![ПереходКПредыдущейЗаписиВПредприятиях].Доступ = 1

Forms![КонтрольныйСтвор]![ПереходКСледующейЗаписиВПредприятиях].Доступ = 1

Forms![КонтрольныйСтвор]![ПереходКПоследнейЗаписиВПредприятиях].Доступ = 1

Forms![КонтрольныйСтвор]![Кнопка20].Доступ = 1

Forms![КонтрольныйСтвор]![Кнопка21].Доступ = 1

Forms![КонтрольныйСтвор]![Кнопка22].Доступ = 1

Forms![КонтрольныйСтвор]![Название].Доступ = 1

End Sub

Sub ВыходИзФормыКонтроль_Click ()

On Error GoTo Err_ВыходИзФормыКонтроль_Click

DoCmd Close

Exit_ВыходИзФормыКонтроль_Click:

Exit Sub

Err_ВыходИзФормыКонтроль_Click:

MsgBox Error$

Resume Exit_ВыходИзФормыКонтроль_Click

End Sub

Sub Кнопка20_Click ()

On Error GoTo Err_Кнопка20_Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20

Exit_Кнопка20_Click:

Exit Sub

Err_Кнопка20_Click:

MsgBox Error$

Resume Exit_Кнопка20_Click

End Sub

Sub Кнопка21_Click ()

On Error GoTo Err_Кнопка21_Click

DoCmd GoToRecord , , A_NEWREC

Exit_Кнопка21_Click:

Exit Sub

Err_Кнопка21_Click:

MsgBox Error$

Resume Exit_Кнопка21_Click

End Sub

Sub Кнопка22_Click ()

On Error GoTo Err_Кнопка22_Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Error$

Resume Exit_Кнопка22_Click

End Sub

Sub ПереходКПервойЗаписи_Click ()

On Error GoTo Err_ПереходКПервойЗаписи_Click

DoCmd GoToRecord , , A_FIRST

Exit_ПереходКПервойЗаписи_Click:

Exit Sub

Err_ПереходКПервойЗаписи_Click:

MsgBox Error$

Resume Exit_ПереходКПервойЗаписи_Click

End Sub

Sub ПереходКПоследнейЗап_Click ()

On Error GoTo Err_ПереходКПоследнейЗап_Click

DoCmd GoToRecord , , A_LAST

Exit_ПереходКПоследнейЗап_Click:

Exit Sub

Err_ПереходКПоследнейЗап_Click:

MsgBox Error$

Resume Exit_ПереходКПоследнейЗап_Click

End Sub

Sub ПереходКПредыдущейЗа_Click ()

On Error GoTo Err_ПереходКПредыдущейЗа_Click

DoCmd GoToRecord , , A_PREVIOUS

Exit_ПереходКПредыдущейЗа_Click:

Exit Sub

Err_ПереходКПредыдущейЗа_Click:

If Err <> 2105 Then MsgBox Error$

Resume Exit_ПереходКПредыдущейЗа_Click

End Sub

Sub ПереходКСледующейЗап_Click ()

On Error GoTo Err_ПереходКСледующейЗап_Click

DoCmd GoToRecord , , A_NEXT

Exit_ПереходКСледующейЗап_Click:

Exit Sub

Err_ПереходКСледующейЗап_Click:

If Err <> 2105 Then MsgBox Error$

Resume Exit_ПереходКСледующейЗап_Click

End Sub

Sub ЗакрытиеФормы_Концен_Click ()

On Error GoTo Err_ЗакрытиеФормы_Концен_Click

DoCmd Close

Exit_ЗакрытиеФормы_Концен_Click:

Exit Sub

Err_ЗакрытиеФормы_Концен_Click:

MsgBox Error$

Resume Exit_ЗакрытиеФормы_Концен_Click

End Sub

Sub ОтчетПоКонцентрациям_Click ()

On Error GoTo Err_ОтчетПоКонцентрациям_Click

Dim DocName As String

DocName = "ОтчетПоКонцентрациям"

DoCmd OpenReport DocName, A_PREVIEW

Exit_ОтчетПоКонцентрациям_Click:

Exit Sub

Err_ОтчетПоКонцентрациям_Click:

MsgBox Error$

Resume Exit_ОтчетПоКонцентрациям_Click

End Sub

Sub Закрыть_Форму_Предпр_Click ()

On Error GoTo Err_Закрыть_Форму_Предпр_Click

DoCmd Close

Exit_Закрыть_Форму_Предпр_Click:

Exit Sub

Err_Закрыть_Форму_Предпр_Click:

MsgBox Error$

Resume Exit_Закрыть_Форму_Предпр_Click

End Sub

Sub Запустить_Форму_Выпу_Click ()

On Error GoTo Err_Запустить_Форму_Выпу_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = "Выпуск"

DoCmd OpenForm DocName, , , LinkCriteria

Exit_Запустить_Форму_Выпу_Click:

Exit Sub

Err_Запустить_Форму_Выпу_Click:

MsgBox Error$

Resume Exit_Запустить_Форму_Выпу_Click

End Sub

Sub НоваяЗаписьВПредприя_Click ()

On Error GoTo Err_НоваяЗаписьВПредприя_Click

DoCmd GoToRecord , , A_NEWREC

Exit_НоваяЗаписьВПредприя_Click:

Exit Sub

Err_НоваяЗаписьВПредприя_Click:

MsgBox Error$

Resume Exit_НоваяЗаписьВПредприя_Click

End Sub

Sub ОтчетПоВыпускам_Click ()

On Error GoTo Err_ОтчетПоВыпускам_Click

Dim DocName As String

DocName = "ОтчетПоВыпускамПредприятия"

DoCmd OpenReport DocName, A_PREVIEW

Exit_ОтчетПоВыпускам_Click:

Exit Sub

Err_ОтчетПоВыпускам_Click:

MsgBox Error$

Resume Exit_ОтчетПоВыпускам_Click

End Sub

Sub ПереходКПервойЗаписи_Click ()

On Error GoTo Err_ПереходКПервойЗаписи_Click

DoCmd GoToRecord , , A_FIRST

Exit_ПереходКПервойЗаписи_Click:

Exit Sub

Err_ПереходКПервойЗаписи_Click:

MsgBox Error$

Resume Exit_ПереходКПервойЗаписи_Click

End Sub

Sub ПереходКПоследнейЗап_Click ()

On Error GoTo Err_ПереходКПоследнейЗап_Click

DoCmd GoToRecord , , A_LAST

Exit_ПереходКПоследнейЗап_Click:

Exit Sub

Err_ПереходКПоследнейЗап_Click:

MsgBox Error$

Resume Exit_ПереходКПоследнейЗап_Click

End Sub

Sub ПереходКПредыдущейЗа_Click ()

On Error GoTo Err_ПереходКПредыдущейЗа_Click

DoCmd GoToRecord , , A_PREVIOUS

Exit_ПереходКПредыдущейЗа_Click:

Exit Sub

Err_ПереходКПредыдущейЗа_Click:

If Err <> 2105 Then MsgBox Error$

Resume Exit_ПереходКПредыдущейЗа_Click

End Sub

Sub ПереходКСледующейЗап_Click ()

On Error GoTo Err_ПереходКСледующейЗап_Click

DoCmd GoToRecord , , A_NEXT

Exit_ПереходКСледующейЗап_Click:

Exit Sub

Err_ПереходКСледующейЗап_Click:

If Err <> 2105 Then MsgBox Error$

Resume Exit_ПереходКСледующейЗап_Click

End Sub

Sub ПоискЗаписиВПредприя_Click ()

On Error GoTo Err_ПоискЗаписиВПредприя_Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20

Exit_ПоискЗаписиВПредприя_Click:

Exit Sub

Err_ПоискЗаписиВПредприя_Click:

MsgBox Error$

Resume Exit_ПоискЗаписиВПредприя_Click

End Sub

Sub Редактирование_Выпус_Click ()

On Error GoTo Err_Редактирование_Выпус_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = "Выпуск"

LinkCriteria = "[Предприятие] = [Предприятие]![Предприятие]"

DoCmd OpenForm DocName, , , LinkCriteria

Exit_Редактирование_Выпус_Click:

Exit Sub

Err_Редактирование_Выпус_Click:

MsgBox Error$

Resume Exit_Редактирование_Выпус_Click

End Sub

Sub СписокПредприятийДля_AfterUpdate ()

DoCmd ApplyFilter , "НазваниеПредприятие = Me![СписокПредприятийДляПоиска]"

End Sub

Sub УдалениеЗаписиВПредп_Click ()

On Error GoTo Err_УдалениеЗаписиВПредп_Click

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_SELECTRECORD_V2, , A_MENU_VER20

DoCmd DoMenuItem A_FORMBAR, A_EDITMENU, A_DELETE_V2, , A_MENU_VER20

Exit_УдалениеЗаписиВПредп_Click:

Exit Sub

Err_УдалениеЗаписиВПредп_Click:

MsgBox Error$

Resume Exit_УдалениеЗаписиВПредп_Click

End Sub