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

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