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

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

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err.Description

Resume Exit_Кнопка27_Click

End Sub

Форма Автосалон

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

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

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Продажа1"

DoCmd.OpenForm stDocName, , , stLinkCriteria