Ошибка при "прочесывании" БД

[Камикадзе]

Люди добрые, выручайте. Курсовая - учет работников на предприятии, в которой должен быть поиск по возрасту. Но возраст - вычисляемое поле, считается по дате рождения, и никакого поиска по нему делать нельзя. Придумал решение - сделал кнопку "Обновить", при нажатии на которую указатель проходит по всем записям БД и переписывает значение из вычисляемого поля в постоянное. Но появляется ошибка "Table is not in edit or write mode", хотя при добавлении новой записи все нормально.

БД организована следующим образом:
Создана в MS Access. Исбользую DataModule и на нем объекты:
KursD: TDatabase;
MainTab :TTable;
SourceEdit :TDataSource; (Настроена на MainTab)

Отображается все в DBGrid.

Код, выполняемый по нажатию кнопки "Обновить"

procedure TForm1.Button6Click(Sender: TObject);
begin
 DataModule2.MainTab.First;
 Max:=DataModule2.MainTab.RecordCount;
 For i:=1 to Max do
  with DataModule2 do
   begin
    MainTabAge:=MainTabAgeTemp; //Вот оно, присваивание 
    MainTab.Post;                         //постоянному полю
    MainTab.Next;
   end;
 DataModule2.MainTab.First;
end;

Подскажите, в чем моя ошибка?

[dron-s]

ошибка происходит потому что у тебя DataSet закрыт от редактирования...

procedure TForm1.Button6Click(Sender: TObject);
begin
DataModule2.MainTab.First;
Max:=DataModule2.MainTab.RecordCoun t;
For i:=1 to Max do
with DataModule2 do
begin
MainTab.Edit; // переводт DataSet в режим редактирования
MainTabAge:=MainTabAgeTemp; //Вот оно, присваивание
MainTab.Post; //постоянному полю
MainTab.Next;
end;
DataModule2.MainTab.First;
end;

[Камикадзе]

Ну спасибо! Все работает! только странно, что мне это раньше нигде не попадалось... Таким же макаром я исправил еще один баг. И еще нашел ошибку. Надо присваивание делать так:
MainTabAge.AsInteger:=MainTabAgeTemp.AsInteger;
Если оставить как раньше, никаких изменений не происходит, хотя ошибок нет.
В итоге код выглядит так:

procedure TForm1.Button6Click(Sender: TObject);
begin
 DataModule2.MainTab.First;
 Max:=DataModule2.MainTab.RecordCount;
 For i:=1 to Max do
  with DataModule2 do
   begin
    MainTab.Edit; // переводт DataSet в режим редактирования
    MainTabAge.AsInteger:=MainTabAgeTemp.AsInteger; //Вот оно, присваивание
    MainTab.Post;
    MainTab.Next;
   end;
 DataModule2.MainTab.First;
end;

[dron-s]

MainTabAge.AsInteger:=MainTabAgeTem p.AsInteger;

молодец, сам разобрался!

[Камикадзе]

Стараюсь!

[mihali4]

должен быть поиск по возрасту. Но возраст - вычисляемое поле, считается по дате рождения, и никакого поиска по нему делать нельзя

Какая ерунда, простите...
Это делается вполне тривиально:
1 - Пусть нужно выбрать сотрудников с возрастом 30 лет. На текущую дату вычисляются "крайние" даты рождения. То есть, год рождения может быть и в прошлом году, и в текущем. Все наши 30-летние родились не ранее, чем текущая дата минус 1 день минус 30 лет, и не позже, чем сегодня плюс 29 лет. Вот вам и крайние даты.
2 - выбираем всех сотрудников с датами рождения между этими датами.

Здесь может возникнуть только один нюанс - из-за формата представления даты в конкретной БД. Поэтому те самые "крайние" даты, возможно, придется перевести в соответствующую форму и сравнение производить именно в этом формате.

[Камикадзе]

Мдаа... Что-то я, видать, совсем заучился... Чуть-чуть бы пораньше мне это увидеть. Ну да ладно, оставлю пока как есть, там - посмотрим.