ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 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.SetFocus
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