Учет основного оборудования на предприятии (стр. 10 из 10)

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