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

[Mitriy08]

Как вариант можно сделать комбобокс и его заполнить (событие должно висеть на AfterScroll) от 0 до Кол-во товара, которое есть на складе.
Можно поставить Edit и разрешить туда вводить только числа (причем только положительные ) + Не выше числа которое есть на складе

ps. Я склоняюсь к первому варианту там все проверки сами отпадают

[opel.omega]

блин переделал и все равно не работает счас ваще вылетает а когда перегружаю то там количество -1600 с хвостиком
вот код:

var
 i:integer;
begin

 while not DataModule1.ADOQuery1.Eof do begin
 i:=DataModule1.ADOQuery1.FieldValues['amount']-StrToInt(DataModule1.ADOzaiavkiamount.AsString);
 DataModule1.ADOQuery1.Edit;
 DataModule1.ADOQuery1.FieldValues['amount']:=i;
 DataModule1.ADOQuery1.Post;
 DataModule1.ADOzaiavki.Next;
 end;

 DataModule1.zaiavkiQuery.First;
while not DataModule1.zaiavkiQuery.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.FieldValues['parameters']:=DataModule1.zaiavkiQuery.FieldValues['parameters'];
 DataModule1.ADOQuery2.FieldValues['amount']:=DataModule1.zaiavkiQuery.FieldValues['amount'];
 DataModule1.ADOQuery2.FieldValues['price_1detail']:=DataModule1.zaiavkiQuery.FieldValues['price_1detail'];
 DataModule1.ADOQuery2.FieldValues['KlientName']:=DataModule1.zaiavkiQuery.FieldValues['KlientName'];
 DataModule1.ADOQuery2.FieldValues['dataOfSales']:=DataModule1.zaiavkiQuery.FieldValues['dataOfSales'];
 DataModule1.ADOQuery2.Post;
 DataModule1.zaiavkiQuery.Next;
 DataModule1.zaiavkiSum.Active:=False;
end;
 ShowMessage('Выбранный товар продан');
 while not DataModule1.zaiavkiQuery.eof do
 DataModule1.zaiavkiQuery.delete;
 DataModule1.zaiavkiQuery.Refresh;
end;

[Mitriy08]

 DataModule1.zaiavkiQuery.First;
while not DataModule1.zaiavkiQuery.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.FieldValues['parameters']:=DataModule1.zaiavkiQuery.FieldValues['parameters'];
 DataModule1.ADOQuery2.FieldValues['amount']:=DataModule1.zaiavkiQuery.FieldValues['amount'];
 DataModule1.ADOQuery2.FieldValues['price_1detail']:=DataModule1.zaiavkiQuery.FieldValues['price_1detail'];
 DataModule1.ADOQuery2.FieldValues['KlientName']:=DataModule1.zaiavkiQuery.FieldValues['KlientName'];
 DataModule1.ADOQuery2.FieldValues['dataOfSales']:=DataModule1.zaiavkiQuery.FieldValues['dataOfSales'];
 DataModule1.ADOQuery2.Post;
 DataModule1.zaiavkiQuery.Next;
 DataModule1.zaiavkiSum.Active:=False; //Что это???
end;
 ShowMessage('Выбранный товар продан');
 while not DataModule1.zaiavkiQuery.eof do
 DataModule1.zaiavkiQuery.delete;
 DataModule1.zaiavkiQuery.Refresh;
end;

while not DataModule1.ADOQuery1.Eof do begin
 i:=DataModule1.ADOQuery1.FieldValues['amount']-StrToInt(DataModule1.ADOzaiavkiamount.AsString);
 DataModule1.ADOQuery1.Edit;
 DataModule1.ADOQuery1.FieldValues['amount']:=i;
 DataModule1.ADOQuery1.Post;
 DataModule1.ADOzaiavki.Next;
 end;

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

Записи подобные на эти

StrToInt(DataModule1.ADOzaiavkiamount.AsString)

Можно заменять на

DataModule1.ADOzaiavkiamount.AsInteger

Ну а по поводу твоего апдэйта количества товара примерно будет так

.....
var
  j : Integer;
  UpdateDelQuery: TAdoquery;
.......
begin
.....
DataModule1.ADOzaiavkiamount.First;
UpdateQuery := TADOQuery.Create(Self);
With UpdateDelQuery do
begin
     Name := 'UpdateDelQuery';
     Connection := какаойтоAdoConnection
     Close;
end;

for i:=0 to DataModule1.ADOzaiavkiamount.RecordCount - 1 do
begin

{Сразу апдэйтим количество товара}

DataModule1.UpdateDelQuery.Clear;
//Table1 - табличка где содиржится инфа о товарах и его кол-ве
//ColItem - кол-во товара

//MyID - ID товара
UpdateDelQuery.SQL.Add('Update Table1 set ColItem=ColItem-'DataModule1.ADOzaiavkiamount.AsString +' Where MyId = 'IntToStr(ид_товара));
//Выполняем запрос
UpdateDelQuery.ExecSQL
//Очищаем скл текст
UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('Сдесь пишется запрос для вставки что то типа Insert into бла бла бла');
UpdateDelQuery.ExecSQL;
DataModule1.ADOzaiavkiamount.Next;
end;
//теперь удаляем все записи с корзины
UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add(delete from корзина);
UpdateDelQuery.ExecSQL;
ShowMessage('Что то сделали');
UpdateDelQuery.Free //Все сделали уничтожаем..

ps. Подскажу одно: Можно вставку записей организовать одним запросом
Примерый вид у него будет такой

Insert into Table1 (имена полей) 
select (поля которые должны соответсвовать вставляемым)  from table2
join.....

[opel.omega]

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

[opel.omega]

вот он окоянный исходник скт.rar

[Mitriy08]

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

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

Что именно не получается?
Делай по кускам и задавай вопросы.
Лично я готового решения не скажу могу только натолкнуть на мысль.
Получится просто медвежья услуга, а в итоге ты сам не разберешся.....
В принципе все ответы на твои вопросы я изложил 2 поста выше.

[Mitriy08]

Кстати и опиши еще для чего какая у тебя табличка и ее поля так сказать, чтобы быстрее понимать, что у тебя написано....

[Sm1Le]

Что то читал читал и запутался ... Конкретный вопрос есть ?

[opel.omega]

вот что я пишу по нажатию продажа

var
  j : Integer;
  UpdateDelQuery: TAdoquery;

begin

DataModule1.ADOzaiavkiamount.First;
UpdateQuery := TADOQuery.Create(Self);
With UpdateDelQuery do
begin
     Name := 'UpdateDelQuery';
     Connection := AdoConnection
     Close;
end;

for i:=0 to DataModule1.ADOzaiavkiamount.RecordCount - 1 do
begin

DataModule1.UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('Update ADOzaiavki set amount=amount-'DataModule1.ADOzaiavkiamount.AsString +' Where IDSales = 'IntToStr(IDSales));
UpdateDelQuery.ExecSQL
UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add('');
UpdateDelQuery.ExecSQL;
DataModule1.ADOzaiavkiamount.Next;
end;
UpdateDelQuery.Clear;
UpdateDelQuery.SQL.Add(delete from корзина);
UpdateDelQuery.ExecSQL;
ShowMessage('Товар продан');
UpdateDelQuery.Free 
   end;

а вот какие ошибки он мне выдает

[Error] Sales.pas(191): Undeclared identifier: 'TAdoquery'
[Error] Sales.pas(195): Undeclared identifier: 'First'
[Error] Sales.pas(196): Undeclared identifier: 'UpdateQuery'
[Error] Sales.pas(196): Missing operator or semicolon
[Error] Sales.pas(200): Undeclared identifier: 'Connection'
[Error] Sales.pas(200): Undeclared identifier: 'AdoConnection'
[Error] Sales.pas(201): Missing operator or semicolon
[Error] Sales.pas(204): Undeclared identifier: 'i'
[Error] Sales.pas(204): Undeclared identifier: 'RecordCount'
[Error] Sales.pas(209): Undeclared identifier: 'UpdateDelQuery'
[Error] Sales.pas(209): Missing operator or semicolon
[Error] Sales.pas(214): Missing operator or semicolon
[Error] Sales.pas(214): Missing operator or semicolon
[Error] Sales.pas(214): Missing operator or semicolon
[Error] Sales.pas(214): 'END' expected but ')' found
[Error] Sales.pas(224): Declaration expected but identifier 'UpdateDelQuery' found
[Error] Sales.pas(225): Illegal character in input file: 'к' ($EA)
[Error] Sales.pas(229): '.' expected but ';' found
[Fatal Error] skt.dpr(14): Could not compile used unit 'Sales.pas'

[opel.omega]

и еще вопрос что озночает этот код

UpdateQuery := TADOQuery.Create(Self);
With UpdateDelQuery do
begin
     Name := 'UpdateDelQuery';
     Connection := AdoConnection
     Close;
end;