Запись в таблицу

[WALL]

Есть на форме 2 компонента DBLookupComboBox1 и edit нужно при нажатии на кнопку, сохраняла данные в таблицу. У меня сохраняет но когда я пытаюсь еще одну запись добавить он мне перезаписывает.

[nervniy]

код кнопки??

[WALL]

   FormatDateTime('mm',Form5.DateTimePicker1.Date);
       Form4.ADOQuery1.Open;
       Form4.ADOQuery1.Insert;
       Form4.ADOQuery1.FieldByName('Фамилия').AsString:=Form5.Edit1.Text;
       Form4.ADOQuery1.FieldByName('Имя').AsString:=Form5.Edit2.Text;
       Form4.ADOQuery1.FieldByName('Отчество').AsString:=Form5.Edit3.Text;
       Form4.ADOQuery1.FieldByName('Дата').AsDateTime:=Form5.DateTimePicker1.Date;
       Form4.ADOQuery1.Post;
       Form4.ADOTable1.Open;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox1.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit5.Text;
       Form4.ADOTable1.FieldByName('срок хранения').AsString:=Form5.Edit4.Text;
       Form4.ADOTable1.FieldByName('температура C').AsString:=Form5.Edit6.Text;
       Form4.ADOTable1.Post;
       Form5.Edit5.Clear;
       Edit1.Clear;
       Edit2.Clear;
       Edit3.Clear;
      end;

[mihali4]

       Edit1.Clear;
       Edit2.Clear;
       Edit3.Clear;

А это не к Form5 относится ?
Как Form5.Edit5.Clear; ?

[WALL]

я удалил это осталось ранешь, проблема все равно есть

 FormatDateTime('mm',Form5.DateTimePicker1.Date);
       Form4.ADOQuery1.Open;
       Form4.ADOQuery1.Insert;
       Form4.ADOQuery1.FieldByName('Фамилия').AsString:=Form5.Edit1.Text;
       Form4.ADOQuery1.FieldByName('Имя').AsString:=Form5.Edit2.Text;
       Form4.ADOQuery1.FieldByName('Отчество').AsString:=Form5.Edit3.Text;
       Form4.ADOQuery1.FieldByName('Дата').AsDateTime:=Form5.DateTimePicker1.Date;
       Form4.ADOQuery1.Post;
       Form4.ADOTable1.Open;
       Form4.ADOTable1.Insert;
       Form4.ADOTable1.FieldByName('Продукт_питания').AsString:=Form5.DBLookupComboBox1.text;
       Form4.ADOTable1.FieldByName('Количество').AsString:=Form5.Edit5.Text;
       Form4.ADOTable1.Post;
       Form5.Edit5.Clear;
       Edit1.Clear;
       Edit2.Clear;
       Edit3.Clear;
      end;

[_SERGEYX_]

Кажется, ты сам смутно понимаешь то, что пишешь...

FormatDateTime('mm',Form5.DateTimePicker1.Date);

Что означает эта строка?

Form4.ADOQuery1.Open;

Зачем пытаться открывать таблицу перед каждым добавлением записи? Разве она была закрыта?

 Form4.ADOTable1.FieldByName('Продукт_питания').AsString:= Form5.DBLookupComboBox1.text;

Логичнее обращаться не к DBLookupComboBox1.text, а к тому ListField, который подключен к DBLookupComboBox1. При добавлении (удалении, изменении значения поля) записи в эту таблицу DBLookupComboBox1.text останется без изменений пока не сработает DBLookupComboBox1.KeyField:= <Ключевое поле таблицы>;
Таким образом, DBLookupComboBox1.text будет отличаться от реальной записи в таблице.