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

Приложения

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

Dim b, g, e As Variant

Set b = CurrentDb

Set g = b.OpenRecordset("Проекты")

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

Err = False

Do While Not g.EOF

If 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()