Реферат: Проектирование и разработка баз и банков данных
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