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

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