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

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

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err.Description

Resume Exit_Кнопка24_Click

End Sub

Private Sub подчиненная_форма_Автомобили__в_наличии_1_Enter()

End Sub

Форма Производитель

Option Compare Database

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

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

DoCmd.GoToRecord , , acNewRec

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err.Description

Resume Exit_Кнопка2_Click

End Sub

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

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

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err.Description

Resume Exit_Кнопка3_Click