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

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