Разработка необходимых запросов, макросов, программных модулей, отчетов.

Задача обновления данных в поле «Дата следующей поверки»

Цель: При вводе новых данных в форме «Поверка» назначить процедуру, которая позволяет:

Создавать и обновлять дату следующей поверки на основе даты последней поверки, увеличивая дату на год, в том случае если прибор прошел проверку. После обновления поля даты, выводится сообщение «Дата назначена».

Если прибор не прошел проверку(значение в поле годен/негоден = ложь), выводится сообщение: «Прибор находится на ремонте».

Рис. 5 обновления данных в поле «Дата следующей поверки».

Для осуществления этой задачи была создана кнопка, при нажатии на которую выполнялся программный код:

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

Dim dbs As Database

Dim tbl As Recordset

Dim tbu As Recordset

Set dbs = CurrentDb

Set tbl = dbs.OpenRecordset("Поверка", dbOpenDynaset)

Set tbu = dbs.OpenRecordset("Ремонтные работы", dbOpenDynaset)

If tbl.EOF Then Exit Sub

tbl.MoveFirst

tbl.MoveLast

d = tbl.RecordCount

If Form_asd.Годен_Негоден.Value Then

tbl.Edit

Dim a, olddate

olddate = Form_asd.Дата_последней_поверки.Value

a = DateAdd("yyyy", 1, olddate)

For i = 1 To d

tbl.Edit

tbl.MoveFirst

If tbl![Годен_Негоден] = True Then

Form_asd.Дата_последующей_поверки = a

End If

tbl.MoveNext

Next i

MsgBox "Дата назначена"

Else

MsgBox "прибор на ремонте"

End If

tbl.Close

Set dbs = Nothing

End Sub