50116 (609934), страница 7

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 7)

Открыть_Открыть_МаркаТр_Err:

MsgBox Error$

Resume Открыть_Открыть_МаркаТр_Exit

End Sub

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

On Error GoTo Открыть_Открыть_ГПСдоб_Err

DoCmd.OpenForm "ГПС", acNormal, "", "", , acNormal

Открыть_Открыть_ГПСдоб_Exit:

Exit Sub

Открыть_Открыть_ГПСдоб_Err:

MsgBox Error$

Resume Открыть_Открыть_ГПСдоб_Exit

End Sub

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

On Error GoTo Открыть_Открыть_Кластер_Err

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, "ДобавлениеГПС"

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.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 КнМарка_Click()

On Error GoTo Добавление_Ввод_инструмента_Err

With CodeContextObject

If (Eval("(Forms![Инструменты,приспособления]![Код] Is Null) Or (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![Инструменты,приспособления]!Марка

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 Кнопка58_Click()

On Error GoTo Удаление_Удаление_инструмента_Err

If (Eval("Forms![Инструменты,приспособления]!КодУдаления Is Null")) Then

MsgBox "Введены не все данные!", vbExclamation, "Удаление инструмента/приспособления."

Exit Sub

Характеристики

Список файлов курсовой работы