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

[opel.omega]

Здраствуйте добрые люди такой вопрос у меня база деталей на Ацессе, добавляю запись

var
i:Integer;
begin
for i:=0 to 20 do
begin
if DataModule2.ADOTable1.Modified then
DataModule2.ADOTable1.Post;
end;

а как сделать чтоб запись которую я добовляю добавилась столько раз сколько я укажу в Едит7 например если я укажу 3 то чтоб одна и таже запись добавилась 3 раза
Помогите пожалуйста

[_Engine_]

А зачем в приведенном тобой коде цикл?

[фЁдОр]

var 
 i: Integer;
begin
 for i:=0 to StrToInt(Edit4.text)-1 do
  begin
   ADOQuery1.Insert;
   ADOQuery1.FieldValues['поле1']:=edit1.text;
   ADOQuery1.FieldValues['поле2']:=edit2.text;
   ADOQuery1.Pos;
  end;
end;

Вот только объясните, зачем это Вам? Ведь люди наоборот избавляются от избыточности данных, а Вы нет...

[opel.omega]

Дело в том что я пишу программу склад для друга а там бывает одна и таже деталь в нескольких количествах как это реализовать? если будет несколько записей тогда в поле ISSklad укажу 0 это значит деталь реализованна а 1 значит еще на складе. если вы знаете какой нибудь другой способ научите пожалуйста только учтите я чайник в этом деле

[фЁдОр]

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

бывает одна и таже деталь в нескольких количествах

Как это ?

[opel.omega]

тоисть например процессор АМД 3,5 10 штук если продадут 3 останется 7

[фЁдОр]

что-то я совсем запутался . Очевидно Вам надо поле "наименование товара" и рядом - "количетво". А не писать в "наименование товара" семь раз АМД 3,5

[Yurk@]

фЁдОр, абсолютно согласен ... нужно просто сделать поля:
Наименование
Начальное кол-во товара
Остаток товара на складе после продажи
... и совсем не нужно дублировать записи = Это Бред

[opel.omega]

да ребят вы правы, я не как не научился как это делать я вобще складскую программу первый раз пишу, если вы мне поможите буду очень благодарен!!!
Большое спасибо за ваше внимание

[opel.omega]

у меня как я уже говорил база Ацесс подсоеденяю ее с помощью АДО а как дальше быть незнаю помогите пожалуйста