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

DocName = "Предприятие"

DoCmd OpenForm DocName, , , LinkCriteria

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Error$

Resume Exit_Кнопка2_Click

End Sub

Sub Кнопка3_Click ()

On Error GoTo Err_Кнопка3_Click

Dim DocName As String

Dim LinkCriteria As String

DocName = "КонтрольныйСтвор"

DoCmd OpenForm DocName, , , LinkCriteria

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Error$

Resume Exit_Кнопка3_Click

End Sub

Sub Кнопка9_Click ()

On Error GoTo Err_Кнопка9_Click

DoCmd Close

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Error$

Resume Exit_Кнопка9_Click

End Sub