Реферат: Проектирование и разработка баз и банков данных

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$