106
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 10
Private Sub Кнопка19_Click()
DoCmd.OpenQuery "7_Мониторы", acViewNormal,
acEdit End Sub
Private Sub Кнопка2_Click()
DoCmd.OpenForm "Клавиатура", acNormal, "", "", ,
acNormal End Sub
Private Sub Кнопка20_Click()
DoCmd.OpenQuery "6_Модули памяти", acViewNormal,
acEdit End Sub
Private Sub Кнопка21_Click()
DoCmd.OpenQuery "1_Видеоадаптер", acViewNormal,
acEdit End Sub
Private Sub Кнопка22_Click()
DoCmd.OpenQuery "4_Манипулятор мышь", acViewNormal,
acEdit End Sub
Private Sub Кнопка23_Click()
DoCmd.OpenForm "Покупатель услуг", acNormal, "", "", ,
acNormal End Sub
Private Sub Кнопка24_Click()
DoCmd.OpenForm "Исполнитель заявки", acNormal, "", "", ,
acNormal End Sub
Private Sub Кнопка3_Click()
DoCmd.OpenForm "Мониторы", acNormal, "", "", ,
acNormal End Sub
Private Sub Кнопка4_Click()
DoCmd.OpenForm "Модули памяти", acNormal, "", "", ,
acNormal End Sub
Private Sub Кнопка5_Click()
DoCmd.OpenForm "Материнские платы", acNormal, "", "", ,
acNormal End Sub
107
ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 10
Private Sub Кнопка6_Click()
DoCmd.OpenForm "Манипулятор мышь", acNormal, "", "", ,
acNormal End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, " Прием заявок на ремонт и модернизацию
ПК " End Sub
Private Sub Кнопка7_Click()
On Error GoTo
Err_Кнопка7_Click
Screen.PreviousControl.Set
Focus DoCmd.FindNext
Exit_Кнопка7_
Click: Exit
Sub
Err_Кнопка7_Click:
MsgBox
Err.Description
Resume
Exit_Кнопка7_Click End
Sub
Private Sub Кнопка9_Click()
DoCmd.OpenForm "Отбор", acNormal, "", "", ,
acNormal End Sub
