ADO поставить метку в таблице...

[Roof]

У меня программка работает с простейшей БД Access. При нажатии кнопки Добавить добавляется новая запись в таблицу. В таблице 4 поля. Все они заполняются. Поле date - выбранная в календаре дата. Так вот вопрос такой - как реализовать чтобы заполнялись не все поля таблицы при сохрагнении одной и той же даты несколько раз?
Например:
1) выбрал 14.08.2008 и Добавил - заполнились все поля таблицы.
2) выбрал 16.08.2008 и Добавил - заполнились все поля таблицы.
3) выбрал 17.08.2008 и Добавил - заполнились все поля таблицы.
4) выбрал снова 14.08.2008 и Добавил - заполнились НЕ все поля таблицы. Поля zna4 и color остались пустые, так как запись с датой 14.08.2008 уже была.

Исходник прилагается.

[Баламут]

Ну вот так, например...

procedure TForm1.Button1Click(Sender: TObject);
begin
if not Adotable1.Locate('date', Calendar1.CalendarDate, []) then
begin
 adotable1.Append;
 adotable1date.Value:= Calendar1.CalendarDate;
 adotable1zna4.Value:= Edit1.Text;
 adotable1color.Value:=   '$00CCFF';
end
else
begin
 adotable1.Append;
 adotable1date.Value:= Calendar1.CalendarDate;
// adotable1zna4.Value:= Edit1.Text;
// adotable1color.Value:=   '$00CCFF';
end;

 adotable1.edit;
 adotable1.post;
end;

[Roof]

2 Баламут - да, спасибо. То что нужно ))))
Только одно не понятно - что такое пустые квадратные скобки? В 4-ой строке кода.

[Roof]

2 Баламут - а вот как мне теперь получить доступ к исправлению цвета?
Вот, например, выбрал я 5 раз дату 14.08.2008 - и у меня остались пустые поля zna4 и color в последних 4-ех записях. Засунул я в приложение Colordialog и хочу поменять цвет у даты теперь. А он у меня записывается на 5-ую запись, а нужно первую запись исправлять. Посмотри пожалуйста. ))))

[Roof]

Все, сам разобрался )))

[Баламут]

Вот так и держи! Знания, добытые собственным потом, гораздо ценнее.