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

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