Сообщество Чайников

Вопрос

Возможно ли в MS Access97 сделать так, чтобы при истечении срока даты цвет надписи менялся на другой?

Например в форме у товара ставится дата истечении срока сертификата, и если форма открывается после истечения данного срока, то цвет даты меняется на красный

Ответ

Я обычно делаю так:

На событие <Текущая запись> (Current) формы вешаешь процедурку, которая проверяет больше или меньше текущая дата даты в поле (допустим me.срок) Если больше, то свойству поля me.срок — <Цвет границы> (BorderColor) или <Цвет текста> (ForeColor) (по желанию) выставляешь 255 (красный) или какой другой. Если же нет, то 0 (черный)

Событие <Текущая запись> (Current) будет возникать всегда при открытии формы и при переходе на другую запись.

Вот примерно, что получиться:

Private Sub Form_Current()
If Me.срок <= Date
Then Me.срок.ForeColor = 255
Else Me.срок.ForeColor = 0
End
If End
Sub

Из конференции Expert_FAQ