добавления нескольких записей в MS Acces

[opel.omega]

все эту проблему я решил (неправильно сохронял запись)

[opel.omega]

а как это циклом перегонять
и еще как очистить записи из заявок

DataModule1.zaiavkiQuery.ClearFields;

пишет ошибку

[фЁдОр]

Сообщение от opel.omega

а как это циклом перегонять

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.First;
while not ADOQuery1.Eof do begin
ADOQuery2.Insert;
ADOQuery2.FieldValues['name2']:=ADOQuery1.FieldValues['name1']; {имени поля 
name2 во второй талице, присваиваем значение имени поля name1 в первой таблице}
ADOQuery2.FieldValues['adress2']:=ADOQuery1.FieldValues['adress1'];
ADOQuery2.Post;
ADOQuery1.Next;
end;
end;

[opel.omega]

чето я не понел можно подробный коментарий к коду

[opel.omega]

я сделал по примеру только вот не понел что нужно вписывать вместо name и adress

[opel.omega]

begin
   DataModule1.zaiavkiQuery.First;
while not DataModule1.ADOQuery1.Eof do begin
   DataModule1.ADOQuery2.Insert;
   DataModule1.ADOQuery2.FieldValues['name2']:=DataModule1.zaiavkiQuery.FieldValues['name1']; 
 DataModule1.ADOQuery2.FieldValues['adress2']:=DataModule1.zaiavkiQuery.FieldValues['adress1'];
 DataModule1.ADOQuery2.Post;
 DataModule1.zaiavkiQuery.Next;
end;

[фЁдОр]

Сообщение от opel.omega

я сделал по примеру только вот не понел что нужно вписывать вместо name и adress

вместо name и adress, нужно писать свои поля. это я из давней темы взял

[opel.omega]

я сначала так и сделал только вот он мне около 297 записей впихнул в продажи и застрял пришлось Ctrl Alt Del

[opel.omega]

begin
 DataModule1.zaiavkiQuery.First;
while not DataModule1.ADOQuery1.Eof do begin
 DataModule1.ADOQuery2.Insert;
 DataModule1.ADOQuery2.FieldValues['detail_name']:=DataModule1.zaiavkiQuery.FieldValues['detail_name'];
 DataModule1.ADOQuery2.FieldValues['header']:=DataModule1.zaiavkiQuery.FieldValues['header'];
 DataModule1.ADOQuery2.Post;
 DataModule1.zaiavkiQuery.Next;
end;

[фЁдОр]

правильно, только укажите все необходимые поля для переноса в таблицу продаж. Все я домой, в понедельник покажите свои наборотки.