Курсовая работа: Разработка базы данных Автосалон АЛМАЗ с помощью программы Microsoft Access

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click

End Sub

Private Sub Кнопка5_Click()

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

Dim stDocName As String

Dim stLinkCriteria As String

DoCmd.ShowAllRecords

stDocName = "Автомобили (в наличии)1"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err.Description

Resume Exit_Кнопка5_Click

End Sub

Private Sub Кнопка6_Click()

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err.Description

Resume Exit_Кнопка6_Click

End Sub

Private Sub Кнопка7_Click()

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