Курсовая работа: Разработка информационной системы учета работы строительного предприятия

Set b = CurrentDb

Set g = b.OpenRecordset("Продукция")

Set e = b.OpenRecordset("Ошибки")

Err = False

Do While Not g.EOF

If g![Себестоимость производства] <= 0 Or g![Цена продажи] <= 0 Then

e.Edit

e.AddNew

e![ДатаВремя] = Str(Date) + " " + Str(Time)

e![Пояснение] = "В таблице Товары для кода продукции" + Str(g![Код продукции]) + " отрицательные данные!"

e.Update

Err = True

End If

g.MoveNext

Loop

If Not Err Then

e.AddNew

e![ДатаВремя] = Str(Date) + " " + Str(Time)

e![Пояснение] = "В таблице Продукция нет ошибок."

e.Update

End If

DoCmd.OpenTable ("Ошибки")

g.Close

e.Close

End Sub

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

Dim b, g, e As Variant

Set b = CurrentDb

Set g = b.OpenRecordset("Учетпродаж")