Дипломная работа: Автоматизация приема заявок на ремонт и модернизацию ПК ООО "Джет" г. Гродно
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
72
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
В базе данных имеется форма «Покупатель услуг» (рисунок 2.13).
Рисунок 2.13 – Форма «Покупатель услуг»
Код программного модуля на языке Visual Basic for Office для элементов
управления формы «Покупатель услуг» имеет следующий вид:
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Покупатель услуг"
End Sub
В базе данных имеется форма «Исполнитель заявки» (рисунок 2.14).
73
Рисунок 2.14 – Форма «Исполнитель заявки»
Код программного модуля на языке Visual Basic for Office для элементов
управления формы «Исполнитель заявки» имеет следующий вид:
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Исполнитель заявки"
End Sub
В базе данных имеется форма «Материнские платы» (рисунок 2.15).
Рисунок 2.15 – Форма «Материнские платы» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Материнские платы»
имеет следующий вид:
Private Sub Кнопка6_Click()
74
DoCmd.OpenQuery "Наличие на складе требуемой материнской платы",
acViewNormal, acEdit
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Материнские платы"
End Sub
В базе данных имеется форма «Жесткий диск» (рисунок 2.16).
Рисунок 2.16 – Форма «Жесткий диск» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Жесткий диск» имеет
следующий вид:
Option Compare Database
Private Sub Кнопка6_Click()
75
DoCmd.OpenQuery "Наличие на складе требуемого жесткого диска",
acViewNormal, acEdit
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Жесткий диск"
End Sub
В базе данных имеется форма «Клавиатура» (рисунок 2.17).
Рисунок 2.17 – Форма «Клавиатура» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Клавиатура» имеет
следующий вид:
Option Compare Database
Private Sub Кнопка6_Click()
DoCmd.OpenQuery "Наличие на складе требуемой клавиатуры",
acViewNormal, acEdit
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Клавиатура"
End Sub
В базе данных имеется форма «Мониторы (рисунок 2.18).
76
Рисунок 2.18 – Форма «Мониторы» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Мониторы» имеет
следующий вид:
Option Compare Database
Private Sub Кнопка6_Click()
DoCmd.OpenQuery "Наличие на складе требуемого монитора",
acViewNormal, acEdit
End Sub
Private Sub Кнопка8_Click()
DoCmd.Close acForm, "Мониторы"
End Sub
В базе данных имеется форма «Модули памяти» (рисунок 2.19).
Рисунок 2.19 – Форма «Модули памяти» в режиме «Формы»
Код на языке Visual Basic for Office для формы «Модули памяти» имеет
следующий вид:
Option Compare Database
Источник: https://baza.diplomsite.ru/previewfile/1948