Курсовая работа: Учет основного оборудования на предприятии
DoCmd.OpenForm
"Кластер", acNormal, "", "", , acNormal
Открыть_Открыть_Кластер_Exit:
Exit Sub
Открыть_Открыть_Кластер_Err:
MsgBox
Error$
Resume
Открыть_Открыть_Кластер_Exit
End Sub
Private Sub Кнопка27_Click()
On Error
GoTo Открыть_Открыть_замену_Err
DoCmd.OpenForm
"Замена оборудования", acNormal, "", "", , acNormal
Открыть_Открыть_замену_Exit:
Exit Sub
Открыть_Открыть_замену_Err:
MsgBox
Error$
Resume
Открыть_Открыть_замену_Exit
End
Sub
Private Sub Кнопка3_Click()
On Error GoTo Открыть_Открыть_Обр_Err
DoCmd.OpenForm "Обрабатывающее оборудование", acNormal, "", "",
, acNormal
Открыть_Открыть_Обр_Exit:
Exit Sub
Открыть_Открыть_Обр_Err:
MsgBox Error$
Resume Открыть_Открыть_Обр_Exit
End Sub
Private Sub Кнопка7_Click()
On Error GoTo Открыть_Открыть_ГАУ_Err
DoCmd.OpenForm "ГАУ",
acNormal, "", "", , acNormal
Открыть_Открыть_ГАУ_Exit:
Exit Sub
Открыть_Открыть_ГАУ_Err:
MsgBox
Error$
Resume Открыть_Открыть_ГАУ_Exit
End Sub
Private Sub Кнопка8_Click()
On Error GoTo Открыть_Открыть_ТНС_Err
DoCmd.OpenForm "АТНСС",
acNormal, "", "", , acNormal
Открыть_Открыть_ТНС_Exit:
Exit Sub
Открыть_Открыть_ТНС_Err:
MsgBox
Error$
Resume Открыть_Открыть_ТНС_Exit
End Sub
Private Sub Кнопка4_Click()
On Error GoTo Открыть_Открыть_Тр_Err
DoCmd.OpenForm "Транспортное оборудование", acNormal, "", "",
, acNormal
Открыть_Открыть_Тр_Exit:
Exit Sub
Открыть_Открыть_Тр_Err:
MsgBox
Error$
Resume Открыть_Открыть_Тр_Exit
End Sub
Private Sub Кнопка9_Click()
On Error GoTo Открыть_Открыть_ГПС_Err
DoCmd.OpenForm "ГПС-добавление", acNormal, "", "",
, acNormal
Открыть_Открыть_ГПС_Exit:
Exit Sub
Открыть_Открыть_ГПС_Err:
MsgBox
Error$
Resume
Открыть_Открыть_ГПС_Exit
End
Sub
Форма
«АТНСС»
Private Sub Кнопка34_Click()
On Error GoTo Добавление_Ввод_ТНС_Err
With CodeContextObject
If (Eval("(Forms!Атнсс![ТНС] Is Null) Or (Forms!Атнсс![Пропуск] Is Null) Or (Forms!Атнсс![Площ] Is Null)")) Then
MsgBox
"Введены не все данные!", vbExclamation, "Добавление нового АТНСС."
Exit Sub
End If
DoCmd.GoToControl "КодТНС"
DoCmd.FindRecord Val(Forms!Атнсс!ТНС), acEntire, False, , True,
acCurrent, True
If (Val(Forms!Атнсс!ТНС) = Forms!Атнсс!КодТНС) Then
Beep
MsgBox
"Такой номер уже существует!", vbExclamation, "Ошибка"
Exit Sub
End If
DoCmd.OpenForm "ДобавлениеАТНСС", acNormal, "", "", , acHidden
DoCmd.GoToRecord acForm, "ДобавлениеАТНСС", acNewRec
Forms!ДобавлениеАТНСС!КодТНС = Forms!Атнсс!ТНС
Forms!ДобавлениеАТНСС!ПропТНС
= Forms!Атнсс!Пропуск
Forms!ДобавлениеАТНСС!ПлощТНС
= Forms!Атнсс!Площ
DoCmd.Close
acForm, "ДобавлениеАТНСС"
DoCmd.Requery
""
DoCmd.Requery
"ТНСУдаления"
End With
Добавление_Ввод_ТНС_Exit:
Exit Sub
Добавление_Ввод_ТНС_Err:
DoCmd.Close
acForm, "ДобавлениеАТНСС"
'MsgBox
Error$
Resume Добавление_Ввод_ТНС_Exit
End Sub
Private Sub Кнопка41_Click()
On Error GoTo Удаление_Удаление_ТНС_Err
If (Eval("Forms!Атнсс!ТНСУдаления Is Null")) Then
MsgBox
"Введены не все данные!", vbExclamation, "Удаление АТНСС."
Exit Sub
End If
DoCmd.OpenForm "ДобавлениеАТНСС", acNormal, "", "", , acHidden
DoCmd.SelectObject acForm, "ДобавлениеАТНСС", False
'DoCmd.GoToControl "[КодТНС]"
DoCmd.FindRecord Forms!Атнсс!ТНСУдаления, acEntire, False, , True, acCurrent,
False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acForm, "ДобавлениеАТНСС"
DoCmd.Requery ""
DoCmd.Requery "ТНСУдаления"
Forms!Атнсс!ТНСУдаления
= ""
Удаление_Удаление_ТНС_Exit:
Exit Sub
Удаление_Удаление_ТНС_Err:
DoCmd.Close
acForm, "ДобавлениеАТНСС"
m = MsgBox("Удаление
невозможно так как имеется транспортное оборудование, привязанные к данному ГАУ!",
vbExclamation, "Удаление ГАУ")
'MsgBox
Error$
Resume
Удаление_Удаление_ТНС_Exit
End Sub
Форма «ГАУ»
Private Sub Кнопка34_Click()
On Error GoTo Добавление_Ввод_ГАУ_Err
With CodeContextObject
If (Eval("(Forms!Гау![ГАУ] Is Null) Or (Forms!Гау![Назн] Is Null) Or (Forms!Гау![Площ] Is Null)")) Then
MsgBox
"Введены не все данные!", vbExclamation, "Добавление нового ГАУ."
Exit Sub
End If
DoCmd.GoToControl "КодГАУ"
DoCmd.FindRecord Val(Forms!Гау![Гау]), acStart, False, , True,
acCurrent, True
If (Val(Forms!Гау![Гау]) = (Forms!Гау![КодГАУ])) Then
Beep
MsgBox
"Такой номер уже существует!", vbExclamation, "Ошибка"
Exit Sub
End If
DoCmd.OpenForm "ДобавлениеГАУ", acNormal, "", "", , acHidden
DoCmd.GoToRecord acForm, "ДобавлениеГАУ", acNewRec
Forms!ДобавлениеГАУ!КодГАУ = Forms!Гау!Гау
Forms!ДобавлениеГАУ!НазнГАУ
= Forms!Гау!Назн
Forms!ДобавлениеГАУ!ПлощадьГАУ
= Forms!Гау!Площ
DoCmd.Close acForm, "ДобавлениеГАУ"
DoCmd.Requery ""
DoCmd.Requery "ГАУУдаления"
End With
Добавление_Ввод_ГАУ_Exit:
Exit Sub
Добавление_Ввод_ГАУ_Err:
DoCmd.Close
acForm, "ДобавлениеГАУ"
'MsgBox
Error$
Resume Добавление_Ввод_ГАУ_Exit
End Sub
Private Sub Кнопка41_Click()
On Error GoTo Удаление_Удаление_ГАУ_Err
If (Eval("Forms!Гау!ГАУУдаления Is Null")) Then
MsgBox
"Введены не все данные!", vbExclamation, "Удаление ГАУ."
Exit Sub
End If
DoCmd.OpenForm "ДобавлениеГАУ", acNormal, "", "", , acHidden
DoCmd.SelectObject acForm, "ДобавлениеГАУ", False
DoCmd.GoToControl "[КодГАУ]"
DoCmd.FindRecord Forms!Гау!ГАУУдаления, acEntire, False, , True, acCurrent,
False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close acForm, "ДобавлениеГАУ"
DoCmd.Requery ""
DoCmd.Requery "ГАУУдаления"
Forms!Гау!ГАУУдаления
= ""
Удаление_Удаление_ГАУ_Exit:
Exit Sub
Удаление_Удаление_ГАУ_Err:
DoCmd.Close
acForm, "ДобавлениеГАУ"
m = MsgBox("Удаление
невозможно так как имеется обрабатывающее оборудование, привязанные к данному ГАУ!",
vbExclamation, "Удаление ГАУ")
MsgBox
Error$
Resume
Удаление_Удаление_ГАУ_Exit
End
Sub
Форма
«Содержание ГПС»
Private Sub КодГАУ_Dirty(Cancel As Integer)
On Error GoTo Обновление_Err
КодТНС.Locked = False
DoCmd.Requery "КодТНС"
Обновление_Exit:
Exit Sub
Обновление_Err:
MsgBox Error$
Resume Обновление_Exit
End Sub
Private Sub КодТНС_Dirty(Cancel As Integer)
DoCmd.Requery "КодГау"
End Sub
Private Sub КодТНС_GotFocus()
If КодГАУ.Value > 0 Then Else m =
MsgBox("Введите вначале
табельный номер ГАУ!", vbInformation, "Внимание"): КодТНС.Locked = True
End Sub
Форма «ГПС»
Private Sub Кнопка34_Click()
On Error GoTo Добавление_Ввод_ГПС_Err
With CodeContextObject
If (Eval("(Forms![ГПС-добавление]![ГПС] Is Null) Or (Forms![ГПС-добавление]![Назн] Is Null) Or (Forms![ГПС-добавление]![Цех] Is Null)")) Then
MsgBox
"Введены не все данные!", vbExclamation, "Добавление нового ГПС."
Exit Sub
End If
DoCmd.GoToControl "КодГПС"
DoCmd.FindRecord Val(Forms![ГПС-добавление]!ГПС), acEntire, False, , True, acCurrent,
True
If (Val(Forms![ГПС-добавление]!ГПС) = Forms![ГПС-добавление]!КодГПС) Then
Beep
MsgBox
"Такой номер уже существует!", vbExclamation, "Ошибка"
Exit Sub
End If
DoCmd.OpenForm "ДобавлениеГПС", acNormal, "", "", , acHidden
DoCmd.GoToRecord acForm, "ДобавлениеГПС", acNewRec
Forms!ДобавлениеГПС!КодГПС = Forms![ГПС-добавление]!ГПС
Forms!ДобавлениеГПС!НазнГПС
= Forms![ГПС-добавление]!Назн
Forms!ДобавлениеГПС!НаимЦех
= Forms![ГПС-добавление]!Цех
DoCmd.Close
acForm, "ДобавлениеГПС"
DoCmd.Requery
""
DoCmd.Requery
"ГПСУдаления"
End With
Добавление_Ввод_ГПС_Exit:
Exit Sub
Добавление_Ввод_ГПС_Err:
DoCmd.Close
acForm, "ДобавлениеГПС"
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20 |
