50116 (Учет основного оборудования на предприятии), страница 9

2016-07-30СтудИзба

Описание файла

Документ из архива "Учет основного оборудования на предприятии", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.

Онлайн просмотр документа "50116"

Текст 9 страницы из документа "50116"

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![Транспортное оборудование]!Стоим

DoCmd.Close acForm, "ДобавлениеТр"

DoCmd.Requery ""

DoCmd.Requery "КодУдаления"

End With

Добавление_Ввод_транспорта_Exit:

Exit Sub

Добавление_Ввод_транспорта_Err:

DoCmd.Close acForm, "ДобавлениеТр"

'MsgBox Error$

Resume Добавление_Ввод_транспорта_Exit

End Sub

Private Sub Кнопка33_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 Кнопка6_Click()

If [Forms]![Отчет]![Flag].Value = Null Then m = MsgBox("Введите табельный номер", vbExclamation, "Ошибка"): Exit Sub

If [Forms]![Отчет]![Flag].Value = 1 Then

ЗапросОбр

Else

ЗапросТр

End If

End Sub

Private Sub Список0_Click()

DoCmd.Requery "Table"

End Sub

Private Sub Флажок4_Click()

If Флажок4.Value Then

[Список0].RowSource = "Обрабатывающее оборудование"

Table.SourceObject = "Запрос.ЗапросЗамены Обр"

Else

[Список0].RowSource = "Транспортное оборудование"

Table.SourceObject = "Запрос.ЗапросЗамены Тр"

End If

[Список0].Value = Null

End Sub

Свежие статьи
Популярно сейчас
А знаете ли Вы, что из года в год задания практически не меняются? Математика, преподаваемая в учебных заведениях, никак не менялась минимум 30 лет. Найдите нужный учебный материал на СтудИзбе!
Ответы на популярные вопросы
Да! Наши авторы собирают и выкладывают те работы, которые сдаются в Вашем учебном заведении ежегодно и уже проверены преподавателями.
Да! У нас любой человек может выложить любую учебную работу и зарабатывать на её продажах! Но каждый учебный материал публикуется только после тщательной проверки администрацией.
Вернём деньги! А если быть более точными, то автору даётся немного времени на исправление, а если не исправит или выйдет время, то вернём деньги в полном объёме!
Нет! Мы не выполняем работы на заказ, однако Вы можете попросить что-то выложить в наших социальных сетях.
Добавляйте материалы
и зарабатывайте!
Продажи идут автоматически
4098
Авторов
на СтудИзбе
673
Средний доход
с одного платного файла
Обучение Подробнее