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

On Error GoTo Err_ПереходКПоследнейЗап_Click

DoCmd GoToRecord , , A_LAST

Exit_ПереходКПоследнейЗап_Click:

Exit Sub

Err_ПереходКПоследнейЗап_Click:

MsgBox Error$

Resume Exit_ПереходКПоследнейЗап_Click

End Sub

Sub ПереходКПредыдущейЗа_Click ()

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 DoMenuItem A_FORMBAR, A_EDITMENU, 10, , A_MENU_VER20